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

• #14879 Delila_1 veterán #05304832 #14875

  Új Válasz 2012-09-08 16:47:35 #14879

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

  Próba nélkül! átalakítottam az előbb küldött makrót.

  Sub oszlop_torles()
  Dim sor%, usor%, oszlop%, nev$
  Dim WS1 As Worksheet, WS2 As Worksheet

  Set WS1 = Sheets("Keresendő")
  Set WS2 = Sheets("Adatok")
  usor% = Application.WorksheetFunction.CountA(WS1.Columns(1))

  For sor% = 1 To usor%
  nev$ = WS1.Cells(sor%, "A")
  For oszlop% = 36 To 1 Step -1
  If WS2.Cells(2, oszlop%) <> nev$ Then Columns(oszlop%).Delete Shift:=xlToLeft
  Next
  Next
  End Sub

  Szerk.: Nem jelöltem programkódnak, utólag nem lehet javítani, de biztosan meg tudod csinálni. Ilyen pocsék formában is működnie kell.

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