Apua, liittyen pikasuodatukseen ja kaavoihin!!!

Apua tarvitseva

Minulla on taulukko, jossa on sarakkeessa H useita kirjainnumero yhdistelmiä sekä myös tyhjiä kenttiä. Suodatan tuon sarakkeen perusteella tietoja. Haluaisin näyttää h-sarakkeeseen jääneiden arvojen tiedon toisessa solussa. Dget-funktio on varmaankin tähän oivallinen tapa, mutta se ei osaa ottaa huomioon suodatusta vaan näyttää, että sarakkeessa on samoja arvoja. Yritin yhdistää tuota subtotalin kanssa, mutta en osannut tehdä sitä oikein. Olisin kovin kiitollinen avusta! Haluan päästä tässä hommassa eteenpäin.

10

465

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Apua tarvitseva

      tai tarkoitin siis, että dget-funktio ilmoittaa, että sarakkeessa on eri arvoja...jeesatkaa onnetonta Excelin käyttäjää

    • 45454454544444

      No, kai sinä sen osaat tehdä. Ja pikasuodatuksen tuloksen voi "tallentaa" omaksi mukautetuksi näkymäksi - eli kun on suodatuksen tulos siinä esillä, niin sitten Näytä Mukautetut näkymät ja siellä Lisää ja nimeä tämä suodatuksen tulos ja ok. Silloin se tulos löytyy sieltä mukautetuista myöhemmin.

      • Apua tarvitseva

        huonosti oon selittäny tuon... eli ei nuo tyhjät kentät mitään haittaa. (en tiedä, miksi sen olen tuohon edes kirjoittanut, varmaan ainainen kiire prkl). Enkä halua tallentaa kutakin suodatuksen jälkeistä näkymää.

        Koitan kertoa tilanteen vähän selvemmin. Tilanne on kuitenkin yksinkertainen. Minulla on sarakkeessa arvoja esim. yy12,yy12,yy12,tt13, er99 jne. Suodatuksen jälkeen näkyviin jää esimerkiksi arvot yy12. Kuinka saan tuon arvon näkyviin uuteen soluun esim d18 samalla välilehdellä. Entäs jos suodatan uudelleen? Tarviiko tähän peräti jotain skriptiä kirjottaa vai onko tähän joku välisumman tapainen ratkaisu olemassa, mikä osaa ottaa huomioon tuon suodatuksen. Vai ajattelenko asioita vähän liian vaikeasti.

      • kunde
        Apua tarvitseva kirjoitti:

        huonosti oon selittäny tuon... eli ei nuo tyhjät kentät mitään haittaa. (en tiedä, miksi sen olen tuohon edes kirjoittanut, varmaan ainainen kiire prkl). Enkä halua tallentaa kutakin suodatuksen jälkeistä näkymää.

        Koitan kertoa tilanteen vähän selvemmin. Tilanne on kuitenkin yksinkertainen. Minulla on sarakkeessa arvoja esim. yy12,yy12,yy12,tt13, er99 jne. Suodatuksen jälkeen näkyviin jää esimerkiksi arvot yy12. Kuinka saan tuon arvon näkyviin uuteen soluun esim d18 samalla välilehdellä. Entäs jos suodatan uudelleen? Tarviiko tähän peräti jotain skriptiä kirjottaa vai onko tähän joku välisumman tapainen ratkaisu olemassa, mikä osaa ottaa huomioon tuon suodatuksen. Vai ajattelenko asioita vähän liian vaikeasti.

        ei tuo onnaa ilman koodia...
        D18 soluun kaava esim. jos haluamasi sarakkeen suodatusehtovalikko on solussa C2 =Pikasuodatus(C2)
        näyttää myös ja/tai ehdotkin ja jos ei ole mitään suodatusta niin KAIKKI teksti soluun D18...

        moduuliin...

        Function Pikasuodatus(Alue As Range) As String
        Dim Suodatin As String
        Suodatin = ""
        On Error GoTo Poistu
        Application.Volatile True
        With Alue.Parent.AutoFilter
        If Not Intersect(Alue, .Range) Is Nothing Then
        With .Filters(Alue.Column - .Range.Column 1)
        If .On Then
        Suodatin = .Criteria1
        Select Case .Operator
        Case xlAnd
        Suodatin = Suodatin & " JA " & .Criteria2
        Case xlOr
        Suodatin = Suodatin & " TAI " & .Criteria2
        End Select

        Else
        Suodatin = "KAIKKI"
        End If
        End With
        End If
        End With
        Poistu:
        Pikasuodatus = Suodatin
        End Function

        Keep EXCELing
        @Kunde

      • kunde
        kunde kirjoitti:

        ei tuo onnaa ilman koodia...
        D18 soluun kaava esim. jos haluamasi sarakkeen suodatusehtovalikko on solussa C2 =Pikasuodatus(C2)
        näyttää myös ja/tai ehdotkin ja jos ei ole mitään suodatusta niin KAIKKI teksti soluun D18...

        moduuliin...

        Function Pikasuodatus(Alue As Range) As String
        Dim Suodatin As String
        Suodatin = ""
        On Error GoTo Poistu
        Application.Volatile True
        With Alue.Parent.AutoFilter
        If Not Intersect(Alue, .Range) Is Nothing Then
        With .Filters(Alue.Column - .Range.Column 1)
        If .On Then
        Suodatin = .Criteria1
        Select Case .Operator
        Case xlAnd
        Suodatin = Suodatin & " JA " & .Criteria2
        Case xlOr
        Suodatin = Suodatin & " TAI " & .Criteria2
        End Select

        Else
        Suodatin = "KAIKKI"
        End If
        End With
        End If
        End With
        Poistu:
        Pikasuodatus = Suodatin
        End Function

        Keep EXCELing
        @Kunde

        toki tolla kaavalla saa muittenkin sarakkeiden suodatusehdot esille esim. viitaten edelliseen postaukseeni =Pikasuodatus(B2) näyttää sarakkeem B suodatusehdot....

        Keep EXCELing
        @Kunde

      • Apua tarvitseva
        kunde kirjoitti:

        toki tolla kaavalla saa muittenkin sarakkeiden suodatusehdot esille esim. viitaten edelliseen postaukseeni =Pikasuodatus(B2) näyttää sarakkeem B suodatusehdot....

        Keep EXCELing
        @Kunde

        Kiitoksia kovasti, olet ollut suuri apu niin minulle kuin monelle muullekin täällä keskusteluissa pyöriville.Kaavasi toimii ja sain sen jopa räplättyä käymään yhteen oman avuttoman skriptini kanssa, mitä kuitenkin tarvitsen osana laskentataulukokkoa.

        Osaatko vielä sanoa, mitä minun täytyy tehdä, että saan tuon =merkin pois näkyvistä solusta, johon tieto on tuotu. Myös välilyönnin kohdalle tulevat aaltoviivat ~ eivät ole toivottuja. Saako niitä poistettua? (esim d18 solun näkymä. =yy12 tai =yy12~)

      • kunde
        Apua tarvitseva kirjoitti:

        Kiitoksia kovasti, olet ollut suuri apu niin minulle kuin monelle muullekin täällä keskusteluissa pyöriville.Kaavasi toimii ja sain sen jopa räplättyä käymään yhteen oman avuttoman skriptini kanssa, mitä kuitenkin tarvitsen osana laskentataulukokkoa.

        Osaatko vielä sanoa, mitä minun täytyy tehdä, että saan tuon =merkin pois näkyvistä solusta, johon tieto on tuotu. Myös välilyönnin kohdalle tulevat aaltoviivat ~ eivät ole toivottuja. Saako niitä poistettua? (esim d18 solun näkymä. =yy12 tai =yy12~)

        Function Pikasuodatus(Alue As Range) As String
        Dim Suodatin As String
        Suodatin = ""
        On Error GoTo Poistu
        Application.Volatile True
        With Alue.Parent.AutoFilter
        If Not Intersect(Alue, .Range) Is Nothing Then
        With .Filters(Alue.Column - .Range.Column 1)
        If .On Then
        Suodatin = Mid(.Criteria1, 2)
        Select Case .Operator
        Case xlAnd
        Suodatin = Mid(Suodatin & " JA " & .Criteria2, 2)
        Case xlOr
        Suodatin = Mid(Suodatin & " TAI " & .Criteria2, 2)
        End Select

        Else
        Suodatin = "KAIKKI"
        End If
        End With
        End If
        End With
        Poistu:
        Pikasuodatus = Suodatin
        End Function

        "Myös välilyönnin kohdalle tulevat aaltoviivat ~ eivät ole toivottuja. Saako niitä poistettua? (esim d18 solun näkymä. =yy12 tai =yy12~)"

        nuo ~- merkit on soluissa (ei kylläkään välilyöti...) voit ne poistaa lisäämällä koodiin replace funktion millä korvaat ~- merkit välilyönneiksi
        esim. Replace(Suodatin, "~", " ")

        Keep EXCELing
        @Kunde

      • Apua tarvitseva
        kunde kirjoitti:

        Function Pikasuodatus(Alue As Range) As String
        Dim Suodatin As String
        Suodatin = ""
        On Error GoTo Poistu
        Application.Volatile True
        With Alue.Parent.AutoFilter
        If Not Intersect(Alue, .Range) Is Nothing Then
        With .Filters(Alue.Column - .Range.Column 1)
        If .On Then
        Suodatin = Mid(.Criteria1, 2)
        Select Case .Operator
        Case xlAnd
        Suodatin = Mid(Suodatin & " JA " & .Criteria2, 2)
        Case xlOr
        Suodatin = Mid(Suodatin & " TAI " & .Criteria2, 2)
        End Select

        Else
        Suodatin = "KAIKKI"
        End If
        End With
        End If
        End With
        Poistu:
        Pikasuodatus = Suodatin
        End Function

        "Myös välilyönnin kohdalle tulevat aaltoviivat ~ eivät ole toivottuja. Saako niitä poistettua? (esim d18 solun näkymä. =yy12 tai =yy12~)"

        nuo ~- merkit on soluissa (ei kylläkään välilyöti...) voit ne poistaa lisäämällä koodiin replace funktion millä korvaat ~- merkit välilyönneiksi
        esim. Replace(Suodatin, "~", " ")

        Keep EXCELing
        @Kunde

        Saako tuon replacen sohlattua tuohon sinun koodiisi jotenkin vai miten se oli tarkoitus tehdä? Voiko siinä käyttää näitä If then juttuja. Oon aika tunari näissä koodi hommissa, olet varmaan huomannut =).

      • kunde
        Apua tarvitseva kirjoitti:

        Saako tuon replacen sohlattua tuohon sinun koodiisi jotenkin vai miten se oli tarkoitus tehdä? Voiko siinä käyttää näitä If then juttuja. Oon aika tunari näissä koodi hommissa, olet varmaan huomannut =).

        "nuo ~- merkit on soluissa (ei kylläkään välilyöti...) voit ne poistaa lisäämällä koodiin replace funktion millä korvaat ~- merkit välilyönneiksi
        esim. Replace(Suodatin, "~", " ")"

        Function Pikasuodatus(Alue As Range) As String
        Dim Suodatin As String
        Suodatin = ""
        On Error GoTo Poistu
        Application.Volatile True
        With Alue.Parent.AutoFilter
        If Not Intersect(Alue, .Range) Is Nothing Then
        With .Filters(Alue.Column - .Range.Column 1)
        If .On Then
        Suodatin = Mid(.Criteria1, 2)
        Select Case .Operator
        Case xlAnd
        Suodatin = Mid(Suodatin & " JA " & .Criteria2, 2)
        Case xlOr
        Suodatin = Mid(Suodatin & " TAI " & .Criteria2, 2)
        End Select

        Else
        Suodatin = "KAIKKI"
        End If
        End With
        End If
        End With
        Poistu:
        Pikasuodatus = Replace(Suodatin, "~", " ")
        End Function

        Keep EXCELing
        @Kunde

      • Apua tarvitseva
        kunde kirjoitti:

        "nuo ~- merkit on soluissa (ei kylläkään välilyöti...) voit ne poistaa lisäämällä koodiin replace funktion millä korvaat ~- merkit välilyönneiksi
        esim. Replace(Suodatin, "~", " ")"

        Function Pikasuodatus(Alue As Range) As String
        Dim Suodatin As String
        Suodatin = ""
        On Error GoTo Poistu
        Application.Volatile True
        With Alue.Parent.AutoFilter
        If Not Intersect(Alue, .Range) Is Nothing Then
        With .Filters(Alue.Column - .Range.Column 1)
        If .On Then
        Suodatin = Mid(.Criteria1, 2)
        Select Case .Operator
        Case xlAnd
        Suodatin = Mid(Suodatin & " JA " & .Criteria2, 2)
        Case xlOr
        Suodatin = Mid(Suodatin & " TAI " & .Criteria2, 2)
        End Select

        Else
        Suodatin = "KAIKKI"
        End If
        End With
        End If
        End With
        Poistu:
        Pikasuodatus = Replace(Suodatin, "~", " ")
        End Function

        Keep EXCELing
        @Kunde

        Olet mainio tyyppi koodia vääntämään. Palataan myöhemmin asiaan, jos tulee ongelmia... siis aivan kohta =D

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      144
      4007

    2. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      366
      3084

    3. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      14
      2018

    4. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      10
      1715

    5. Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

      Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
      Tv-sarjat
      5
      1148

    6. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      69
      975

    7. Mun kaikkialta häviäminen

      Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
      Ikävä
      71
      974

    8. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      23
      861

    9. Inhottaa ajatus siitä

      Miten monia olet pannut.
      Ikävä
      71
      839

    10. Onko teillä

      minkä tyyppisiä seksifantasioita kaivattunne kanssa?
      Ikävä
      44
      804
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt