Hej

Jag försöker hitta en lösning i att söka i flera kolumner och rader i flera olika excel blad från en huvudsida. Har googlat runt utan att hitta en rimlig lösning som jag förstår mig på. Sök funktionen i en piovttabeller funkar väl bara i ett blad.

Varje blad innehåller uppgifter med namn, yrke, telefonnummer etc. mellan flera olika enheter. Dessutom kan informationen ändras i bladen samt bladflikar kan komma att läggas till med tiden.

Verkar vara en knepig nöt att knäcka då jag hittar flera som ställer samma fråga utan att få svar.

Tacksam för hjälp
//Rasmus

Det finns kommandon som heter "letaupp" som kan göra ganska mycket. Där kan man referera till kolumner i olika ark. Kolla och se om det kan ge dig möjligheter till uppslag.

Tyvärr var inte det jag letade efter, tack iaf.

Jag har något liknande på ett exelark jag har, Fast den söker bara i en kolumn per ark. Men den går säkert att vidareutveckla. Jag har gjort ett macro som söker åt mig. Sätt på Autofilter på kolummerna du vill söka på och klistra in följande kod + att du får lägga dit en knapp också.

Private Sub Find_Click()
Findao = InputBox("Vilket AO-nummer söker du?", "AO-nummer")
    Sheets("vtg").Select

Selection.AutoFilter Field:=1, Criteria1:="=" & Findao & "", Operator:=xlAnd
    Sheets("Vgodk").Select

Selection.AutoFilter Field:=1, Criteria1:="=" & Findao & "", Operator:=xlAnd
    Sheets("pågår").Select

Selection.AutoFilter Field:=1, Criteria1:="=" & Findao & "", Operator:=xlAnd
End Sub

Koden söker i 1:a kolumnen (Field:=1)
i (Sheets("sidnamn").select) väljer du vilken sida den skall söka på
När den letat igenom sidorna får jag gå igenom dom manuellt och se vilken sida jag fått träff på.
För att alla raderna skall synas igen, Gör en knapp till och lägg in detta macro.

Private Sub Wiev_all_Click()
    Sheets("vtg").Select
   Selection.AutoFilter Field:=1 'Väljer alla
   
       Sheets("vgodk").Select
   Selection.AutoFilter Field:=1 'Väljer alla
   
       Sheets("pågår").Select
   Selection.AutoFilter Field:=1 'Väljer alla
   
    Sheets("vtg").Select
End Sub

Hoppas du har nytta av detta och lycka till
//Jocke

Super thx, ska kolla igenom koden när jag hinner.