-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 Suberre 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
- BESZÁMÍTÁS! Apple MacBook Pro 16 M4 Pro - M4 Pro 24GB 512GB SSD garanciával hibátlan működéssel
- Bezámítás! ASUS ROG Strix G512LW 15 Gamer notebook - i7 10750H 32GB RAM 1TB SSD RTX 2070 8GB WIN11
- ÁRGARANCIA! Épített KomPhone Ryzen 7 5800X 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- HÚSVÉTI AKCIÓK / MICROSOFT WINDOWS 10,11 / OFFICE 16,19,21,24 / VÍRUS,VPN VÉDELEM / SZÁMLA / 0-24
- Samsung Galaxy A04 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest