Autofilter Field kohtaan kaava

yks.kysymys

Moi.
Minulla on 1 rivillä päivämääriä, ja sen alla soluja eri väreillä.

Miten saan napin autofiltertoiminnon toimimaan siten että se suodattaa tämän päivän kohdan tietyllä värillä olevat rivit?

Sain sillä tavalla toimimaan että sarakenumero on tietty (Field:=8)
Miten saan sen että nappi valitsee tämän päivän kohdalta sarakkeen (esim. AA1) ja suodattaa siitä punaisella värillä olevat solut (eli Field: ( tilalle AA1 vaastaava sarake tänään, huomenna AB1 sarake, jne

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
On Error Resume Next
ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=8, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor


Else
On Error Resume Next
ActiveSheet.Shapes.Range(Array("ToggleButton1")).Select
ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=8

End If
End Sub

6

156

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      automaatisesti löydät sarakkeen VBA:ssa
      Application.WorksheetFunction.Match(cdbl(Date), Range("8:8"))

      Keep EXCEling
      @Kunde

    • yks.kysymys

      Kyseessä on siis aikataulu, jossa eri tapahtumien soluja eri väreillä
      Siis päivämäärät ovat rivillä 1
      tapahtumat ovat alla olevilla riveillä vuoden ajalta, eli sarakkeet B:NB

      Tarkoitin sellaista toimintoa että nappia alas painamalla näkyisi vain tämän päivän kohdalla vaikkapa punaisella värillä merkityt tapahtumat, eli valitaan sarakke tämän päivän kohdalta, ja siitä sarakkeesta suodatetaan punaiset solut eri riveiltä.

      Sain tehtyä napin joka hakee tämän päivän mutta että samalla napilla vielä samalla suodattaisi värin mukaan...

    • kunde

      jos antamasi kaava toimii niin kuten sanoin postauksessani löydät oikean sarakkeen ko päivänä
      Application.WorksheetFunction.Match(cdbl(Date), Range("8:8"))...

      lisättynä toimivaan koodiisi

      Private Sub ToggleButton1_Click()
      On Error Resume Next
      If ToggleButton1.Value = True Then

      ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=Application.WorksheetFunction.Match(CDbl(Date), Range("1:1")), Criteria1:=RGB(255, 0 _
      , 0), Operator:=xlFilterCellColor

      Else

      ActiveSheet.Shapes.Range(Array("ToggleButton1")).Select
      ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=Application.WorksheetFunction.Match(CDbl(Date), Range("1:1"))

      End If
      End Sub

      Keep EXCEling
      @Kunde

      • yks.kysymys

        Kiitos.
        Saisiko vielä suodatusta niin että se valitsisi kaikki muut värit paitsi valkoisen.
        En saanut erisuuri merkkiä (<>) toimimaan = merkin tilalla

      • yks.kysymys

        Tällainen koodi ei siis toimi:
        Criteria1:<>RGB(255, 255, 255), Operator:=xlFilterCellColor

        Mikä toimisi jotta suodattaisi muut paitsi valkoiset?

    • Kundepuu

      väreillä hiukan vaikeempaa, mutta lisäämällä apusarakkeen ja siihen koodaamalla värikoodit ja arvojen perusteella voi sitten suodattaa(-4142 on ei täyttöä ja värit sitten positiivisiä) , eli nyt lisäsin CEA sarakkeen suodatusalueeseen ja sitä hyödynsin... ;-)
      muuta tarvittaessa sarake koodiin
      sarake CAE on Field:=2159


      Private Sub ToggleButton1_Click()
      Dim Sarake As Long
      Dim i As Long

      On Error Resume Next
      If ToggleButton1.Value = True Then
      Range("CEA:CEA") = ""
      Sarake = Application.WorksheetFunction.Match(CDbl(Date), Range("1:1"))
      For i = 9 To 95
      Range("CEA" & i) = Cells(i, Sarake).Interior.ColorIndex

      Next
      ActiveSheet.Range("$A$8:$CEA$95").AutoFilter Field:=2159, Criteria1:=">0"

      Else

      ActiveSheet.Shapes.Range(Array("ToggleButton1")).Select
      ActiveSheet.Range("$A$8:$CEA$95").AutoFilter Field:=Sarake
      End If
      End Sub

      Keep EXCEling
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Istuva kansanedustaja epäiltynä pahoinpitelystä ja ampuma-aserikoksesta

      Seiskan tietojen mukaan Timo Vornanen on epäiltynä pahoinpitelystä ja ampuma-aserikoksesta eikä kenellekään taatusti tul
      Maailman menoa
      429
      3023

    2. Timo Vornanen kilahti

      Mikähän sille kansanedustajalle polisiisi miehelle on noin pahasti mennyt hermot , että tulevaisuudensa pilasi totaalise
      Kotka
      103
      2374

    3. Tollokin tajuaa että Timo Vornanen

      oli joutunut äärimmäiseen tilanteeseen ampuessaa yhden laukauksen katuun. Ei poliisi tee tuollaista hetken mielijohteest
      Maailman menoa
      363
      2112

    4. Pullonpalautusjärjestelmä muuttuu - paluu menneisyyteen

      EU suuressa viisaudessaan on päättänyt, että pulloja pitää kierrättää. Jos oikein ymmärsin, nykyisen järjestelmänmme ti
      Maailman menoa
      155
      1943

    5. Sininen farmari - Ford Focus- YFB-842 on poliisilta kadoksissa Kauhajärvellä

      https://alibi.fi/uutiset/poliisilta-poikkeuksellinen-vihjepyynto-autossa-oleva-henkilo-on-avuntarpeessa/?shared=29255-2d
      Lapua
      7
      1797

    6. Mitkä kolme sanaa haluat nyt sanoa ikäväsi kohteelle?

      Niitä tässä odotan.
      Ikävä
      164
      1238

    7. Onko oikeudenmukaista? Yhdellä taholla yllättävä valta-asema Tähdet, tähdet -voittajan valinnassa!

      Näinpä, onko sinusta tämä oikein? Viime jaksossakin voittaja selvisi vain yhden äänen erolla ja tänä sunnuntaina ensimm
      Tv-sarjat
      23
      1227

    8. No kerros nyt nainen

      Kumpi mielestäsi oli se joka väärinkäsitti kaiken? Nyt voi olla jo rehellinen kun koko tilanne on jo lähes haihtunut.
      Ikävä
      97
      1156

    9. Persukansanedustaja Timo Vornanen ammuskellut Helsingissä

      Poliisi siviiliammatiltaan, luvallinen ase mukana baarissa tällä hemmetin valopääpersulla. Meni eduskunnasta suoraan baa
      Haapavesi
      71
      1082

    10. Nainen, mietit miten minä jaksan

      En voi hyvin. Nykyään elämäni on lähinnä selviytymistä tunnista ja päivästä toiseen. Usein tulee epävarma olo, että mite
      Ikävä
      88
      947
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt