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

• #35036 poffsoft veterán logitechh #35035

  Új Válasz 2017-04-29 12:33:02 #35036

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

  Azt nem mondtad, hogy több sor is.

  Sub mm()
Dim usor As Long
Dim i As Integer

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

'ide jön a "4 oszlopnyi adat" másolása, például
'range("B" & usor-1 & ":E" & usor-1).copy
'Fontos, hogy az irányított beillesztés előtt legyen Copy parancs

Range("B" & usor).PasteSpecial xlPasteValues
For i = Range("A" & Rows.Count).End(xlUp).Row to Range("B" & Rows.Count).End(xlUp).Row
Range("A" & i) = Range("A" & i - 1) + 1
Next i

End Sub

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