MS Excel

Téma: Automatické číslování

Zaslal/a Rattus 19.7.2011 11:00

Ahoj,

mám prosbu, v excelu jsem LAMA :)a potřeboval bych do přiloženého souboru (pro ukázku) zadat automatické číslovánídle výběru. Můžete mi prosím někdo pomoci. Předem moc díky.

Příloha: zip

5541_posta.zip (16kB, staženo 32x)

Zaslat odpověď >

Jeza.m(19.7.2011 15:52)#005548

Nevím jestli to dobře chápu :-).
Když v listu 1 (Odeslaná pošta), zapíšeš něco na nový řádek, tak chceš aby se doplnilo následující pořadové číslo?

Pok do procedure Workbook_Change na listu 1 zadej:

If Cells(Target.Row, 1) = "" Then Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A:A")) + 1

bude vypadat nějak takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1) = "" Then Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A:A")) + 1
End Sub
M@citovat

Rattus(19.7.2011 20:09)#005554

No přesně mi jde o toto:

vyplnim (datum,kdo,název firmy,přijmení a jméno,předmět) pak zvolim v seznamu třeba "Objednávka" tak aby ve sloupci objednávka bylo (1,2, ......... 1000).
To same pro "Poptávka a Nabídka" atd.. - příklad je uveden v příloze - podotýkám, že je to doplněno pouze pro informaci ..... :) Předem moc děkuji za POMOC.

Příloha: zip