Excel - Incrementar cambio

   
Vista:

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)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For x = 0 To 5
    If 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder