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

• #21799 Delila_1 veterán Attas #21798

  Új Válasz 2014-05-28 07:18:22 #21799

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

  Kevés változtatással:

  Sub Laptorles()
  Dim lap As Integer
  Application.DisplayAlerts = False
  
  For lap = Sheets.Count To 1 Step -1
  If Sheets(lap).Name <> "sorsolás" And Sheets(lap).Name <> "összesítő" Then
  Sheets(lap).Delete
  End If
  Next
  
  Application.DisplayAlerts = True
  End Sub

  For-Next ciklusban a törléseket célszerű a tartomány végétől az elejéig végrehajtani. Ez főként sorok, oszlopok törlésére vonatkozik.

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