5541_posta.zip
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
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
RSS nejnovější články