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.
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.
Vastaukset 6
Vanhimmat
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)
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
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
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 :)
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.