does anyone can explain these code

[pplza]

this is code is work great! but I dont know what they are mean

for someday I apply it to other work.

Dim r As Range
Dim c As Boolean

Private Sub worksheet_calculate()
'    Dim Target As Range
'    Set Target = Range("A1")
    If c = False Then
        c = True
        Exit Sub
    End If
    If r.Count > 1 Then Exit Sub
     Application.EnableEvents = False
        If Not Intersect(r, Me.[k1:k16]) Is Nothing Then
            If r.Value = 0 Then
            Me.Cells(r.Row, "c").Value = Me.Cells(r.Row, "c").Value + 1
            End If
        End If
    c = False
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If c = False Then Exit Sub
    Set r = Target
    c = True
    r.Value = r.Value
End Sub

 

[BSALV]

this is code is work great!

bizar, does this code work ? Are c and r public or global variables ?
summarized :
- Worksheet_Change : replaces the content of your last changed cell/range into the value
- worksheet_calculate : is r not in the range K1:K16 and r is 0 then replace r with the value of the cell underneath +1

 

[pplza]

bizar, does this code work ? Are c and r public or global variables ?
summarized :
- Worksheet_Change : replaces the content of your last changed cell/range into the value
- worksheet_calculate : is r not in the range K1:K16 and r is 0 then replace r with the value of the cell underneath +1

 Application.EnableEvents = False
        If Not Intersect(r, Me.[k1:k16]) Is Nothing Then
            If r.Value = 0 Then
            Me.Cells(r.Row, "c").Value = Me.Cells(r.Row, "c").Value + 1
            End If
        End If
    c = False
    Application.EnableEvents = True

can you explain line of this code? thank you in advance

 

[BSALV]

Application.EnableEvents = False                                'don't react on events (selection change, change, activate, ...) starting from this point (otherwise endless loop)
If Not Intersect(r, Me.[k1:k16]) Is Nothing Then                'if your r has something in common with the range K1:K16
     If r.Value = 0 Then                                        'if the value of r is 0
          Me.Cells(r.Row, "c").Value = Me.Cells(r.Row, "c").Value + 1     'the value of the cell in column C of the same row as r is incremented by 1
     End If
End If
c = False                                                       'some boolean c is reset
Application.EnableEvents = True                                 'starting from here, react again on events