Keresés

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

  • Fferi50

    Topikgazda

    válasz oke #43884 üzenetére

    Szia!
    Kérdések:
    A D oszlop celláiban egy-egy feltétel (szó) szerepel? Mert akkor vagy kapcsolat van a feltételek között. Ezt ki lehet értékelni egyetlen kifejezéssel:
    If "alma,körte,eper,csoki,autó" Like "*" & Range("D1").Value & "*" then Range('"A1").Interior.Color=vbYellow
    Ha az egész oszlopot nézed, akkor pedig For Each ciklus használható:
    Dim cl as Range
    For Each cl In Range("D1:D5000").Cells
    If cl.Value="" Then Exit For 'ha nincs érték a cellában, kilépünk a ciklusból
    If "alma,körte,eper,csoki,autó" Like "*" & cl.Value & "*" then cl.Offset(0,-3).Interior.Color=vbYellow
    Next
    Az "alma,körte,eper,csoki,autó" helyére a szűrni kívánt szöveget írd be.
    A Like operátor a mintához hasonlót keresi, tehát az 5 közül bármelyik feltétel fennál, a színezés megtörténik.

    Üdv.

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