Incrementar cambio
Publicado por Martin (1 intervención) el 23/02/2018 16:53:47
buenas tengo un problema quiero que cada vez que se haga cambio en un rango de celdas se incremente la cantidad de veces que se cambio, tengo este codigo
Private Sub Worksheet_Change(ByVal Target As Range)
pero cuando realizo un cambio me marca de frente el valor final del for, agradecería mucho su ayuda
Private Sub Worksheet_Change(ByVal Target As Range)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For x = 0 To 5If Application.Intersect(Target, Range("E9:AF53")) Is Nothing Then
Exit Sub
Else
If Target.Column < 42 Then
Cells(Target.Row, 48).Value = x
End If
End If
Next x
End Sub
pero cuando realizo un cambio me marca de frente el valor final del for, agradecería mucho su ayuda
Valora esta pregunta
0