• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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:  « předchozí  1 2

Raders486(29.6.2016 10:35)#031920

ne ne nepomohlo citovat

Maximus(29.6.2016 10:54)#031921

Radek-Klepacek napsal/a:

ne ne nepomohlo

Zajímavé, mě to pracuje.citovat

elninoslov(29.6.2016 12:22)#031923

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 Subcitovat

Anonym(29.6.2016 12:38)#031924

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

elninoslov(29.6.2016 12:49)#031926

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

Raders486(29.6.2016 13:13)#031927

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 citovat

Anonym(30.6.2016 16:42)#031953

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

elninoslov(1.7.2016 14:06)#031968

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse