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

• #43902 Fferi50 Topikgazda oke #43898

  Új Válasz 2020-05-10 16:16:21 #43902

  Ú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

  

  Fferi50

  Topikgazda

  válasz oke #43898 üzenetére

  Szia!
  Természetesen meg lehet csinálni a szűrést makróval is. Ha folytonos a D oszlop:
  With ActiveSheet.Range(Range("$D$1"), Range("$D$1").End(xlDown))
.AutoFilter Field:=1, Criteria1:=Array("alma", "körte", "eper","csoki", "autó"), Operator:=xlFilterValues
.Offset(0, -3).Interior.Color = vbYellow
End With
  A vagylagos szűrőkritériumokat meg lehet adni egy tömbben.

  Ha van üres cella is a D oszlopban, akkor az utolsó cellát
  Range("$D$1").End(xlDown) helyett Range("$D$" & Rows.Count).End(xlUp)

  formában kell megadni.
  Természetesen a feltételeket is megadhatod változóval vagy cellatartományokban, a lényeg az, hogy amikor feltételként használod azokat, akkor tömb legyen.

  Üdv.

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