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
 

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

Mostrar la cita
circular, que suma
Mostrar la cita
A12:A150 y quisiera
Mostrar la cita
sumarlo, al pulsar
Mostrar la cita
Año.
Mostrar la cita
Exit Sub
Mostrar la cita
Target.Value
Mostrar la cita

Preguntas similares