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

• #14911 Delila_1 veterán #05304832 #14907

  Új Válasz 2012-09-11 12:54:44 #14911

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

  Szia!

  Sub Oszlopok()
  Dim T, Tag%, f As Boolean
  Dim oszlop%, uoszlop%
  T = Array("LENX", "LENY", "LENZ", "MATERIAL", "NAME", "SUMMARY", "TIP", "A1", "A2", "B1", "B2", "HIV")
  uoszlop% = Sheets("Sheet1").UsedRange.Columns.Count
  For oszlop% = uoszlop% To 1 Step -1
  f = False
  For Tag% = 0 To 11
  If Sheets("Sheet1").Cells(2, oszlop%) = T(Tag%) Then
  f = True
  Exit For
  End If
  Next
  If f = False Then Columns(oszlop%).Delete shift:=xlToLeft
  Next
  End Sub

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