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

• #14863 Delila_1 veterán #05304832 #14811

  Új Válasz 2012-09-08 15:58:11 #14863

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

  Nem pontos a kérdés felvetése, azért nem válaszoltam eddig rá.
  Azt írod, az "A2 sorban keressen neveket ". Az A2 egy cella, nem egy sor.

  Írtam egy makrót. A füzetben a Keresendő lap A oszlopában vannak a nevek (NAME, SUMMARY, stb.), az Adatok lapon pedig az oszlopok. A makró kitörli azokat az oszlopokat, amiknek a 2. sorában szerepel valamelyik a felsorolt nevek közül. Ha ez jó, akkor megírom a másikat is. Ugyanazt a táblázatot kell így is, úgy is kigyomlálni? Az a cél, hogy az Adatok lapon minden sor és oszlop eltűnjön, amelyikben valamelyik szó szerepel a felsoroltak között?

  Sub oszlop_torles()
  Dim sor%, usor%, oszlop%, uoszlop%, 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")
  uoszlop% = WS2.Cells(2, 256).End(xlToLeft).Column
  For oszlop% = uoszlop% To 1 Step -1
  If WS2.Cells(2, oszlop%) = nev$ Then Columns(oszlop%).Delete Shift:=xlToLeft
  Next
  Next
  End Sub

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