Convertidor de Unidades

jues · el 19 de abril

Saludos amigos espero estén bien

Estoy intentando hacer un formulario que me convierta unidades de masa sin embargo en el mejor de los casos solo he podido lograr la conversión de una unidad a la vez en los TextBox 1, 3, 5, 7, 9, 11 y 13 y cuando lo logro el resultado que se copia en la celda no se corresponde con el obtenido originalmente en el Textbox del Formulario (frmconv) ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda "F11" es 418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 1, 3, 5, 7, 9, 11 y 13 para ver el resultado.

Mucho les sabre agradecer la ayuda que me puedan brindar.

PRUEBA.xlsm

Editado el el 19 de abril por jues

JSDJSD · el 27 de abril

Si pones un ejemplo en el que se entienda todo el proceso de la conversión y el funcionamiento del formulario, lo intento

jues · el 28 de abril

Saludos @JSDJSD espero estes bien comenzare por el funcionamiento y luego pasare a los cálculos y sus resultados y errores:

1. Al hacer click en la Celda F9 (Marca y Modelo) se despliega una lista de equipos a utilizar, al escoger alguno de ellos aparece automáticamente en la Celda “F10” la Capacidad de Trabajo y en las Columnas “H” y “R” el Estándar de Masa y de Longitud con las que opera el equipo.

2. Teniendo los datos anteriores al hacer click en la Celda F11 se despliega el Formulario Convertidor (frmconv) en el cual vendrán tildados por defecto el Opt2, Opt8, Opt11, Opt14, Opt17, Opt20 y Opt23 (Tn) o el Opt3, Opt6, Opt9. Opt12, Opt15, Opt18, Opt21, Opt24 (Lb) dependiendo del equipo que se haya escogido en la Celda F9 (Marca y Modelo).

a. ¿Se puede establecer una restricción para que el Formulario Convertidor (frmconv) se muestre si y solo si las Celdas F9, F10, P9, P10 y P11 estan llenas?

3. Para efectos de los cálculos se requiere todas las Unidades de Masa que no son propias del equipo (F23, F24, F28, F29, F30 y F32) sean convertidas al Estándar de Masa con el que opera el equipo razón por cual al venir tildada la opción Toneladas (Tn = Opt2, Opt8, Opt11, Opt14, Opt17, Opt20 y Opt23) o la opción Libras (Lb = Opt3, Opt6, Opt9. Opt12, Opt15, Opt18, Opt21, Opt24) es el indicativo a cuál Estándar de Masa serán convertidas las Unidades de Masa que no son propias del equipo.

4. Los datos de entrada se colocan en los TextBox 1, 3, 5, 7, 9 11 y 13 y una vez escogida las Unidades de Masa que se pretenden convertir al Estándar de Masa del Equipo los resultados son expresados en los TextBox 2, 4, 6, 8, 10, 12 y 14 los cuales solo podrán expresar tres cálculos por cada caso (Peso 01, Capacidad 01, Capacidad 02, Peso 02, Peso 03, Peso 04, Peso5) dependiendo del Estándar de Masa del Equipo, ejemplo para Peso 01:

frmconv.TextBox2.Value = frmconv.TextBox1.Value * Estándar de Masa (Tn o Lb)

a. Estándar de Masa en Toneladas (Tn):

Convertir de Kg a Tn (Kg * 0.001 o Kg / 1000)

Opt2 = True, Opt4 = True y Opt5 = False

20 Kg * 0,001 = 0,02 Tn

Convertir de Lb a Tn (Lb * 0.0004535924)

Opt2 = True, Opt5 = False y Opt6 = True

20 Lb * 0.0004535924 = 0,0090718474 Tn

Convertir de Tn a Tn (Tn * 1 o Tn = Tn)

Opt2 = True y Opt5 = True

20 Tn * 1 = 20 Tn

b. Estándar de Masa en Libras (Lb):

Convertir de Kg a Lb (Kg * 2.2046226218)

Opt3 = True, Opt4 = True y Opt6 = False

20 Kg * 2.2046226218 = 44,092452437 Lb

Convertir de Tn a Lb (Tn * 2204.6226218488)

Opt3 = True, Opt5 = True y Opt6 = False

20 Tn * 2204.6226218488 = 44,092.452436976 Lb

Convertir de Lb a Lb (Lb * 1 o Lb = Lb)

Opt3 = True y Opt6 = True

20 Lb * 1 = 20 Lb

5. Cuando lo logro obtener el resultado correcto lo que se copia en la celda no se corresponde con el resultado obtenido originalmente en el Textbox del Formulario (frmconv) ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda "F11" es 418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 2, 4, 6, 8, 10, 12 y 14 para visualizar el resultado en el Formulario (frmconv)

Antoni · el 28 de abril

Para actualizar una celda con un valor numérico con un texto (TextBox), debes convertir el texto a número con una función de conversión de tipos (CInt(), CLng(), CDbl(), CCur(),.......)

Poe ejemplo :

Range("A1")=CDbl(TextBox1)

pero debes asegurarte que contiene solamente números 0-9 y adicionalmente, el separador decimal (punto o coma según el país), para ello tienes la función IsNumeric(), por ejemplo:

IF IsNumeric(TextBox1) Then
   Range("A1")=CDbl(TextBox1)
else
   MsgBox "El TextBox1 no es numérico", VbCritical
End If

JSDJSD · el 28 de abril

Adaptándome a tu código te dejo una posible solución, también veras que cuando digites valores en textbox1,3,5 y pulses enter el calculo aparecerá automáticamente en sus correspondientes textbox, intenta continuar con los siguientes