Skip to main content
se añadieron 8 caracteres en el cuerpo
Origen Enlace
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

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

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

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
Origen Enlace

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