Si la nueva cifra a ingresar es menor que la ya existente en la celda actual, no me permita continuar, en Excel, vb.

Para Elsa:

Para Elsa:

Hola tengo este pequeño código que me permite controlar el contenido de taxbox5 antes de pasarlo a la hoja, si el contenido del texbox5 es menor que el de la celda anterior, no me permite continuar y me devuelve a la posición de “taxbox5”, excepto con los siguientes cifras “4” – “400”-“ 600”- “4.000”, con estos dígitos el código no esta fusionando porque aunque el valor de la celda anterior sea mayor que cualquiera de ellos, los datos pasan a la hoja sin ningún control. ¿Por favor me podría ayudar?, gracias por su colaboración.

'-----------EM: antes de pasar datos a la hoja controla contenido de textbox5

If Cells(uf - 1, col.Column + 3) > textbox5 Then

    MsgBox "Debes ingresar una cifra mayor"

    textbox5.SetFocus

    Exit Sub

End If

'----------------------------

1 respuesta

Respuesta
1

Si las cifras son enteras debes evaluar:

If Cells(uf - 1, col.Column + 3) > VAl(textbox5) Then

Sino evalua como:

If Cells(uf - 1, col.Column + 3) > CDBL(textbox5) Then

Por supuesto que las cifras en las celdas también serán valores numéricos.

Sdos!

hola, los dos procedimientos me funcionan, en esa columna utilizo formato numérico sin decimales. Usted como experta cual de las dos líneas me recomienda?  

El 1ro.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas