autosuma/resta

Gabriel:
¿Le vas a dar una utilidad real a esto? o solo es por practicar...



"Gabriel Lopez" wrote:

hola, estoy buscando alguna funcion o solucion a esto que llame
autosuma/resta
el ej seria que yo tengo en a1 la cantidad de 10 y en b1 voy agregando
cantidades, lo que quisiera es que me sumara o restara
automaticamente en a1, o sea si yo escribo 50 en b1 en a1 me aparezca 60
gracias
Gabriel Lopez
Bajolanus Informatica
Movil 15.6094.3932
Radio 568*6369

"Gabriel Lopez" escribió en el mensaje news:

hola, estoy buscando alguna funcion o solucion a esto que llame autosuma/resta
el ej seria que yo tengo en a1 la cantidad de 10 y en b1 voy agregando cantidades, lo que quisiera es que me sumara o restara
automaticamente en a1, o sea si yo escribo 50 en b1 en a1 me aparezca 60

Hola,
prueba el siguiente bloque como evento '_Change' de la hoja de trabajo en la que quieras aplicarlo:

'***************
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$B$1" And .Value <> "" Then
If IsEmpty(.Value) = False And IsNumeric(.Value) Then Cells(1, 1) = Cells(1, 1) + .Value
.Select: .Value = ""
End If
End With
End Sub
'***************
o en el evento 'WorkBook_SheetChange' del objeto "ThisWorkbook" si deseas aplicarlo a todas las hojas del libro.

Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

hola, Gabriel !

... estoy buscando alguna funcion o solucion a esto que llame autosuma/resta
el ej seria que yo tengo en a1 la cantidad de 10 y en b1 voy agregando cantidades
lo que quisiera es que me sumara o restara automaticamente en a1
o sea si yo escribo 50 en b1 en a1 me aparezca 60

ve si te sirve algo de lo comentado en las siguientes conversaciones: -> http://tinyurl.com/oe94m

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

es para un control de stock...
"Servando" escribió en el mensaje
news:

Gabriel:
¿Le vas a dar una utilidad real a esto? o solo es por practicar...



"Gabriel Lopez" wrote:

hola, estoy buscando alguna funcion o solucion a esto que llame
autosuma/resta
el ej seria que yo tengo en a1 la cantidad de 10 y en b1 voy agregando
cantidades, lo que quisiera es que me sumara o restara
automaticamente en a1, o sea si yo escribo 50 en b1 en a1 me aparezca 60
gracias
Gabriel Lopez
Bajolanus Informatica
Movil 15.6094.3932
Radio 568*6369

se agradace ya lo estoy probando, despues te comento
perdon por la tardanza en responder

"Vinchenzo vinç" escribió en el mensaje
news:

"Gabriel Lopez" escribió en el mensaje
news:

hola, estoy buscando alguna funcion o solucion a esto que llame
autosuma/resta
el ej seria que yo tengo en a1 la cantidad de 10 y en b1 voy agregando
cantidades, lo que quisiera es que me sumara o restara
automaticamente en a1, o sea si yo escribo 50 en b1 en a1 me aparezca 60

Hola,
prueba el siguiente bloque como evento '_Change' de la hoja de trabajo
en la que quieras aplicarlo:

'***************
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$B$1" And .Value <> "" Then
If IsEmpty(.Value) = False And IsNumeric(.Value) Then Cells(1,
1) = Cells(1, 1) + .Value
.Select: .Value = ""
End If
End With
End Sub
'***************
o en el evento 'WorkBook_SheetChange' del objeto "ThisWorkbook" si
deseas aplicarlo a todas las hojas del libro.

Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn