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

• #35032 poffsoft veterán logitechh #35029

  Új Válasz 2017-04-28 23:15:02 #35032

  Ú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

  

  poffsoft

  veterán

  válasz logitechh #35029 üzenetére

  Sub iranyitott_beillesztes()
'
' iranyitott_beillesztes_ Makró
'
'
Dim usor As Long

usor = Range("A" & Rows.Count).End(xlUp).Row +1

Cells(usor, 1)=Cells(usor-1, 1)+1

Cells(usor, 2).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range(Cells(2, 1), Cells(usor, 12)).Select
'
' itt jöhet a szegélyezés
'
Cells(usor, 1).Select

End Sub

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