< 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 57x)
50934_excel_radky.png
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#050937
Lugr
Hezký Printscreen. 1
Příloha: xlsx50937_radek.xlsx (9kB, staženo 21x)
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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09