PDA

View Full Version : Solved: podria ahorrar lineas de codigo??



polboymx
06-14-2006, 03:18 PM
hola tengo estas lineas:
mi pregunta es si las lineas en color rojo podria abreviarlas


Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=2, Criteria1:="="
Range("A5:K5000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B4").Select
End Sub

Killian
06-15-2006, 01:43 AM
hola y bienvenido a VBAX :hi:

Perdoname si mi espanol es malo... creo que entiendo que dice :think:

se puede utilizar un ciclo iterativoDim i As Long

For i = 1 To 8
Selection.AutoFilter Field:=i
Next i