- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Apple iPhone SE - se vele, se nélküle
- Yettel topik
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Google Pixel topik
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- iPhone topik
- Xiaomi 14T Pro - teljes a család?
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- One mobilszolgáltatások
-
Mobilarena
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
littleNorbi #51182 üzenetére
A két, *-gal jelölt sornál az 1-et írd át. A makró itt az első, A oszlopban keresi a megadott keresendő szót, ami fölé oldaltörést kell bevinni. Az 1 helyett azt az oszlopszámot add meg, ahol a keresendő szó szerepel.
Az utolsó sor kikeresésénél most az A oszlop utolsó kitöltött cellájának a sorszáma szerepel.Sub Oldaltores()
Dim sor As Long, usor As Long, szoveg As String
usor = Cells(Rows.Count, 1).End(xlUp).Row
szoveg = Application.InputBox("Melyik sorok fölött legyen oldaltörés?", Type:=2)
For sor = usor To 1 Step -1
If Cells(sor, 1) = szoveg Then '*
Cells(sor, 1).Select '*
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next
End Sub
Új hozzászólás Aktív témák
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Vezetékes FEJhallgatók
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kerékpárosok, bringások ide!
- Milyen TV-t vegyek?
- Elektromos cigaretta 🔞
- EA Sports WRC '23
- Nyaralás topik
- Nintendo Wii U
- Apple iPhone SE - se vele, se nélküle
- További aktív témák...
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó Steam kulcsok kedvező áron!
- Assassin's Creed Shadows Collector's Edition PC
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Bomba ár! Lenovo X1 Yoga 1st - i7-6G I 8GB I 256SSD I 14" WQHD I HDMI I W10 I CAM I Garancia!
- BESZÁMÍTÁS! Asrock H310CM i5 9400F 16GB DDR4 240GB SSD 1TB HDD RTX 2060 Super 8GB Zalman Z1 700W
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- Azonnali készpénzes Intel i3 i5 i7 i9 12/13/14 gen processzor felvásárlás személyesen / csomagküldés
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest