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
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
End If
End Sub