Ahoj, moznosti jak poznat posledni radku je vic (viz googl). Ja pouzivam Sheet.UsedRange.Rows.Count (nevim jestli se to pise presne takhle, nepouzivam VB, kazdopadne nazvy tech properties jsou stejne).citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: posldní rádek
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: posldní rádek 
Zaslal/a 30.11.2009 14:29
Zdravím,
potřebovala bych prosím poradit, snažím se udělat makro na kopírovaní dat ze souboru do souboru a narazila jsem na to že nevým jak zjistit poslední použitou řádku. Respektive potřebuju přikopírovat nová data za stará. Poradil by mi někdo prosím
Uzamčeno - nelze přidávat nové příspěvky.(1.12.2009 8:13)#000880
(2.12.2009 19:46)#000888
ahoj,
jednoduche je pouzit funkci listu CountA (počet2)
takto:
a = Application.WorksheetFunction.CountA(Columns(1))
promenna 'a' obsahuje počet neprázdných řádků ve sloupci A, první prázdný řádek ve sloupci A(1) tedy dostaneme přičtením 1 takto:
b = Application.WorksheetFunction.CountA(Columns(1)) + 1citovat
jednoduche je pouzit funkci listu CountA (počet2)
takto:
a = Application.WorksheetFunction.CountA(Columns(1))
promenna 'a' obsahuje počet neprázdných řádků ve sloupci A, první prázdný řádek ve sloupci A(1) tedy dostaneme přičtením 1 takto:
b = Application.WorksheetFunction.CountA(Columns(1)) + 1citovat
Ahoj,
koukám jak všichni mají jednoduché tipy a já to doposud dělal smyčkou :-)
public sub radky()
dim radek as single
radek = 2' začínám většinou od druhého řádku (první je hlavička)
do while cells(radek,1) <> ""
radek = radek + 1
loop
msgbox radek 'číslo prvního prázdného řádku ve sloupci 1 (A)
End sub
M@citovat
koukám jak všichni mají jednoduché tipy a já to doposud dělal smyčkou :-)
public sub radky()
dim radek as single
radek = 2' začínám většinou od druhého řádku (první je hlavička)
do while cells(radek,1) <> ""
radek = radek + 1
loop
msgbox radek 'číslo prvního prázdného řádku ve sloupci 1 (A)
End sub
M@citovat
(13.2.2014 17:24)#017842
to přeci obecně neplatí; co když mám mezi řádky vyplněnými také řádek prázdný? Nebo jich mám více? Typicky sledování postupného doplňování dat (například vím, že mám 100 registratur, ale počet dokumentů v nich vkládám napřeskáčku podle toho, jak se ke které dostanu...)citovat
pokud nejsou data souvislá a potřebujete zjistit poslední řádek v jednom sloupci tak třeba maticovým vzorcem
=ODKAZ(MAX(ŘÁDEK(data)*(data<>""));SLOUPEC(data))
kde "data" je pojmenovaný sloupec
nebo poslední buňka v oblasti
=ODKAZ(MAX(KDYŽ(NE(JE.PRÁZDNÉ(data1));ŘÁDEK(data1)));MAX(KDYŽ(NE(JE.PRÁZDNÉ(data1));KDYŽ(ŘÁDEK(data1)=MAX(KDYŽ(NE(JE.PRÁZDNÉ(data1));ŘÁDEK(data1)));SLOUPEC(data1)))))
kde data1 je nějaká pojmenovaná oblast buněk třeba A1:F100 a opět maticově
a jinak je to téma staré skoro 5 roků, takže trošičku pozdní reakce, ale to nevadí
citovat
=ODKAZ(MAX(ŘÁDEK(data)*(data<>""));SLOUPEC(data))
kde "data" je pojmenovaný sloupec
nebo poslední buňka v oblasti
=ODKAZ(MAX(KDYŽ(NE(JE.PRÁZDNÉ(data1));ŘÁDEK(data1)));MAX(KDYŽ(NE(JE.PRÁZDNÉ(data1));KDYŽ(ŘÁDEK(data1)=MAX(KDYŽ(NE(JE.PRÁZDNÉ(data1));ŘÁDEK(data1)));SLOUPEC(data1)))))
kde data1 je nějaká pojmenovaná oblast buněk třeba A1:F100 a opět maticově
a jinak je to téma staré skoro 5 roků, takže trošičku pozdní reakce, ale to nevadí
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nFormulář 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