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

• #23604 Delila_1 veterán m.zmrzlina #23600

  Új Válasz 2014-10-08 07:40:57 #23604

  Ú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 m.zmrzlina #23600 üzenetére

  Egyszerűbben is meg lehet oldani az oszlopok törlését.

  Sub OszlopTorles()
  Dim oszlop As Integer
  
  For oszlop = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
  If Cells(1, oszlop) >= "S01" And Cells(1, oszlop) <= "S099" Then
  Columns(oszlop).Delete Shift:=xlToLeft
  End If
  Next
  
  End Sub

  Sorok, oszlopok törlésénél mindig az utolsó helytől indulunk az első felé.

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