Excel-Taulukkoon haku

:-)

Miten saan tehtyä Excel-taulukkooni HAKU-kentän eli kun kirjoitan kenttään esim. haettavan sanan, niin se hakee sen kyseisestä taulukosta ja siirtyy sanan kohtaan.
Tiedän, että työkalurivillä, muokkaa komennon alla on ETSI-toiminto, mutta HAKU-kenttä tulisi kiinteästi näkyviin taulukkoni yläosaan.
Tälläinen on ehkä helposti toteutettavissa, mutta omat "hoksottimet" eivät nyt riitä siihen.

6

1064

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Laiska

      CTRL-F tekee tämän ja ilman riviäkään koodia.

      Toki voit tehdä tämän myös makroilla (kts helpistä; Find ja FindNext)

    • Seija

      Tässä makro joka tekee saman kuin mainitsemasi ETSI-toiminto.
      Haettava-arvo solussa C1, aloittaa haun A1

      Sub Makro1()

      Cells.Find([C1], [A1], xlValues, , xlColumns).Activate
      End Sub

      • Tollo Toope

        Etsin tietoa samanlaiseen haku-toimintoon.

        ELikkäs olisiko kenelläkään esimerkki ohjelmaa tai neuvoja seuraavanlaisen excel haun tekemiseksi. Tämä vaatii Visual Basicin käyttöä mutta en osaa.

        Taulukko1:sessä olisi "tietokanta" jossa käytettäisiin esim 3-4 saraketta tietoihin.

        Taulukossa2 olisi "haku" jossa olisi 1-3 kohtaa jolla voisi hakea taulukon 1 rivejä esiin. Rivit jotka on sama mitä haetiin: numero,sana tms.

        Talukko3: tänne listautuisi haun tulos.

        -----
        Onko kenelläkään vastaavaa taulukkoa antaa esimerkiksi tai oisko muuten neuvoja miten ohjelmalistaus menee, josta voisin soveltaa omaan käyttöön. Kiitos.

      • Kunde
        Tollo Toope kirjoitti:

        Etsin tietoa samanlaiseen haku-toimintoon.

        ELikkäs olisiko kenelläkään esimerkki ohjelmaa tai neuvoja seuraavanlaisen excel haun tekemiseksi. Tämä vaatii Visual Basicin käyttöä mutta en osaa.

        Taulukko1:sessä olisi "tietokanta" jossa käytettäisiin esim 3-4 saraketta tietoihin.

        Taulukossa2 olisi "haku" jossa olisi 1-3 kohtaa jolla voisi hakea taulukon 1 rivejä esiin. Rivit jotka on sama mitä haetiin: numero,sana tms.

        Talukko3: tänne listautuisi haun tulos.

        -----
        Onko kenelläkään vastaavaa taulukkoa antaa esimerkiksi tai oisko muuten neuvoja miten ohjelmalistaus menee, josta voisin soveltaa omaan käyttöön. Kiitos.

        Taul1 sisältää tietokannan ,jossa esim. ekalla rivillä kenttien otsikot
        Taul2 sisältää myös samaiset kenttien otsikot joiden alle kirjoitat sitten hakuehdot
        Taul3 kopioidaan Taul2 riveillä 1 ja 2 olevien hakuehtojen mukaiset tiedot
        Ja tässäpä lyhykäisyydessään koodi

        Sub Suodata()
        Dim Vika As Integer
        Sheets("Taul3").Cells = ""
        Taul1.Activate
        Vika =Range("A65536").End (xlUp).Row
        Range("A1:D" & vika).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("Taul2!A1:D2"), Unique:=False

        Intersect(Cells.SpecialCells(xlCellTypeVisible), Range("A1").CurrentRegion).Copy Destination:=Range("Taul3!A1")
        End Sub

      • Kunde

        Mitäs,jos solussa C1 oleva haettava arvo löytyykin vasta esim solusta D10? Tässä tapauksessahan se valitsee vain solun C1,elikä ei toimi kuten Excelin oma ETSI-funktio.
        Ei millään pahalla :)

      • Toope
        Kunde kirjoitti:

        Taul1 sisältää tietokannan ,jossa esim. ekalla rivillä kenttien otsikot
        Taul2 sisältää myös samaiset kenttien otsikot joiden alle kirjoitat sitten hakuehdot
        Taul3 kopioidaan Taul2 riveillä 1 ja 2 olevien hakuehtojen mukaiset tiedot
        Ja tässäpä lyhykäisyydessään koodi

        Sub Suodata()
        Dim Vika As Integer
        Sheets("Taul3").Cells = ""
        Taul1.Activate
        Vika =Range("A65536").End (xlUp).Row
        Range("A1:D" & vika).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("Taul2!A1:D2"), Unique:=False

        Intersect(Cells.SpecialCells(xlCellTypeVisible), Range("A1").CurrentRegion).Copy Destination:=Range("Taul3!A1")
        End Sub

        Kiitos ohjelmapätkästä.

        Voisitko vielä jelpata että miten
        saan niin että taulukko 1 ei muutu kun olen syöttänyt taulukkoon 2 hakuarvot ja suortittanut haun? Yritän myöskin tehdä niin että kun olen antanut hakuarvot niin siirrytään suoraan taulukkoon 3 jossa näkyy haun tulokset.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      87
      4088

    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      24
      2911

    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2310

    4. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      34
      1321

    5. Puukotus yöllä

      Oli kaveri hermostunut ja antanut puukosta.
      Sotkamo
      10
      909

    6. Mitä sun kaltainen ihminen tekee tämmöisessä paikassa?

      Et kuulu tänne?
      Ikävä
      131
      885

    7. rakas J siellä jossain

      Niin ikävä sua. -P. Nainen
      Ikävä
      6
      874

    8. Masan touhut etenee

      Punatiilitalon tietotoimiston mukaan Masa on saanut viimein myytyä kämppänsä ja kaavoittaa uudelle lukaalille tonttia pa
      Äänekoski
      12
      822

    9. You've been running and

      so has your mind, I'm thinking of you all the time... 💘
      Ikävä
      11
      760

    10. Naisten ja miesten tasoeroista

      Oletteko huomanneet, että naisissa ylemmän tason naiset ovat sinkkuja, ja miehissä alemman tason incelit? Toimivat paris
      Ikävä
      124
      756
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt