Skip to main content
2 de 2
se añadieron 8 caracteres en el cuerpo
Israel-ICM
  • 3.6k
  • 25
  • 20
  • 26
Sub Texto_A_Valor()

'Esta es la forma para poder usar una variable de tipo valor (Integer o Double)

Dim Texto As String
Dim Valor As Double

Texto = InputBox("Ingrese la Cantidad")

If Texto = vbNullString Then
    MsgBox "Ha presionado Cancelar"
Else
    Valor = Val(Texto)
    MsgBox "Ha presionado Aceptar y la cantidad es " & Valor
    
'Aquí simplemente descargo el Valor en una celda y compruebo que tanto
'Enteros como Decimales se cargan correctamente

    Hoja5.Range("I14").Value = Valor
    
End If

End Sub