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

• #35040 poffsoft veterán logitechh #35039

  Új Válasz 2017-04-29 15:27:18 #35040

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

  egyszerűbb lett volna az elején elmondanod, mik vannak.

  Sub mm()
Dim Asor As Long
Dim Bsor As Long
Dim i As Integer

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

Range("B" & Asor).PasteSpecial xlPasteValues

Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("F2:L2").Copy destination:=Range("F" & Asor &":F" & Bsor)

For i = Asor To Bsor
Range("A" & i) = Range("A" & i - 1) + 1
Next i

End Sub

  Szerintem a rangod miatt nem enged válaszolni...

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