Makro pro přechod na poslední vyplněný řádek v Excelu Vyřešeno

[mmmartin]

Jak by prosím mohlo vypadat makro, kterým lze v postupně řádek po řádku vyplňované Excelovské tabulce, která má několik set řádek, přejít na první nevyplněný řádek? Případně neexistuje na toto nějaká klávesová zkratka? Ď.

[Reklama]

[Azuzula]

Osobně používám tento kód

Kód: Vybrat vše

Sub najdi() 
Dim FrstR As Long, FrstCll As Range
With ActiveSheet
FrstR = .Range(.Range("A2"), .Range("A2").End(xlDown)).Rows.Count
Set FrstCll = .Range("A2").Offset(FrstR, 0)
End With
Range(FrstCll.Address).Activate
end sub

[d1amond]

Problém makra bude, že bere oblast sloupce A a začíná vždy od začátku. Pokud by to mělo brát v potaz jen skutečně prázdný řádek, muselo by se to upravit.
Rovněž bych upravil spuštění, které bych začal od aktivní buňky. Po vyhledání prázdného řádku by se na ní přesunul fokus a při dalším cyklu by se mohlo začínat od té poslední aktivní.

[Azuzula]

Teď mě napadlo že by šlo použít i toto:

Kód: Vybrat vše

 a = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(a + 1, 1).Select


[d1amond]

Kód: Vybrat vše

Sub HledejPrazdnyRadek()
Dim i As Integer
Dim j As Integer
Dim lCol As Integer

Application.ScreenUpdating = False

j = 0
i = ActiveCell.Row
lCol = Worksheets(1).Cells(i, Columns.Count).End(xlToLeft).Column

Do
    If lCol = 1 And Trim(Cells(i, 1).Value) = "" Then
        Cells(i, 1).Select
        j = 1
    Else:
    Cells(i + 1, 1).Select
    j = 0
    i = ActiveCell.Row
    lCol = Worksheets(1).Cells(i, Columns.Count).End(xlToLeft).Column
    End If
Loop While j = 0

Application.ScreenUpdating = True

End Sub


Přikládám proceduru podle mnou nadhozeného schéma. Kontrola začíná od aktivní buňky a v cyklu se projíždí každý celý řádek (nejen A sloupec), dokud není nalezen prázdný. Tam se nastaví aktivní buňka.

[guest]

http://excelplus.net/forum/viewthread.php?thread_id=508

[mmmartin]

Děkuji všem, dnes odpoledne to vyzkouším a dám vědět.


EDIT 19:30: Tak zvítězila diamantová varianta, funguje přesně podle potřeby. Děkuju.