Új hozzászólás Aktív témák

• #14893 Delila_1 veterán #05304832 #14892

  Új Válasz 2012-09-09 08:46:10 #14893

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz #05304832 #14892 üzenetére

  Sub oszlop_torles()
  Dim oszlop%, nev$
  nev$ = "LEVEL"
  For oszlop% = 36 To 1 Step -1
  If Cells(2, oszlop%) <> nev$ Then Columns(oszlop%).Delete Shift:=xlToLeft
  Next
  End Sub

  Ezzel már nagyon gyorsan lefut majd. Benne felejtettem egy nem oda való ciklust az előzőből, mikor több címszóra kellett rákeresni, bocsi. Mentségemre, hogy el kell mennem, ezért kapkodok.

Új hozzászólás Aktív témák