wawabagus Creative Commons License 2010.10.13 0 0 12949

Huh...:-)

Köszi.

Igazából lenne még egy kérdésem.

Leírom a szitut. Van egy adatbázis, ami nem mindig az első sorban kezdődik és 3 vagy több oszlopot ki kell belőle törölni.

 

Azt már szuperul megcsináltam, hogy kitörölje a nem kellő oszlopot.

 

Sub DeleteColumns()
Cells.Find(what:="Time To Resolve (Discontd 3/08)", after:=[A1], LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Activate
Columns(ActiveCell.Column).delete
End Sub

 

Viszont arra gondoltam, hogy jobb lenn, ha a felhasználó által látható felületen lenne a name range stb,ha esetleg változik az oszlop neve, vagy új jön hozzás.

De ez a name range már lapon lenne.

 

Azt kéne megoldanom, hogy amíg talál kitörölendő oszlopnevet addig helyettesítgesse be a fento macróba az oszlopnevet.

 

Jelenleg ezen gondolkozom ezt hogyan tudnám megoldani.

Tegyük fel a Sheet1-en az A1 cellában van az első oszlopnév...ha nem üres, akkor helyettesítse be. Aztán, ha lejebb megy és ott sem üres a cella, akkor azt is helyettesítse be...

 

Sub rangeteszt()
Sheets("Sheet2").Activate
range("torol").Select
If ActiveCell.Offset(-1, 0) <> "" Then
    a = ActiveCell.Offset(-1, 0).Value
    Sheets("Sheet1").Activate
    Cells.Find(what:="a", after:=[A1], LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Activate
Columns(ActiveCell.Column).delete
End Sub

 

Itt tartok, de persze ez nem nagyon működik meg még nincs is kész...de valami ilyen vonalon kén indulnom :-)...

Van valami javaslatotok?

:-)

Köszi!

 

Előzmény: Törölt nick (12947)