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

Zaslat odpověď >

Strana: 1 2 další »

Maximus(29.6.2016 9:25)#031910

Snad to pomůže.

http://office.lasakovi.com/excel/vba-listy-bunky/radky-sloupce-excel-vba-kody/#03 citovat

Raders486(29.6.2016 9:36)#031911

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

Devil(29.6.2016 9:41)#031912

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

Maximus(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

Devil(29.6.2016 9:51)#031914

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

Raders486(29.6.2016 9:58)#031915

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:

31915_plany-zamecnik.7z (138kB, staženo 50x)

citovat

Maximus(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

Raders486(29.6.2016 10:11)#031917

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

Maximus(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

Maximus(29.6.2016 10:25)#031919

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)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio