Choose
Estoy iniciándome, ¿perfecto con inputbos perio con choose porque no sale nada? Y cuando lo depuro paso a paso simplemente lo salta...
1 Respuesta
Respuesta de Elsa Matilde
1
No me das un ejemplo de tu rutina para saber donde está el problema, así que te daré uno yo.
El primer argumento debe ser numérico y las opciones del tipo variant.
Entonces, si hablamos de 'inputbox' un ejemplo sería este:
Sub Eligiendo()
Dim valor As Integer
Dim opcion As String
valor = InputBox("Ingrese codigo")
'contempla el ingreso de un dato distinto a las opciones
On Error Resume Next
opcion = Choose(valor, "Cliente A", "Cliente B")
'si el codigo es 1 mostrará Cliente A, si es 2 Cliente B
MsgBox opcion
End Sub
Si esto resuelve tu problema no olvides finalizar. Si aún persiste tu problema, escribime tus instrucciones
El primer argumento debe ser numérico y las opciones del tipo variant.
Entonces, si hablamos de 'inputbox' un ejemplo sería este:
Sub Eligiendo()
Dim valor As Integer
Dim opcion As String
valor = InputBox("Ingrese codigo")
'contempla el ingreso de un dato distinto a las opciones
On Error Resume Next
opcion = Choose(valor, "Cliente A", "Cliente B")
'si el codigo es 1 mostrará Cliente A, si es 2 Cliente B
MsgBox opcion
End Sub
Si esto resuelve tu problema no olvides finalizar. Si aún persiste tu problema, escribime tus instrucciones
