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

MS Excel

Téma: Počítání pořadového čísla

Zaslal/a speedmax1 4.5.2012 11:23

Ahoj, potřeboval bych poradit s jednou funkcí. Vložil jsem si do rozsáhlejšího formuláře pořadová čísla (1 - ...) . Přes formulář pak mažu jednotlivé řádky a chci aby se mi pořadová čísla zařadila za sebou. Což se také děje, ale z nějakého důvodu toto řazení nefunguje na poslední řádek v tabulce. Tam číslo zůstane stejné i přes nastavený rozsah A:A. Myslím, že je kód správně, ale někde mám prostě chybu, nedalo by se alespoň upozornit na co bych se měl v kódu juknout abych to opravil? Zkusím trošku očesat formulář a vložit ho sem jakmile najdu trošku času. Předem díky za pomoc

Private Sub Smazani_zaznamu_Click()
ThisWorkbook.Worksheets(1).Activate
Dim radek, cislo, konec As Integer


'smazání označených hodnot
Selection.Delete Shift:=xlUp
cislo = cislo + 1
konec = Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets(1).Range("A:A"))
For radek = 4 To konec
ThisWorkbook.Worksheets(1).Cells(radek, 1) = cislo
cislo = cislo + 1
Next radek

Uzamčeno - nelze přidávat nové příspěvky.

---

Jeza(4.5.2012 12:00)#008366

funkce countA počítá počet hodnot ve sloupci a pokud tam máš někde prázdnou buňku (třeba v těch prvních 3 řádcích), tak o tu méně řádků to napočítá, tak bys musel buď použít konec = kone +1 pokud víš že je jen jedna, anebo přejít na jiný způsob vyhledání posledního řádku, třeba
list1.usedrange.rows.count
nebo použít smyčku typu do while.

M@citovat

Poki(4.5.2012 12:23)#008367

Mne se osvedcilo pri hledani prvniho prazdneho radku ve sloupci A toto :
cells(65000,1).end(xlup).row + 1
65000 je aproximace posledniho radku listu (pro Excel 2003, pro pozdejsi verze samozrejme vice nez 1 000 000)citovat

speedmax21(4.5.2012 12:59)#008368

Děkuji za rady, zkusím je použít někdy v dalším pokusu o tvoření kódu. Už jsem tu chybu našel nepozorností jsem zapoměl doplnil range.

konec_radku = Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets(1).Range("A:A"), 1)citovat

Poki(4.5.2012 13:07)#008369

jen pozor na to, co psal Jeza - pokud bude ve sloupci nejaka hodnota chybet (prazdna bunka), tak bude vysledek spatne!!!citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse