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

• #35033 poffsoft veterán poffsoft #35032

  Új Válasz 2017-04-28 23:32:59 #35033

  Ú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 poffsoft #35032 üzenetére

  Vagy egyszerűbben:

  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).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