sumar celda con cuadro de texto vacio

If TextBox51.Value > "" Then Sheets("ARqueo de caja").[b7] = _
Sheets("ARqueo de caja").[b7] + TextBox51.Value

Saludos desde Tenerife: Antonio.
*********************************
"GRIEGO59" escribió en el mensaje
news:

Buenas
Tengo el siguiente código en un boton de un formulario de excel 2003
Sheets("ARqueo de caja").[b7]=Sheets("ARqueo de caja").[b7]+Textbox51.value

Este código es para que sume b7 de la hoja arqueo de caja con textbox51 y el
resultado lo ubique en b7 de la hoja arqueo de caja.

El problema es que si b7 está vacio me da error de compilacion y me lleva al
código.
Me pueden ayudar?
Gracias.
Osiris Darío Salazar Cabello

hola, Darío !

me da la impresion de que si la falla ocurre cuando [b7] esta (aparentemente) "vacia"...
la causa del error podria ser porque dicha celda [b7] NO esta (realmente) "vacia" -???-
(p.e.) es probable que contenga una formula del tipo =si(condicion,valor,"")
o sea, que al (no) cumplirse alguna condicion, una formula este depositando una cadena de texto (aun "vacia")
lo que ocasionaria problemas cuando "trates de sumar" un valor de texto con un valor numerico -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

Tengo el siguiente codigo en un boton de un formulario de excel 2003
Sheets("ARqueo de caja").[b7]=Sheets("ARqueo de caja").[b7]+Textbox51.value

Este codigo es para que sume b7 de la hoja arqueo de caja con textbox51
y el resultado lo ubique en b7 de la hoja arqueo de caja.

El problema es que si b7 esta vacio me da error de compilacion y me lleva al codigo.
Me pueden ayudar?

Hola!
Gracias por sus respuestas.
Al intentar sumar valores de texto con valores numéricos, me causaba
problemas.
Terminé modificando tu código de AnSanVal así

Private Sub CommandButton1_Click()
If TextBox51.Value < 10000000 Then Sheets("ARqueo de caja").[b7] = _
Sheets("ARqueo de caja").[b7] + TextBox51.Value
End Sub

De esta forma si por error se introducen valores de texto en el textbox la
fórmula no se ejecuta.

Como puedo decirle más profesionalmente al código que si hay valores de
texto no ejecute la fórmula?

Osiris Darío Salazar Cabello


"Héctor Miguel" escribió:

hola, Darío !

me da la impresion de que si la falla ocurre cuando [b7] esta (aparentemente) "vacia"...
la causa del error podria ser porque dicha celda [b7] NO esta (realmente) "vacia" -???-
(p.e.) es probable que contenga una formula del tipo =si(condicion,valor,"")
o sea, que al (no) cumplirse alguna condicion, una formula este depositando una cadena de texto (aun "vacia")
lo que ocasionaria problemas cuando "trates de sumar" un valor de texto con un valor numerico -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> Tengo el siguiente codigo en un boton de un formulario de excel 2003
> Sheets("ARqueo de caja").[b7]=Sheets("ARqueo de caja").[b7]+Textbox51.value
>
> Este codigo es para que sume b7 de la hoja arqueo de caja con textbox51
> y el resultado lo ubique en b7 de la hoja arqueo de caja.
>
> El problema es que si b7 esta vacio me da error de compilacion y me lleva al codigo.
> Me pueden ayudar?