Excel formula

Ice

Pripravnik
17. avg 2007
816
19
18
Kako rešiti sledeč problem:

Celica D18 kjer je podatek številka primer 12

Celica B22 je zaporedna številka 1,2,3,4 itd...

Kako rešiti da v kolikor spremenim polje D18 se poveča B22 prejšnja številka + 1? Polje B22 imam potem plan zakleniti.
 

Crypto

Pripravnik
26. jan 2011
49
6
8
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