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

• #22211 Delila_1 veterán Mittu88 #22210

  Új Válasz 2014-07-01 15:26:42 #22211

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

  Próbáld ezzel:

  Sub Csoportok()
  Dim elso As Long, ucso As Long
  elso = 1: ucso = 190
  Do While elso < 1900
  Range(elso & ":" & ucso).Rows.Group
  elso = ucso + 2: ucso = elso + 188
  Loop
  End Sub

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