VBA szűrés kis- nagybetű megkülönböztetéssel
2022-04-07T13:14:37+02:00
2022-04-19T15:54:12+02:00
2022-08-12T08:35:30+02:00
Dani9203
Sziasztok,

segítséget szeretnék kérni, hogyan lehetne megoldani, hogy a makró szűrés során különbséget tegyen kis és nagy betű között?

Jelenleg ez a kód:

'21.oszlopot szűri "w"-re
ActiveSheet.Range("$A$1:$AP$999999").AutoFilter Field:=21, Criteria1:="=w", _
        Operator:=xlAnd

A cél az lenne, hogy a "w" és a "W" között tegyen különbséget. Próbálkoztam a MatchCase:=True utasítást belerakni a szűrésbe, de nem sikerült.

Köszönöm előre is.
Mutasd a teljes hozzászólást!
Szia!
Kereséseim alapján ezt közvetlenül nem lehet megcsinálni. Kell hozzá egy segédoszlop, amiben a magyar excelben a SZÖVEG.TALÁL, angolban a FIND függvénnyel megnézed, hogy van-e a cellában ilyen érték. Application.Worksheetfunction.Find makróval (ha nincs a keresett érték, akkor hibát okoz) vagy képlettel VBA-ban pl.

Range("C1:C5").Formula="=IFERROR(Find(""W"",B1),""N"")"
amennyiben a B oszlopban vannak a keresendő értékek.
A képlet a C oszlopban minden cellába beírja a nagy W előfordulási helyét, ha nincs, akkor N betűt.
Ezután már erre a segédoszlopra szűrhetsz.
Üdv.
Mutasd a teljes hozzászólást!

  • Szia! Nem tudom, hogy ez segít-e rajtad, de én abba a modulba amelyikben ez az eljárás van az eljárások elé beírnám a következő utasítást: Option Compare Binary . Hátha ez a megoldás. gy próbát megér.

    Üdv

    The Fool
    Mutasd a teljes hozzászólást!
  • Szia!

    Köszönöm, végül másolás és csere kis és nagybetű megkülönböztetéssel megoldottam.
    Mivel úgyis törölni akarom ezeket a sorokat, így nem okoz gondot ez a megoldás sem.

    Kód:

    Range("U:U").Replace What:="w", Replacement:="Törölni", MatchCase:=True

    '21.oszlopot szűri a régi "w"-re, most "Törölni"
    ActiveSheet.Range("$A$1:$AP$999999").AutoFilter Field:=21, Criteria1:="=Törölni", _
            Operator:=xlAnd
    'A fent leszűrt sorokat kijelöli és kitölri
    Rows("2:2").Select
        Range(Selection, Selection.End(xlDown)).Delete
    'Minden szűrőt töröl
    ActiveSheet.AutoFilter.ShowAllData


    Üdv,
    Dani
    Mutasd a teljes hozzászólást!
abcd