Microsoft Excel topic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Mobilarena

Frissítve: 2023-11-13 08:31 Téma összefoglaló

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

matekmatika tag

#1813
#1797 Djatus
2006-12-01 12:23:07

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

matekmatika

tag

#1797 Djatus

Esetleg így?:

Private Sub Break()
i = 1
Range(''B : B'').Select
Selection.Find(What:=''aaa'', After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Rows.Select
Do While Cells(i, 2) <> Empty
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Cells.FindNext(After:=ActiveCell).Activate
i = i + 1
Loop
End Sub

Bár lehet nem a legtökéletesebb de nálam működik.

[Szerkesztve]

[Szerkesztve]

Új hozzászólás Aktív témák

Topikgazda

Bővebben a topikgazda rendszerről...

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek