Excel VBA-val szűrés több oszlopban

Excel VBA-val szűrés több oszlopban
2022-02-10T13:31:42+01:00
2022-02-11T06:16:10+01:00
2022-10-15T21:21:36+02:00
Leslaci
Sziasztok!

- egy tartomány három egymás melletti oszlopában négyjegyű számok lehetnek.
- egy sorban a három cellában nem szerepel azonos szám,
- lehet, hogy csak az elsőben van, lehet, hogy az elsőben és a másodikban, és az is lehet, hogy mindhárom oszlop azonos sorában szerepel szám,

Oszloponként textbox-szal készítettem egy egyszerűbb szűrést, mint az Excel sajátja, de így csak oszlopokban tudok keresni.

Private Sub Psz1Keres_Change()
   If Psz1Keres > "" Then
      ActiveSheet.ListObjects("Táblázat12").Range.AutoFilter Field:=13, Criteria1:="*" & Psz1Keres & "*"
Else
      ActiveSheet.ListObjects("Táblázat12").Range.AutoFilter Field:=13
   End If
End Sub

A cél az lenne, hogy egy keresőmező legyen, és abba írva a számot, mindhárom oszlopban keressen "vagy" alapon.

Ha így módosítottam, azért nem volt jó, mert mindhárom oszlopban úgy keresett egyszerre, hogy azonos sor oszlopaiban "és" alapon keresett.

Private Sub Psz1Keres_Change()
   If Psz1Keres > "" Then
      ActiveSheet.ListObjects("Táblázat12").Range.AutoFilter Field:=13, Criteria1:="*" & Psz1Keres & "*"
      ActiveSheet.ListObjects("Táblázat12").Range.AutoFilter Field:=14, Criteria1:="*" & Psz1Keres & "*"
Else
      ActiveSheet.ListObjects("Táblázat12").Range.AutoFilter Field:=13
      ActiveSheet.ListObjects("Táblázat12").Range.AutoFilter Field:=14
   End If
End Sub

Van esetleg ötletetek?
Mutasd a teljes hozzászólást!
Szia!
Nézd meg légy szíves a Range AdvancedFilter metódusát (munkalapon Speciális vagy Irányított szűrés). Itt tudsz vagy szűrést is csinálni.
Itt találsz némi VBA helpet hozzá.
De az Excel súgója ennél is jobb.
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd