Hirdetés

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

  • Djatus

    csendes tag

    Sziasztok!
    Első marcomat készítem...elakadtam...
    Feladat: egy oszlop értékei között keresek egy értéket ''aaa'', majd egy sorral lejjebb ugorva beszúrnék egy töréspontot....ezt ismételni mindaddíg, még az utolsó sorra nem ér.
    Felvettem a lépéseket (2 ugyanolyan lépést):

    Selection.Find(What:=''aaa'', After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Rows(''11:11'').Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    Range(''A11'').Select
    Cells.FindNext(After:=ActiveCell).Activate
    Rows(''19:19'').Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell


    Hogyan tudnám kiolvasni az aktuális sor számát?
    Milyan ciklus kell hozzá?

    Előre is Köszönöm! :R

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