< návrat zpět

MS Excel


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

Zaslal/a 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: png50934_excel_radky.png (9kB, staženo 35x)
50934_excel_radky.png
Zaslat odpověď >

#050937
Lugr
Hezký Printscreen. 1
Příloha: xlsx50937_radek.xlsx (9kB, staženo 8x)
citovat
#050946
avatar
Díky, ale bohužel potřeboval bych to udělat jako marko po stisknutí tlačítka.citovat
#050947
avatar
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 3
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 Sub
citovat
#050948
elninoslov
Sub Ocisluj()
Dim N As Long
N = 1
Worksheets("Hárok1").Range("A1").Resize(N).Value = Evaluate("=ROW(1:" & N & ")*10")
End Sub
citovat
#050949
avatar
tak už vyřešeno.citovat
#050950
avatar
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01

Ověření datumu TextBox1.Text

Scraper • 18.10. 18:25

Auto mazanie emailov

Pavol1 • 18.10. 17:10

zdroj dat ve VBA

elninoslov • 18.10. 17:08

zdroj dat ve VBA

lubo • 18.10. 15:40

EXCEL VBA vyhledání buňky

lubo • 18.10. 15:39