- Problémás a kék szín megjelenítése HDR tartalmakban az OLED kijelzős iPadeken
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Nem indul és mi a baja a gépemnek topik
- Amlogic S905, S912 processzoros készülékek
- Raspberry Pi
- Vezetékes FEJhallgatók
- ASUS ROG PG32UCDM: OLED csúcsmonitor tesztje
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- GoPro Topic
- Házimozi haladó szinten
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Krisztianby: Az ügyintézésnek mindig ilyennek kell lennie?
Hirdetés
-
TopSpin 2K25 teszt
gp Djokovic nélkül ugyan, de bő évtizedes kihagyást követően visszatért a TopSpin-széria – itt van minden Grand Slam, de vajon a játéknak mekkora esélye van a világelsői címre?
-
Európába érkezett a ChatGPT egyik legnagyobb ellenfele
it A Google-hátszelű Anthropic Európában is kiadja a Claude AI-chatbotot.
-
Elvörösödik az Xperia 1 VI
ma Újabb kiszivárgott képek, pontosított specifikációk a japán csúcstelefon kapcsán.
Aktív témák
-
félisten
válasz oregcsóka #1185 üzenetére
Hali!
Mivel csak annyit írtál, hogy 1500 tétel ezért ezt úgy vettem, hogy van 1500 sor az adott munkalapon és semmi más. A példa kedvéért van 2 munkalap Munka1 és Munka2. Ez utóbbira tegyél egy CommandButtont, duplaklikk rajta, a megjelenő VBA editor jobb oldalán lévő üres ablakba másold be ezt (A fejléc automatikusan létrejön, tehát azt nem kell, vagy előtte töröld ki)
Private Sub CommandButton1_Click()
Dim My_Range As Range
Dim Div_By As Integer
Sheets("Munka1").Select
Set My_Range = Sheets("Munka1").UsedRange
Div_By = 30
j = 1
For i = 1 To (My_Range.Rows.Count \ Div_By) + 1
HPageBreaks.Add Before:=Cells(j * Div_By + 1, 1)
j = j + 1
Next i
AllPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 1 To AllPages
If i Mod 2 = 1 Then
ActiveSheet.PrintOut from:=i, To:=i, Copies:=1, Collate:=True
End If
Next i
MsgBox ("A páratlan oldalak nyomtatása befejeződött" & vbCrLf & _
"Fordítsa meg a lapokat és kattintson az OK gombra, " & vbCrLf & _
"ezzel kezdetét veszi a páros oldalak kinyomtatása")
For i = 1 To AllPages
If i Mod 2 = 0 Then
ActiveSheet.PrintOut from:=i, To:=i, Copies:=1, Collate:=True
End If
Next i
End SubA Div_By változó segítségével állíthatod, hány rekord kerüljön egy oldalra. A rekordoknak a Munka1 lapon kell lenniük.
Először ne a saját 1500 tételes munkafüzeteddel próbáld, hanem készíts egy újat, amiben pl 60 szám lesz az A oszlopban, így teszteld, hogy működik-e rendesen, mert sajnos én ezt nem tudtam tesztelni nyomtató nélkül...
Elsősorban arra gondolok, hogy nem biztos hogy ezzel a módszerrel a megjelenő üzenetnél(amikor kérni hogy fordítsd meg a lapokat stb) megáll-e a nyomtatás...Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz oregcsóka #1187 üzenetére
Hali!
Akkor inkább ezt a megoldást hanyagoljuk, mert valószínűleg még ezután is lenne kérdésed, ami önmagában nem lenne gond, csak mire mindet megválaszolnám, más módszerrel hamarabb meg lehet oldani.
No ez a más módszer az lenne, hogy Wordben csinálsz egy körlevelet. A körlevél adatforrásaként megadod ezt az Excel táblát, létrehozod a törzsdokumentumot úgy, hogy 30 rekordot raksz egy oldalra.(Ne aggódj, csak egy oldalt kell megcsinálni így). Ezzel a módszerrel a páros/páratlan oldalak nyomtatása is megoldódik, hisz Wordben az nem gond, illetve ha megváltozik az Excel tábla, akkor csak frissíteni kell a Word körlevelet.Itt egy kis segítség, hogy hogyan is lehet 30 rekordot egy oldalra pakolni a körlevél törzsdokumentumában(2007/2003) [link] [link]
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz oregcsóka #1190 üzenetére
Hali!
Sajnos ezt a 2 megoldást tudom csak javasolni. A körleveles módszert talán érdmesebb lenne megtanulni, mert az gyakran használt megoldás, nem csak erre, sőt igazából általában nem is erre a problémára. Keress rá a Google-ban a world körlevél -re, jó pár találat lesz, olvasgasd, nem olyan vészes és ráadásul hasznos dolog is...
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
kraftxld
nagyúr
válasz oregcsóka #1204 üzenetére
Pontosan ezt csinálja Fire kollega makrója.
Az ilyen automatizált dolgokat csak makróval lehet rendesen megcsinálni. Olvass utána, annyira nem bonyolult, főleg, hogy már megcsinálták a nehezét
De a makrórögzítővel is lehet okosságokat csinálni.| MCSE+M/S, MCITP, VCP6.5-DCV - ''Life can be hard, but Scooter is harder :)'
-
félisten
válasz oregcsóka #1209 üzenetére
Hali!
Az engedélyezős dolog, plusz a képen jól látszik, hogy azt a bizonyos CommandButton-t hogyan/honnan lehet beszúrni(ActiveX vezérlők közül az első, nem az űrlap vezérlők közül)
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz oregcsóka #1211 üzenetére
Hali!
Sikerült valamit "alkotni"? Ha nem akkor nyugodtan írj privbe, leírom lépésről-lépésre hogyan kell kivitelezni a dolgot...
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Aktív témák
A korábbi 4 topic helyett 1db egyesített Microsoft Office topic lesz, hogy az pörgősebb lehessen.
Archívumok:
Microsoft Office 2010
Microsoft Office 2007
Microsoft Office 2003
- Posta, csomagküldés
- Óvodások homokozója
- Autóápolás, karbantartás, fényezés
- Fotók, videók mobillal
- Ukrajnai háború
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- Vallás
- Kés topik
- Két fontosabb újítással megjelent az iOS 17.5
- Problémás a kék szín megjelenítése HDR tartalmakban az OLED kijelzős iPadeken
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs