Ayuda para mejorar código

31/12/2003 - 17:03 por Jesus | Informe spam
Hola a todos,
Tengo el siguiente código para evitar una referencia circular, que suma
en la columna C el valor que se introduce en el rango A12:A150 y quisiera
que al poner un número en una de estas celdas, además de sumarlo, al pulsar
Enter la celda quede vacía (ahora el número permanece).
Espero haberme explicado, y muchas gracias y Feliz Año.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A12:A150")) Is Nothing Then Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + Target.Value
End Sub

Preguntas similare

Leer las respuestas

#1 Benito Merino
31/12/2003 - 17:43 | Informe spam
Hola Jesús:

Añade Target.value=""


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A12:A150")) Is Nothing Then
Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value +
Target.Value
Target.Value = ""
End Sub

Saludos,

Benito Merino
Barcelona

Hola a todos,
Tengo el siguiente código para evitar una referencia


circular, que suma
en la columna C el valor que se introduce en el rango


A12:A150 y quisiera
que al poner un número en una de estas celdas, además de


sumarlo, al pulsar
Enter la celda quede vacía (ahora el número permanece).
Espero haberme explicado, y muchas gracias y Feliz


Año.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A12:A150")) Is Nothing Then


Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value +


Target.Value
End Sub


.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida