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

• #48560 Delila_1 veterán andreas49 #48559

  Új Válasz 2022-02-19 12:00:49 #48560

  Ú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 andreas49 #48559 üzenetére

  Másold be a makrót egy modulba az Összefoglaló szerint.
  Sub Sorbeszuras()
    Dim sor As Long, usor As Long, lepeskoz As Integer
  lepeskoz = Application.InputBox("Hány üres sor legyen az adatok között?", "Üres sorok száma", , , , , , 1)
    usor = Range("A" & Rows.Count).End(xlUp).Row
    For sor = usor To 3 Step -1
      Rows(sor & ":" & sor + lepeskoz - 1).Insert Shift:=xlDown
    Next
End Sub

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