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

MS Excel

Téma: automatické číslování řádku

Zaslal/a Marw 4.7.2021 8:20

Dobrý den, potřeboval bych poradit s jednou věcí. Mám "n" počet řádku, (počet bude pokaždé jiný).
Potřeboval bych, aby se po stistku tlačítka řádky očíslovaly po 10.
Začínám v bunce A1.První řádek bude v buňce A1.
V příloze posílám printscreen jak by to mělo vypadat po provedení.
Děkuji za pomoc.
Martin

Příloha: 50934_excel_radky.png (9kB, staženo 57x)

Zaslat odpověď >

---

Lugr(4.7.2021 13:04)#050937

Hezký Printscreen.

Příloha: 50937_radek.xlsx (9kB, staženo 21x)

citovat

Marw(6.7.2021 16:04)#050946

Díky, ale bohužel potřeboval bych to udělat jako marko po stisknutí tlačítka.citovat

veny(6.7.2021 17:52)#050947

nejsem přes VBA takže jen pomocí záznamníku plus doplnění sellect
určitě to půjde mnohem lépe a hezčeji
Sub Nbr()
Range("A1").Select
ActiveCell.FormulaR1C1 = "10"
Range("A2").Select
ActiveCell.FormulaR1C1 = "20"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault
Range("A1:A10").Select
End Subcitovat

elninoslov(6.7.2021 18:52)#050948

Sub Ocisluj()
Dim N As Long
N = 1
Worksheets("Hárok1").Range("A1").Resize(N).Value = Evaluate("=ROW(1:" & N & ")*10")
End Subcitovat

Anonym(6.7.2021 20:20)#050949

tak už vyřešeno.citovat

Marw(6.7.2021 20:23)#050950

Díky za typy. mezi tím se mě to podařilo už taky vyřešit.
For i = 10 To radek
Cells(i, 1).Value = cislo_radku
cislo_radku = cislo_radku + 10
Next i
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse