- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Apple MacBook
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Vezetékes FEJhallgatók
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Csalásnak ítéli az új Red Magic csúcstelefonok működését a 3DMark
- Nem indul és mi a baja a gépemnek topik
- ThinkPad (NEM IdeaPad)
- Ami Kínában OnePlus Pad Pro, az errefelé mégis csak Pad 2 lett
- Milyen billentyűzetet vegyek?
-
PROHARDVER!
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
-
morgusz
csendes tag
Sziasztok!
Segítsetek!
(Kaptam korábban útbaigazítást, de képzetlenségem miatt nem sikerült megcsinálni.)1.A másként mentett fájl nevében a "napi" szó helyére kellene berakni az aktuális dátumot (hh.nn.).
"Workbooks.Open Filename:="D:\előkészítés+\AVO\Avo napi PM.xls"
ChDir "\\imrst\IMR_ST\IMRElorejelzesFiles"
ActiveWorkbook.SaveAs Filename:= _
"\\imrst\IMR_ST\IMRElorejelzesFiles\Avo napi. PM.xls", FileFormat:= _ <-------
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False"2. Másolásra nem a teljes oszlopokat kellene kijelölnöm, hanem csak az adatokat tartalmazó területet
Sheets("Eredmény CH").Select
Columns("A:H").Select <-------------------------
Selection.Copy
ChDir "D:\előkészítés+"
Workbooks.Open Filename:="D:\előkészítés+\Avo\Avo napi CH.xls"
Sheets("Munka1").Select
Range("A1").Select
ActiveSheet.PasteSegítsetek abban, hogy a fenti részeket hogy kell átírnom!
Köszi!
Új hozzászólás Aktív témák
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Xiaomi 14 Ultra - Leica hercegnő
- Tesla topik
- Revolut
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Apple MacBook
- Kertészet, mezőgazdaság topik
- Óra topik
- Gitáros topic
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
- PC Game Pass előfizetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ÚJ Lenovo ThinkPad X13 Gen 5 - 13.3" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- HIBÁTLAN iPhone 14 Pro 128GB Space Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4420, 100% Akksi
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- GAMING PC! Ryzen 7600X / RX 7800 XT / 32GB DDR5 / 512GB NVMe / 700w! BeszámítOK
- Xiaomi Redmi Note 8 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
