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
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
Vastaukset 1
Vanhimmat
kymmenittäin mun tekemiä makroja löytyy ja ei juurikaan tarvitse kuin solualueita fiksata ja ei turhia luuppailuja
haejasiirrä esimerkiksi hakusanaksi...