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

• m.zmrzlina senior tag

  #23593

  #23592 Hyper84

  2014-10-07 21:17:05

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23592 Hyper84

  1. Létrehoztam egy munkalapot a "torolni" néven
  2. Ennek a munkalapnak az A oszlopába felvittem azokat az elemeket amelyeknek az oszlopát törölni kell
  3. A munkalap amin a törlendő adatok vannak "adatok " nevet kapott
  4. A For Each sor végén lévő Range("A1:Z1") azt a tartományt jelöli ameddig a te adataid tartanak az "adatok" munkalapon.

  Sub oszlop_torol()
  
  Dim rngTorolni As Range
  Dim rngCella As Range
  Dim wsAdatok As Worksheet
  Set wsAdatok = ThisWorkbook.Worksheets("adatok")
  Set rngTorolni = ThisWorkbook.Worksheets("torolni").Range("A:A")
  
  For Each rngCella In wsAdatok.Range("A1:Z1")
  
  If Application.WorksheetFunction.CountIf(rngTorolni, rngCella) = 1 Then
  rngCella.EntireColumn.Delete
  End If
  Next
  
  End Sub

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