Consulting

Results 1 to 2 of 2

Thread: Solved: podria ahorrar lineas de codigo??

  1. #1
    VBAX Newbie
    Joined
    Jun 2006
    Posts
    1
    Location

    Solved: podria ahorrar lineas de codigo??

    hola tengo estas lineas:
    mi pregunta es si las lineas en color rojo podria abreviarlas

    [VBA]
    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
    [/VBA]

  2. #2
    VBAX Master Killian's Avatar
    Joined
    Nov 2004
    Location
    London
    Posts
    1,132
    Location
    hola y bienvenido a VBAX

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

    se puede utilizar un ciclo iterativo[VBA]Dim i As Long

    For i = 1 To 8
    Selection.AutoFilter Field:=i
    Next i[/VBA]
    K :-)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •