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

• #19812 Delila_1 veterán Telda #19811

  Új Válasz 2013-12-07 09:49:24 #19812

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

  Ez a makró megoldja

  Sub sorbeszuras()
  Dim usor As Long, sor As Long
  Application.ScreenUpdating = False
  
  usor = ActiveSheet.UsedRange.Rows.Count
  For sor = usor To 2 Step -1
  Rows(sor).EntireRow.Insert
  Next
  
  Application.ScreenUpdating = True
  End Sub

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