LENTITUD EN RUTINA
Publicado por EDUARDO CIFUENTES SOLIS (3 intervenciones) el 11/06/2009 18:01:48
Hola
Tengo una hoja de Excel con varios combobox y sus correspondientes listas desplegables.
El caso es en función de la selección en la lista desplegable 1 (países) se activa o aparece el combo box correspondiente a ciudades de ese país, funciona todo muy bien aparecen y desaparecen, perfecto, lo único es que cada vez que selecciono un país se queda la hoja como pensando, anexo la rutina a ver que me pueden decir para agilizarla un poco, son cerca de 60 rutinas como estas aqui solo les envio un pedazo
Saludos
Eduardo
Private Sub ComboBox1_Change()
Range("D6") = "C.P. O NOMBRE CIUDAD"
'Range("D6").Font.Size = 11
End Sub
Private Sub Worksheet_Calculate()
Dim PAIS As String
'Range("D6").Font.Size = 11
PAIS = Range("P7").Value
If PAIS <> "BAHAMAS" Then
ComboBox2.Visible = False
Else: ComboBox2.Visible = True
End If
If PAIS <> "BRUNEI" Then
ComboBox3.Visible = False
Else: ComboBox3.Visible = True
End If
If PAIS <> "CAMBOYA" Then
ComboBox4.Visible = False
Else: ComboBox4.Visible = True
End If
If PAIS <> "CHILE" Then
ComboBox5.Visible = False
Else: ComboBox5.Visible = True
End If
If PAIS <> "COLOMBIA" Then
ComboBox6.Visible = False
Else: ComboBox6.Visible = True
End If
If PAIS <> "ECUADOR" Then
ComboBox7.Visible = False
Else: ComboBox7.Visible = True
End If
If PAIS <> "EL SALVADOR" Then
ComboBox8.Visible = False
Else: ComboBox8.Visible = True
End If
END SUB
Tengo una hoja de Excel con varios combobox y sus correspondientes listas desplegables.
El caso es en función de la selección en la lista desplegable 1 (países) se activa o aparece el combo box correspondiente a ciudades de ese país, funciona todo muy bien aparecen y desaparecen, perfecto, lo único es que cada vez que selecciono un país se queda la hoja como pensando, anexo la rutina a ver que me pueden decir para agilizarla un poco, son cerca de 60 rutinas como estas aqui solo les envio un pedazo
Saludos
Eduardo
Private Sub ComboBox1_Change()
Range("D6") = "C.P. O NOMBRE CIUDAD"
'Range("D6").Font.Size = 11
End Sub
Private Sub Worksheet_Calculate()
Dim PAIS As String
'Range("D6").Font.Size = 11
PAIS = Range("P7").Value
If PAIS <> "BAHAMAS" Then
ComboBox2.Visible = False
Else: ComboBox2.Visible = True
End If
If PAIS <> "BRUNEI" Then
ComboBox3.Visible = False
Else: ComboBox3.Visible = True
End If
If PAIS <> "CAMBOYA" Then
ComboBox4.Visible = False
Else: ComboBox4.Visible = True
End If
If PAIS <> "CHILE" Then
ComboBox5.Visible = False
Else: ComboBox5.Visible = True
End If
If PAIS <> "COLOMBIA" Then
ComboBox6.Visible = False
Else: ComboBox6.Visible = True
End If
If PAIS <> "ECUADOR" Then
ComboBox7.Visible = False
Else: ComboBox7.Visible = True
End If
If PAIS <> "EL SALVADOR" Then
ComboBox8.Visible = False
Else: ComboBox8.Visible = True
End If
END SUB
Valora esta pregunta
0