Otra Pregunta sobre Private Sub Worksheet_Change

On Saturday, 28 July 2012 21:27:09 UTC+1, titopose wrote:
Mostrar la cita

¡ Hola !

En el ejemplo de la pregunta anterior sobre Private Sub Worksheet_Change todo

funciona bien.(incluído el cambio sugerido por Pedro).

Pero, siempre hay un pero, cuando sobre el rango target (columna e) se teclea

la

barra espaciadora, da error y me hace saltar un texbox de alerta que tengo a

ese

efecto.

Me pregunto si tecleando "enter" o entrando "cero" no me
da,

error, por que la barra espaciadora si?, y como puedo hacer para evitarlo?.

Gracias!

El error lo da porque Cantidad es una variable numérica, excel espera un
número pero si escribes un espacio al intentar asignar un espacio en
blando a cantidad>>> Error.

Si estoy en lo cierto esto no solo ocurre con la barra espaciadora, imagino que
también ocurrirá al escribir cualquier texto, una letra
cualquiera, o un nombre, ¿no es así?

La forma de solucionarlo depende que cómo quieras considerar un espacio
en blanco. ¿Quieres que en la otra celda aparezca el número 0?
¿Que no aparezca nada? ¿Y si alguien escribe por error un texto?
La letra O mayúscula en lugar del cero por ejemplo: '1O5' << eso
de ahí es una O mayúscula :-)

Esto se podría arreglar en la macro añadiendo un control para
asegurarnos que solo se puedan escribir números y que cualquier otra
cosa la considere vacía y por tanto en la otra celda (Columna D) no
aparezca nada.
añadiendo esta línea en la macro:
If Val(Target.Value) = 0 Then ActiveCell.Offset(-1, -1).Value = "":
Exit Sub

justo debajo de la línea del IsEmpty(Target)


O también lo puedes controlar mediante Validación de Datos, sin
necesidad de alterar la macro. Seleccionando la columna entera y restringiendo
la entrada solo a números. Para que nadie escriba ningún texto en
esa columna ;-)


Saludos,
Pedro