2 combos para lo mismo

3 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
2 combos para lo mismo

¿Como hacer para tener los 2 Combos en este codigo pero reducido, para no terner repetido el mismo codigo

 

With Application
.ScreenUpdating = False
Sheets("D-V").Select
.Calculation = xlCalculationManual
    Range(Range("C4"), Range("C4").End(xlDown)).AdvancedFilter 2, , Range("Z1"), 1
    Range("Z1").Sort Key1:=Range("Z1"), Order1:=xlAscending, Header:=xlYes
    With Me.ComboBox4
        .List = Range(Range("Z1"), Range("Z1").End(xlDown)).Value
        Range(Range("Z1"), Range("Z1").End(xlDown)).Delete
        .RemoveItem (0)

    Range(Range("C4"), Range("C4").End(xlDown)).AdvancedFilter 2, , Range("Z1"), 1
    Range("Z1").Sort Key1:=Range("Z1"), Order1:=xlAscending, Header:=xlYes
    With Me.ComboBox7
        .List = Range(Range("Z1"), Range("Z1").End(xlDown)).Value
        Range(Range("Z1"), Range("Z1").End(xlDown)).Delete
        .RemoveItem (0)
    End With
    End With
   
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With

 

 

Gracias

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 4 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: 2 combos para lo mismo

el bloque WITH sólo se puede referir a un objeto.

Lo que puedes hacer es crear un procedimiento que actúe sobre un objeto genérico que le pasarás como argumento, así puedes llamar a ese procedimiento las veces que quieras con distintos objetos.

por ejemplo:

 

Sub ProcedimientoPrincipal()

    ActuaSobreUnCombo Me.ComboBox1

    ActuaSobreUnCombo Me.ComboBox2

End Sub

 

Sub ActuaSobreUnCombo(micombo As MSForms.ComboBox)

'prodecimiento donde le decimos lo que queremos hacer con un como genérico

    With micombo

        'aquí lo que quieras hacer con el combo

    End With

End Sub

 

------
Ya sé Excel, pero necesito más.

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Re: 2 combos para lo mismo

Perdona mi inexperiencia pero, para mi es cosa que no encajo