Uporabljate neposodobljen brskalnik. Ta ali druga spletna stran morda ne bo prikazana pravilno. Posodobite brskalnik ali uporabite alternativni brskalnik.
Jaz bi v VB macro editorju na Change event od worksheeta dodaj naslednjo kodo :
Koda:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = "$D$18" Then
Range("B22").Select
If IsNumeric(ActiveCell.FormulaR1C1) Then
On Error Resume Next
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
On Error GoTo 0
End If
Range("D18").Select
End If
End Sub
Ta stran uporablja piškotke, ki vam pomagajo prilagoditi vsebino in funkcionalnosti ter obdržati prijavo, če ste registrirani.
Z nadaljnjo uporabo tega spletnega mesta soglašate z našimi piškotki.