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: png

50934_excel_radky.png (9kB, staženo 61x)

Zaslat odpověď >

Lugr(4.7.2021 13:04)#050937

Hezký Printscreen.

Příloha: xlsx

50937_radek.xlsx (9kB, staženo 22x)

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)

Formulář 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.