excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: První prázdná bňka
z těchto stránek čerpám, ale problém je v tom, že i když změním oblast oblast na H1 tak mi to hledá řádky podle sloupce Acitovat
tak to tedy nevím, co Vám na tomto makru může fungovat? :-)citovat
, že najde poslední plný řádek ve sloupci "H" a zapíše hodnotu do buňky "K1" a nehledá to ve sloupci "A" jak psal tazatel.citovat
Zkuste toto.
Sub najdi()
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
Range("H1").Offset(PosledniPlnyRadek, 0) = "d"
End Subcitovat
MS Excel
Téma: První prázdná bňka 
Zaslal/a Raders486 29.6.2016 9:13
Proč mi prosím nenajde první prázdnou buňku ve sloupci H?
Range("H1").Select
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
PrvniPrazdnyRadek = PosledniPlnyRadek + 1
Cells(PrvniPrazdnyRadek, 8).Select
Děkuji
(29.6.2016 9:25)#031910
z těchto stránek čerpám, ale problém je v tom, že i když změním oblast oblast na H1 tak mi to hledá řádky podle sloupce Acitovata co jen
sub LRadekSloupH ()
Range("H1").End(xlDown).Offset(1, 0).Select
end sub
ale jinak by mělo fungovat i to Tebou převzaté, spíš máš v makru další procedury, které Tě směřují na jiné buňkycitovat
sub LRadekSloupH ()
Range("H1").End(xlDown).Offset(1, 0).Select
end sub
ale jinak by mělo fungovat i to Tebou převzaté, spíš máš v makru další procedury, které Tě směřují na jiné buňkycitovat
(29.6.2016 9:48)#031913
Zkusil jsem toto a bez problému
Sub najdi()
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
Range("K1") = PosledniPlnyRadek
End Subcitovat
Sub najdi()
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
Range("K1") = PosledniPlnyRadek
End Subcitovat
Maximus napsal/a:
Zkusil jsem toto a bez problému
Sub najdi()
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
Range("K1") = PosledniPlnyRadek
End Sub
tak to tedy nevím, co Vám na tomto makru může fungovat? :-)citovat
V příloze tabulka se stavem jak dopadlo po provedení níže uvedeného makra od Devila.
Jde o to, že do řádku kde má byt souvislé černé podbarvení, potřebuji do sloupce "H" dostat do nepodbarvené buňky černé podbarvení a písmeno "d"
V listě "20341" kód zapracoval jak měl, ale u ostatních ne.
Proč?
Jde o to, že do řádku kde má byt souvislé černé podbarvení, potřebuji do sloupce "H" dostat do nepodbarvené buňky černé podbarvení a písmeno "d"
V listě "20341" kód zapracoval jak měl, ale u ostatních ne.
Proč?
Příloha: 
31915_plany-zamecnik.7z (138kB, staženo 34x)
citovat31915_plany-zamecnik.7z (138kB, staženo 34x)(29.6.2016 10:03)#031916
Devil napsal/a:
tak to tedy nevím, co Vám na tomto makru může fungovat? :-)
, že najde poslední plný řádek ve sloupci "H" a zapíše hodnotu do buňky "K1" a nehledá to ve sloupci "A" jak psal tazatel.citovat
Ale já potřebuji první prázdnou buňku od H1 směrem dolů :)
Někde to může být tak, že prvních 20 buněk ve sloupci H jsou obsazeny a jindy se může stát, že třeba hned H3 je prázdná. Viz příloha, kterou jsem posílal.citovat
Někde to může být tak, že prvních 20 buněk ve sloupci H jsou obsazeny a jindy se může stát, že třeba hned H3 je prázdná. Viz příloha, kterou jsem posílal.citovat
(29.6.2016 10:21)#031918
Radek-Klepacek napsal/a:
V listě "20341" kód zapracoval jak měl, ale u ostatních ne.Proč?
Zkuste toto.
Sub najdi()
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
Range("H1").Offset(PosledniPlnyRadek, 0) = "d"
End Subcitovat
(29.6.2016 10:25)#031919
Jen tak náhodou, ve sloupci "H", nechcete doplnit dvě prázdné buňky zároveň?citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články