Como crerar un contador
Ya tengo un poco de tiempo usando el excel, pero nunca he podido hacer una celda tipo contador que vaya aumentando cada ves que se tecle una "x" en un conjunto de celda, pero que esa cantidad no diminuya al borrar la "X".
Ejemplo
A B C
1 X
2 X
3 X X X
En este caso si usara un contar.si, para que contara las celdas que contengan "x" me contaría pero al momento de borrarlas esa cantidad disminuiría.
Yo quiero que aunque se borre el contador vaya acumulando las x que se teclean en ese rango, ¿se puede?
Ejemplo
A B C
1 X
2 X
3 X X X
En este caso si usara un contar.si, para que contara las celdas que contengan "x" me contaría pero al momento de borrarlas esa cantidad disminuiría.
Yo quiero que aunque se borre el contador vaya acumulando las x que se teclean en ese rango, ¿se puede?
1 respuesta
Respuesta de Elsa Matilde
1
Necesitas agregar una rutina en el Editor, en el objeto HOJA donde tengas tus datos. (Panel a tu izquierda, VBA proyect, Microsoft Excel Objetos, doble clic en tu hoja)
Allí copiá esto, ajustando el rango de acción, que para el ejemplo lo dejé en A1:C20 y la celda contador en F1:
Private Sub Worksheet_Change(ByVal Target As Range)
'si se produjo un cambio en el rango y si ese cambio es X se incrementa la celda F1
If Not Intersect(Target, Range("A1:C20")) Is Nothing Then
If Target.Value = "X" Then Range("F1") = Range("F1") + 1
End If
End Sub
Sdos. No dejes la consulta sin finalizar si el tema quedó resuelto
Allí copiá esto, ajustando el rango de acción, que para el ejemplo lo dejé en A1:C20 y la celda contador en F1:
Private Sub Worksheet_Change(ByVal Target As Range)
'si se produjo un cambio en el rango y si ese cambio es X se incrementa la celda F1
If Not Intersect(Target, Range("A1:C20")) Is Nothing Then
If Target.Value = "X" Then Range("F1") = Range("F1") + 1
End If
End Sub
Sdos. No dejes la consulta sin finalizar si el tema quedó resuelto
