Szia Delila_1!
Próbálgatom a makrót, amit írtál...
És valahogy nem működik, de nem tudok rájönni mi hibázik.
Úgy írja, minth a Find részben lenne hiba...de ha külön az "immadiate" ablakban nézem, akkor tökjól működik a kód. Arra még rájöttem, hogy az oszlopok neveit "" közé kell tennem...
Szerinted mi lehet a baja?
Elfogytak a tippjem, pedig sokat próbálgattam...
Nem lehet, hogy a find nem tudja melyik sheet-en keressen?
Köszi az ötleteklet!
:-)
Sub DeleteColumns()
Dim sor As Integer
Dim oszlopnev As String
Sheets("Sheet1").Select
sor = 1
Do While Sheets("Sheet2").Cells(sor, 1) <> ""
oszlopnev = Sheets("Sheet2").Cells(sor, 1).Value
Cells.Find(what:=oszlopnev, after:=ActiveCell, LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Activate
Columns(ActiveCell.Column).Delete
sor = sor + 1
Loop
End Sub