Excel hakutoiminto välilehden taulusta InputB:llä

HakuPekka

Olen tekemässä hakutoimintoa listaan, jossa yli 2000 riviä, 5 saraketta. Haluaan saada hakutoiminnon Inbox Makron Inbox hakua toiminnolla. Mulla on koodi , jota työstän:

Sub tapahtumahaku()

Dim menotapahtuma As ListObject
Dim etsinta_alue As Range
Dim solu As Range
Dim riviosuma As Variant
Dim hakutieto As String

' Asetetaan tietokannaksi/tietoalueeksi Loki-välilehden kavijaloki -taulukko
>>>Set menotapahtuma = Sheets("Menotapahtumat").ListObjects("menolista")
{ HUOM! TÄSSÄ KOHDASSA HERJAA JOTAIN. MUTTA MITÄ?


' Asetetaan tietojen hakualueeksi menotapahtuma-taulukon eka sarake eli Päivä -sarake
Set etsinta_alue = menotapahtuma.ListColumns(1).Range

hakutieto = InputBox("Päivämäärä?", "Hae päivämäärällä")

'Käydään etsintä alueen solut läpi
For Each solu In etsinta_alue

'tutkikaan vastaako hakutieto solun sisältöä
If hakutieto = solu Then

' Selvitetään löydetyn solun rivinumero kavijaloki-taulukossa
valitturivi = solu.Row - 1

' Valitaaan rivi, josta etsittävä tieto löytyi
menotapahtuma.ListRows(valitturivi).Range.Select

End If
Next solu
End Sub

1

103

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kundepuu

      kymmenittäin mun tekemiä makroja löytyy ja ei juurikaan tarvitse kuin solualueita fiksata ja ei turhia luuppailuja
      haejasiirrä esimerkiksi hakusanaksi...

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

    Luetuimmat keskustelut

    1. Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita

      Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita – neljä Jyväskylän Outlaws MC:n jäsentä vangittu: "Määrät p
      Jyväskylä
      55
      1796
    2. Persut petti kannattajansa, totaalisesti !

      Peraujen fundamentalisteille, vaihtkaa saittia. Muille, näin sen näimme. On helppo luvata kehareille, eikä ne ymmärrä,
      Maailman menoa
      43
      1583
    3. Ei luottoa lakko maahan

      Patria menetti sovitun ksupan.
      Suomen Keskusta
      49
      1539
    4. Nähtäiskö ylihuomenna taas siellä missä viimeksikin?

      Otetaan ruokaöljyä, banaaneita ja tuorekurkkuja sinne messiin. Tehdään taas sitä meidän salakivaa.
      Ikävä
      4
      1485
    5. Sinäkö se olit...

      Vai olitko? Jostain kumman syystä katse venyi.. Ajelin sitten miten sattuu ja sanoin ääneen siinä se nyt meni😅😅... Lis
      Ikävä
      5
      1468
    6. Housuvaippojen käyttö Suomi vs Ulkomaat

      Suomessa housuvaippoja aletaan käyttämään vauvoilla heti, kun ne alkavat ryömiä. Tuntuu, että ulkomailla housuvaippoihin
      Vaipat
      5
      1384
    7. Hyvää yötä ja kauniita unia!

      Täytyy alkaa taas nukkumaan, että jaksaa taas tämän päivän haasteet. Aikainen tipu madon löytää, vai miten se ärsyttävä
      Tunteet
      7
      1298
    8. Lepakot ja lepakkopönttö

      Ajattelin tehdä lepakkopöntön. Tietääkö joku ovatko lepakot talvella lepakkopöntössä ´vai jossain muualla nukkumassa ta
      10
      1260
    9. Revi siitä ja revi siitä

      Enkä revi, ei kiinnosta hevon vittua teidän asiat ja elämä. Revi itte vaan sitä emborullaas istuessas Aamupaskalla
      Varkaus
      3
      1132
    10. Kello on puoliyö - aika lopettaa netin käyttö tältä päivältä

      Kello on 12, on aika laittaa luurit pöydälle ja sallia yörauha kaupungin asukkaille ja työntekijöille. It is past midni
      Hämeenlinna
      3
      1113
    Aihe