Stránka 1 z 1
Makro pro přechod na poslední vyplněný řádek v Excelu
Napsal: 24 úno 2012 20:47
od 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? Ď.
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
Napsal: 24 úno 2012 20:57
od 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
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
Napsal: 24 úno 2012 21:42
od 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í.
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
Napsal: 24 úno 2012 22:08
od 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
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
Napsal: 26 úno 2012 23:01
od 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.
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
Napsal: 27 úno 2012 00:53
od guest
Re: Makro pro přechod na poslední vyplněný řádek v Excelu Vyřešeno
Napsal: 27 úno 2012 08:42
od 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.