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

• #9113 Delila_1 veterán yoogie #9111

  Új Válasz 2011-01-17 15:12:08 #9113

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

  Gomb nélküli megoldás:

  Sub ttt()
  Dim sor As Integer, usor As Integer
  usor = ActiveSheet.UsedRange.Count
  For sor = usor To 1 Step -1
  If sor Mod 2 = 0 Then Rows(sor).Delete
  Next
  End Sub

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