Új hozzászólás Aktív témák

• #7725 Delila_1 veterán föccer #7723

  Új Válasz 2010-07-22 13:00:04 #7725

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #7723 üzenetére

  Sub Aut_Filter()
  Range("A1").Select
  Selection.AutoFilter Field:=1, Criteria1:=Cells(1, 10)
  Selection.AutoFilter Field:=2, Criteria1:=Cells(1, 11)
  Selection.AutoFilter Field:=5, Criteria1:=Cells(1, 12)
  Selection.AutoFilter Field:=6, Criteria1:=Cells(1, 13)
  End Sub

  A feltételeket a J1:M1 tartományba írtam.
  Az A oszlopot [Field:=1] a J1 szerint szűröm [Criteria1:=Cells(1, 10)]
  B-t a K1 szerint, E-t az L1, és F-et az M1 szerint.

Új hozzászólás Aktív témák