- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- gban: Ingyen kellene, de tegnapra
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- btz: Internet fejlesztés országosan!
- bambano: Bambanő háza tája
-
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
-
Delila_1
veterán
válasz
Excelbarat #16339 üzenetére
Az áthelyezésnél mindig az utolsó lap után helyezi a 2 lap másolatát, ezt az After:=Sheets(Sheets.Count) biztosítja.
Sub valami()
Dim nev$, nev1$, nev2$
Sheets(Array("Alap adat", "Alap kimutatás")).Copy After:=Sheets(Sheets.Count)
nev$ = InputBox("Kérem a hónap nevét", "Névbekérés")
nev1$ = nev$ & " adat"
Sheets("Alap adat (2)").Name = nev1$
nev2$ = nev$ & " kimutatás"
Sheets("Alap kimutatás (2)").Name = nev2$
End Sub
Új hozzászólás Aktív témák
Hirdetés
- BESZÁMÍTÁS! Apple Macbook Pro 16" 2019 i9 64GB 1TB 5500M 8GB garanciával hibátlan működéssel
- Huawei P30 Lite 128GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó 2db Nokia steel hr hibrid okos óra dobozával
- Apple Air Pad 5.generácio / 32GB / Wi-fi / 12Hó garancia
- GYÖNYÖRŰ iPhone 13 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3036
Állásajánlatok
Cég: FOTC
Város: Budapest