< návrat zpět

MS Excel


Téma: První prázdná bňka rss

Zaslal/a 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

Zaslat odpověď >

Strana:  1 2   další »
#031910
avatar
Snad to pomůže.

http://office.lasakovi.com/excel/vba-listy-bunky/radky-sloupce-excel-vba-kody/#03citovat
#031911
avatar
1 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
#031912
avatar
a 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
#031913
avatar
Zkusil jsem toto a bez problému
Sub najdi()

PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
Range("K1") = PosledniPlnyRadek
End Sub
citovat
#031914
avatar

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
#031915
avatar
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č?
Příloha: 7z31915_plany-zamecnik.7z (138kB, staženo 14x)
citovat
#031916
avatar

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
#031917
avatar
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
#031918
avatar

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 Sub
citovat
#031919
avatar
Jen tak náhodou, ve sloupci "H", nechcete doplnit dvě prázdné buňky zároveň?citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse