< 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:  « předchozí  1 2
#031920
avatar
ne ne nepomohlo 6 5citovat
#031921
avatar

Radek-Klepacek napsal/a:

ne ne nepomohlo


Zajímavé, mě to pracuje.citovat
#031923
elninoslov
Prečo chcete silou-mocou použiť xlDown ? Použite xlUp. Toto funguje na Vašom súbore na každom jednom liste:
Sub PrvyVolny()
Cells(Rows.Count, 8).End(xlUp).Offset(1).Select
End Sub
citovat
#031924
avatar

elninoslov napsal/a:

Prečo chcete silou-mocou použiť xlDown ? Použite xlUp.


Jelikož - citace:

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
#031926
elninoslov
Tak skúste :
Range("H:H").SpecialCells(xlCellTypeBlanks).Cells(1).Select
resp. takto, ak to má začínať až od H2 (ak H1 nemá byť náhodou zahrnutá):
Range("H2:H" & Rows.Count).SpecialCells(xlCellTypeBlanks).Cells(1).Selectcitovat
#031927
avatar
Tak problém vyřešen a opět platí, problém mezi klávesnicí a židlí.

Prošel jsem všechny sloupce a zjistil, že ve sloupcích B a C, tam kde jsem se domníval, že nic není, je zapsána nula, proto se makro odkazovalo jinam než jsem chtěl.

Všem děkuji za snahu i rady a omlouvám se za paniku, spolehlivě funguje kód Devila 5citovat
#031953
avatar
Mám podobný problém.
Jak bych mohl napsat např. Range("H5:N146000"), tak aby číslo řádku u sloupce N bylo aktuální podle posledního právě obsazeného řádku ve sloupci A?

Pro použití do:
Range("H5:N5").Select
Selection.AutoFill Destination:=Range("H5:N146000")

Díkycitovat
#031968
elninoslov
Range("H5:N" & Cells(Rows.Count, 1).End(xlUp).Row)
alebo
Cells(5, 8).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 4, 7)
citovat

Strana:  « předchozí  1 2

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse