- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- WhrlpoolMind: Búcsú a HD3870-től
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- btz: Internet fejlesztés országosan!
-
LOGOUT
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
-
istvankeresz
aktív tag
válasz
Delila_1 #51926 üzenetére
Hát csak nem sikerül.
Eléggé összekutyultam a sok próbálkozással. Letisztázva ez is azrt csinálja, hogy végiglépked a worksheet-eken és átmásolgatja az A2 értéket a B9-be. Innen hogyan tovább? Hogy a következő ciklusban már B9 helyett C9 legyen?
Private Sub CommandButton7_Click()
Dim ws As Worksheet
ThisWorkbook.Sheets("Maradek_TEMPLATE").Copy
ActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"
For Each ws In ThisWorkbook.Worksheets
ActiveWorkbook.Sheets("Maradék szabadságok").Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")
Next ws
End Sub
Új hozzászólás Aktív témák
Hirdetés
- Call of Duty: Warzone
- Star Trek
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- BestBuy topik
- Akkor is nehéz dolga lesz az Intelnek, ha részesedést vásárol benne az USA
- iPhone topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Linux kezdőknek
- Kerékpárosok, bringások ide!
- Bambu Lab 3D nyomtatók
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Vírusirtó, Antivirus, VPN kulcsok
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- HP Victus 15-fb1002AX - 15,6"FHD IPS - Ryzen 5 7535HS - 8GB - 512GB SSD - RTX 2050 - Win11
- Microsoft Surface Laptop 5 13.5" i5-1245U 16GB 512GB 1év garancia
- Surface Pro 7+ i5-1135G7 16G 256GB 1 év garancia
- Xiaomi Mi Note 10 Lite 128GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 12 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3190
Állásajánlatok
Cég: FOTC
Város: Budapest