Visual Basic para Aplicaciones - Problemas en el Select Case 2

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

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

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

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

te agradesco, lo voy a implementar y te cuento.

Gracias desde Puerto Montt Decima Region de Chile.

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.