- Redmi Note 10 Pro - majdnem minden stimmel
- iPhone topik
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy Watch6 Classic - tekerd!
- Motorola Moto Tag - nyomom, követ
- Itt az igazság a Samsung állítólagos Android Auto alternatívájáról
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Vivo X200 Pro - a kétszázát!
-
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
- Vírusirtó, Antivirus, VPN kulcsok
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bomba ár! HP Elitebook Folio 9470M - i5-3GEN I 8GB I 256GB SSD I 14" I DP I Cam I W10 I Garancia!
- Xiaomi Redmi Note 13 256GB Kártyafüggetlen 1Év Garanciával
- Bomba ár! Lenovo ThinkPad T490s - i7-8GEN I 16GB I 256SSD I 14" WQHD HDR I Cam I W11 I Gari!
- BESZÁMÍTÁS! Dell Latitude 5550 üzleti notebook - Intel Ultra 7 165U 16GB DDR5 RAM 1TB SSD WIN11
- Jogtiszta Microsoft Windows / Office / Stb.
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest