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

MS Excel

Téma: posldní rádek

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

---

Val(1.12.2009 8:13)#000880

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

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

Jeza.m(2.12.2009 22:58)#000891

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

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

Opičák(13.2.2014 17:54)#017843

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse