Visual Basic para Aplicaciones - Problemas en el Select Case 2

Life is soft - evento anual de software empresarial
   
Vista:

Problemas en el Select Case 2

Publicado por Mauro (14 intervenciones) el 20/12/2007 15:18:40
Muchachos sigo con los problemas con el select case para que al seleccionar una opcion de un combobox(CmbDestino) y se condicione las selecciones del otro Combobox(CmbCentro) aunque me dieron una ayuda no lo he podido completar, un poco del codigo que tengo:

Select Case CmbDestino.Value
Case CmbDestino.Value = "ropa"
CmbCentro.RowSource = "Hoja2!H2:H10"
Case CmbDestino.Value = "zapatos"
CmbCentro.RowSource = "Hoja2!J2:J14"
Case Else
CmbCentro.RowSource = "Hoja2!L2:L28"

End Select

y no capisco nada de como hacerlo de manera que me pueda resultar.

Cualquier ayuda la agradecere ya que es para mi jefe.
Mauro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Calculador de TSP
- Cajero Automatico
- Cronograma de actividades

RE:Problemas en el Select Case 2

Publicado por JuanC (243 intervenciones) el 20/12/2007 15:38:32
quizá el problema está en la implementación y no en el Select Case
deberíamos poder ver el código completo...
y si tu jefe molesta decile que lo haga el... o se vaya a pasear; de mi parte...

SSaludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas en el Select Case 2

Publicado por Mauro (14 intervenciones) el 20/12/2007 15:46:05
JuanC
te agradesco tu ayuda y te envio el codigo donde esta insertado el select case:

Private Sub UserForm_Initialize()
CmbPtte = Empty
CmbPtteca = Empty
CmbCondu = Empty
CmbDestino = Empty
CmbCentro = Empty
CmbPtte.RowSource = "=Hoja2!d2:d30"
'CmbPtteca.RowSource = "=Hoja2!d2:d30"
CmbCondu.RowSource = "=Hoja2!b2:b36"
CmbDestino.RowSource = "=Hoja2!F2:F42"
Select Case CmbDestino.Value
Case CmbDestino.Value = "ropa"
CmbCentro.RowSource = "Hoja2!H2:H10"
Case CmbDestino.Value = "zapatos"
CmbCentro.RowSource = "Hoja2!J2:J14"
Case Else
CmbCentro.RowSource = "Hoja2!L2:L28"

End Select
Txtfecha = DateValue(Now)
CmbCondu.SetFocus
End Sub

cualquier cosa me dices, ok.

Mauro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas en el Select Case 2

Publicado por JuanC (243 intervenciones) el 20/12/2007 16:38:48
en la línea
CmbDestino.RowSource = "=Hoja2!F2:F42"
simplemente se asigna el origen de datos, no modifica la
propiedad Value del ComboBox, por lo que se cumplirá el Else del Select Case
además está mal expresado el Select Case
para que la propiedad Value tome un valor
deberías agregar
CmbDestino.ListIndex = 0 '//Selecciona el primer item
y luego el código siguiente
Select Case CmbDestino.Value
Case "ropa"
CmbCentro.RowSource = "Hoja2!H2:H10"
Case "zapatos"
CmbCentro.RowSource = "Hoja2!J2:J14"
Case Else
CmbCentro.RowSource = "Hoja2!L2:L28"
End Select

de todas maneras el código del Select Case debería ir en el Evento Change
del ComboBox

Private Sub CmbDestino_Change()
Select Case CmbDestino
....
End Select
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas en el Select Case 2

Publicado por Mauro (14 intervenciones) el 20/12/2007 16:47:47
te agradesco, lo voy a implementar y te cuento.

Gracias desde Puerto Montt Decima Region de Chile.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas en el Select Case 2

Publicado por Mauro (14 intervenciones) el 20/12/2007 17:57:18
Muchas gracias lo implante y el resultado me parece mas que favorable, muchas gracias y que estes bien.

Gracias desde Puerto Montt Decima Region de Chile.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar