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

• #42351 Delila_1 veterán logitechh #42348

  Új Válasz 2019-12-03 08:28:45 #42351

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

  Két füzeted van: Eredeti.xlsm és Célfüzet.xlsm. Az utóbbiban van a Céllap.
  Mindkét füzetben modulba kell tenned a makrót.

  Eredeti.xlsm-be a Másolás gombhoz rendelve:
  Sub Masolas()
Dim utvonal As String

utvonal = "F:\Eadat\Excel fórumok\PH" 'Ezt írd át!
Range("C2:O13").Copy
' Selection.Copy 'A kijelölt területet másolja
On Error Resume Next 'Ha nincs nyitva a Célfüzet
Workbooks.Open Filename:=utvonal & "\Célfüzet.xlsm"

Workbooks("Célfüzet.xlsm").Activate
Sheets("Céllap").Activate
End Sub

  Célfüzet.xlsm-be a Beillesztés gombhoz rendelve:
  Sub Beilleszt()
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

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