Macro para Ingresar miles y decimales textbox

Tengo un textbox que le ingreso valores con miles y decimales pero me coloca solo números enteros :

Ejemplo si ingreso 2,000.8999, me ingresa 2,000

Y quiero que me ingreso todo el valor. Mi código es el siguiente:

Activesheet. Cell(3,12)= Val(textbox 6, value) 

Cave destacar que es monto puede variar de cientos a millones

Respuesta
3

Prueba con lo siguiente

If isnumeric(textbox6.value) and textbox6.value <> "" then
   Activesheet.Cell(3, 12) = CDbl(textbox6.value) 
End If

Hola igual me da error

Te voy a enviar mi macro

, PORQUE NO SE COMO RESOLVERLO Y ESTOY DESESPERADO.

Tienes que cambiar estas líneas:

Activesheet.cells(3, 9) = textbox5.value

Activesheet.cells(3, 12) = textbox6.value

Por estas:

If isnumeric(textbox5.value) and textbox5.value <> "" then
   Activesheet.Cells(3, 9) = CDbl(textbox5.value) 
End If
If isnumeric(textbox6.value) and textbox6.value <> "" then
   Activesheet.Cells(3, 12) = CDbl(textbox6.value) 
End If

Avísame cualquier detalle

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas