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

• #50419 Delila_1 veterán Pá #50417

  Új Válasz 2023-02-08 07:55:19 #50419

  Ú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

  

  Delila_1

  veterán

  válasz Pá #50417 üzenetére

  A képletek másolásához a PasteSpecial kell.

  Sub masolo_1()
Dim usor As Long
usor = Range("CO" & Rows.Count).End(xlUp).Row
Range("CO1:CR" & usor).Copy
Range("D1").PasteSpecial xlPasteFormulas
End Sub

  Itt a másolatok számát kell még meghatároznod, az meg már megy.

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