Makro pro přechod na poslední vyplněný řádek v Excelu Vyřešeno
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9511
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Makro pro přechod na poslední vyplněný řádek v Excelu
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? Ď.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
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
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
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í.
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í.
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
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
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Re: Makro pro přechod na poslední vyplněný řádek v Excelu
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.
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9511
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro pro přechod na poslední vyplněný řádek v Excelu Vyřešeno
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.
EDIT 19:30: Tak zvítězila diamantová varianta, funguje přesně podle potřeby. Děkuju.
Naposledy upravil(a) mike007 dne 29 úno 2012 11:21, celkem upraveno 1 x.
Důvod: Téma označuji za vyřešené.
Důvod: Téma označuji za vyřešené.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 2012
-
od ITCrowd
Zobrazit poslední příspěvek
03 črc 2023 21:26
-
- 7
- 1278
-
od petr22
Zobrazit poslední příspěvek
15 říj 2023 15:07
-
- 19
- 3843
-
od Roman Tyčka
Zobrazit poslední příspěvek
12 pro 2023 05:39
-
- 3
- 958
-
od sasshrek
Zobrazit poslední příspěvek
23 pro 2023 18:43
-
-
Přechod na Mac - jaký externí disk
od Gudernatsch » 24 bře 2024 18:14 » v Rady s výběrem hw a sestavením PC - 3
- 874
-
od Gudernatsch
Zobrazit poslední příspěvek
24 bře 2024 18:34
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů