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

• #35035 logitechh csendes tag poffsoft #35032

  Új Válasz 2017-04-29 09:24:30 #35035

  Ú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

  

  logitechh

  csendes tag

  válasz poffsoft #35032 üzenetére

  Kösszi neked is és Dellila_1-nek is(az övére nem tudok válaszolni mert azt írja ki,hogy várjak türelemmel amíg valaki válaszol a hozzászólásomra)
  úgy látom két részre kell szednem a beillesztést és a sorszámozást mert valamiért mindig csak egyel növeli a sorszámot függetlenül hogy hány sornyi adatot illesztek be.Ez mind a kettőtök makrójánál fent áll.
  De baromira megkönnyítettétek a munkám.

• #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