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

• #14891 Delila_1 veterán #05304832 #14888

  Új Válasz 2012-09-09 07:49:01 #14891

  Ú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 #14888 üzenetére

  Ha csak 1 lapról és 1 adatról van szó, elég ez:

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

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