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!