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