PDA

View Full Version : (ESP) macro contador



vixa85
07-24-2012, 07:58 AM
Hola!

Necesitaria hacer un macro en una hoja de excel en el que cada vez que cambio el valor de una celda haya un contador que sume uno.

Es decir yo tengo la celda A1 donde escribo un valor y luego cada vez que ese valor es cambiado yo pueda ver en una celda B2 el numero de veces que la celda A1 a sido modificada.

yo e inentado hacer algo asi pero no funciona. me podrian ayudar?

Private Sub Worksheet_Change(ByVal Target As Range)
contador = "B1"
celda = "A1"
If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then
n=0
contador = n + 1
"B1" = Contador
End If
End Sub

msdn
08-28-2012, 08:10 AM
hola vixa85,
te dejo el codigo ya corregido, espero sea lo que quieres.

Private Sub Worksheet_Change(ByVal Target As Range)
contador = Range("B1")
Celda = "A1"
If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then
contador = contador + 1
Range("B1") = contador
End If
End Sub