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

1096

    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ä.

    Luetuimmat keskustelut

    1. Putin hoiti Suomen natoon ja myös Ruotsin

      Iso kiitos Vladimir Putinille. Hänen ansiosta pääsemme nyt Natoon. Putin halusi Naton lähelle ja nyt sai. Voimme tästä kiittää vain Putinia.
      Maailman menoa
      648
      7948
    2. Niinistö teki hetkessä Suomesta Venäjän ydinaseiden maalitaulun

      Kaiken lisäksi mies vielä lällätteli Putinille eilisessä tiedotustilaisuudessa ja käski katsomaan itseään peiliin. Kyllä vähän asiallisempaa käytöstä
      Maailman menoa
      466
      2234
    3. Voi Stefu ja sun kiivas luonteesi

      Sielä lentelee ullakkohuoneiston ikkunasta daamin vaatteet ja matkalaukut pitkin pihaa. Toisaalta,en ihmettele yhtään että tämä suhde päättyi näin,kyl
      Kotimaiset julkkisjuorut
      229
      2135
    4. Poliisi otti Stefun kiinni!

      Seiska tietää kertoa.
      Kotimaiset julkkisjuorut
      144
      1703
    5. Veikkaus: Miten The Rasmus pärjää Euroviisuissa?

      Euroviisuhuuma on ylimmillään, kun Suomi ja The Rasmus taistelee biisillään Jezebel. Bändi on tikissä, kunhan Lauri Ylösen ääni kantaa. Mitä veikka
      Viihde ja kulttuuri
      51
      1230
    6. Ohhoh! Martina Aitolehti ja seurapiirihurmuri-Jesper ekassa yhteiskuvassa - Sutinaa Mallorcalla!

      Martina Aitolehti ja seurapiirijulkkis-Jesper nauttivat toisistaan varsin vauhdikkaissa merkeissä Mallorcalla. Aitolehti ei ole esitellyt rakastaan vi
      Kotimaiset julkkisjuorut
      25
      1223
    7. Stefanilta tuli taas karu totuus Sofiasta

      Marokkolainen h*o*ra! Voi tsiisus kun mulla on hauskaa! Lumput lentää ikkunasta kun Stefu raivoaa h*uralleen🤣🤣🤣 Nyt ne popparit tulille, tästä tule
      Kotimaiset julkkisjuorut
      99
      1104
    8. Ootko onnellinen kun ei tarvitse

      nähdä tätä tyhmää naamaa enää koskaan? Multa se särkee sydämen, mutta minkäs teen. Vaikka olisi kuinka sinnikäs eikä hellittäisi, se ei aina auta.
      Ikävä
      65
      836
    9. Steppuli veressä

      Seiskan lööpissä Steppulilla naama ja nyrkit veressä. Ei tainnut ihan kamojen pihalle paiskominen riittää. Onkohan pistänyt kämpän tuusannuuskaks.
      Kotimaiset julkkisjuorut
      58
      753
    10. Oletko nähnyt eroottiset kohuleffat? Fifty Shades Of Grey -trilogia tv:stä

      Fifty Shades -trilogia starttaa, kun nuori opiskelijanainen Anastasia tapaa rikkaan liikemiehen. Seksisuhdehan siitä starttaa, höystettynä sadistisill
      Suhteet
      7
      732
    Aihe