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

• #42399 tgumis tag Fferi50 #42396

  Új Válasz 2019-12-05 15:24:33 #42399

  Ú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

  

  tgumis

  tag

  válasz Fferi50 #42396 üzenetére

  ez az eredeti:
  Sub AnyagbizAdatokAutomatikusBetoltese()
'
' AnyagbizAdatokAutomatikusBetoltese Makró
'

'
Windows("AnyagbizAdatok.XLSX").Activate
Range("A2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Negyedéves gyár számolós_V2.2_üres.xlsm").Activate
Range("anyagbiz[Anyagbiz-szám]").Select
ActiveSheet.Paste
End Sub

  erre alakítottam de nem megy
  Sub AnyagbizAdatokAutomatikusBetolteseII()
'
' AnyagbizAdatokAutomatikusBetoltese Makró
'

'
Set celfuzet = ActiveWorkbook '(mivel megnyitás után az új füzet lesz aktív)
Windows("AnyagbizAdatok.XLSX").Activate

Range(Range("A2"), Range("K2").End(xlDown)).Copy Destination:=celfuzet.anyagbiz_lista(1).Range("Anyagbiz[Anyagbiz-szám]")
End Sub

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