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

MS Excel

Téma: Přidávání záznamů

Zaslal/a speedmax1 16.6.2010 18:00

Ahoj všichni, dnes jsem si vytvořil svůj první formulářík v Excelu s rozpačitým výsledkem. Nepodařilo se ho "přemluvit" aby po spuštění procedury comand butonu zadával data do nového řádku. Data neustále přepisuje. Nejspíš to bude špatné namapování první volné buňky. (potřebuji aby začínala až na 3 řádku)

NextRow = Application.WorksheetFunction.CountA(Range("A:A 3:3")) + 1

Omlouvám se za Lamovský dotaz ale opravdu s tím už bojuju.
Mým cílem po dokončení je vytvoření tabulky, který bude plnit funkci záznamu různých hlášení.
Děkuji za jakoukoliv radu...

Příloha: 1808_kniha__hlaseni.rar (29kB, staženo 30x)

Zaslat odpověď >

---

Poki(16.6.2010 19:43)#001810

Funkce CountA, kterou pouzivate pro stanoveni prazdne bunky umi pouze spocitat, kolik zaznamu je v zadane oblasti.
Pokud mate tedy sloupec, kde se bude ve dvou radcihch (v prvnim a druhem) nachazet zahlavi, pak lze pouzit v tomto tvaru
NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1,
kde +1 uda dalsi radek od posledniho zaplneneho, ale POZOR, nesmite mit zadnou prazdnou bunku ve sloupci A pred zahlavim...citovat

speedmax1(16.6.2010 20:04)#001811

Děkuji za radu. Už to funguje. Teď jen najít způsob jak vytvořit pořadové číslo:)tzn. předchozí číslo (záznam) +1citovat

Poki(16.6.2010 22:53)#001812

Myslim, ze postaci, kdyz do textboxu nactete posledni cislo +1 (jen pozor na situaci, kdy se zadava prvni zaznam).
posledni cislo je: cells(Application.WorksheetFunction.CountA(Range("A:A")),1)

Taky chci upozornit, ze tento sloupec udava pocet zaznamu, takze musite doplnit poradove cislo az po doplneni ostatnich dat v radku (pokud byste doplnil nejdrive poradove cislo, ostatni hodnot by byly o radek nize).citovat

speedmax1(17.6.2010 0:07)#001813

Musím se přiznat, že to toto už je na mě vyšší dívčí. Nějak mi uniká použití toho textboxu do kterého mám načítat poslední hodnotu.

Šel jsem na to takto:

Cells(NextRow, 1) = Cells(Application.WorksheetFunction.CountA(Range("A:A")), 1) + 1

Řešení funguje, ALE hází chybu když v tabulce nejsou žádné záznamy. Takže vlastně nepoužitelné. Každopádně děkuji za snahu.citovat

Poki(17.6.2010 9:27)#001814

chapu - zkuste prilozit posledni verzi vaseho souboru, pridelam vam to tam...citovat

speedmax1(17.6.2010 9:44)#001815

Děkuji za velmi vstřícný přístup.

Příloha: 1815_kniha__hlaseni.zip (39kB, staženo 32x)

citovat

Jeza.m(17.6.2010 12:47)#001816

Když tak koukám na ten příklad tak by klidně šlo použít: Cells(NextRow, 1) = nextrow-2
kdy -2 = dva řádky hlavičky :-), ale sám bych šel cestou vyhledání nejvyšší hodnoty ve sloupci A a k té bych přičetl 1:Cells(NextRow, 1) = Application.WorksheetFunction.Max(Range("A:A")) + 1

M@citovat

Poki(17.6.2010 14:09)#001817

asi takto

Příloha: 1817_kniha__hlaseni2.zip (41kB, staženo 38x)

citovat

speedmax1(17.6.2010 14:57)#001819

Děkuju moc chlapi. Obě řešení jsem zkoušel a fungují. Doufám, že i dalším začátečníkům tohle může pomoct. Je spousta jiných dotazů, která mě v téhle chvilce napadají ale nejspíš půjdu a koupím si knížku o VBA nebo tu nahodím další vlákno. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse