Haku koko työkirjasta ja tietyyn solun arvon tulokseksi

Anonyymi

Minulla on excel, jossa on ainakin 30 välilehteä.
Välilehdillä resursointiin liittyvää tietoa. Ja lisäksi minulla on kokooma, joka summaa kaikista välilehdistä henkilöiden varaukset. Ja sen olen saanut pelittämään tosi hyvin.
Mutta listalla on uusia henkilöitä, jotka ovat vaan yhden kerran jossain välilehdessä.

Saanko mitenkään sellaisen kaavan, että excel hakee tietyn solun tiedon kaikista välilehdistä, ja kun tieto löytyy, niin palauttaa minulle ko. välilehden solun C6-arvon.
Yritin kokeilla HAKU ja ETSI, JOS kaavoja, mutta ei oikein pelitä, tai en siis vaan osaa :)
vastaukseksihan tulisi varmaan arvo tai virhe niiden kohdille, jotka ovat monella välilehdellä ja se on fine, mutta saisin tietää missä kohteilla henkilöt on vaan yhden kerran.

Kiitos avusta jo etukäteen!

nim. niin lähellä mut tosi kaukana

2

1578

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Sub HakeeKaikistaTaulukoista()
      Dim ws As Worksheet
      Dim Löydetty As Range
      Dim Haku As String
      Dim Tupla As Boolean
      Dim kpl As Long
      Dim i As Long
      Dim C6Arvo As Variant
      Dim Nimi As String
      On Error Resume Next
      'haettava tieto ( nyt Sheet1 taulukko, oletetaan aktiiviseksi, kuna makroa suoritetaan, muuta alempana nimi oikeaksi
      Haku = Range("B3")
      kpl = Worksheets.Count
      For i = 1 To kpl
      ' muuta hakusolun taulukon nimi sopivaksi(ettei hae siitä...)
      If Worksheets(i).Name <> "Sheet1" Then
      With Worksheets(i).UsedRange
      Set Löydetty = .Find(What:=Haku, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole)
      If Not Löydetty Is Nothing Then
      If Tupla Then
      C6Arvo = ""
      Nimi = ""
      GoTo loppu
      End If
      Tupla = True
      C6Arvo = Worksheets(i).Range("C6")
      Nimi = Worksheets(i).Name
      End If
      End With
      End If
      Next i
      On Error GoTo 0
      loppu:
      'muuta taulukon nimi ja solut sopiviksi
      Worksheets("Sheet1").Range("C6") = C6Arvo
      Worksheets("Sheet1").Range("D6") = Nimi
      End Sub

      Keep EXCELing
      @Kunde

    • Anonyymi

      Kuulostaa sellaiselta puuhalta, joka tehdään sql:ssä unionilla.

      Taulu1
      --
      ID Arvo
      1 1
      2 2
      3 3

      Taulu2
      --
      ID Arvo
      1 2
      4 4
      5 5

      SELECT Arvo FROM T1 UNION SELECT Arvo FROM T2;
      --
      Arvo
      1
      2
      3
      4
      5

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

    Luetuimmat keskustelut

    1. Suomen kansa haluaa Antti Lindtmanista pääministerin

      Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http
      Maailman menoa
      266
      4654
    2. Vain 21% kannattaa Lindtmania pääministeriksi

      se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?
      Maailman menoa
      133
      3019
    3. Miten löydän sinut

      Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit
      Ikävä
      44
      2847
    4. Miksei Björn Wahlroos jaa rahaa köyhille?

      Esimerkiksi Nordean tiloissa? Vai tuovatko ne köyhät hiekkaa marmorilattioille ja siksi ei pysty mursunviiksi pystyyn k
      Maailman menoa
      23
      2590
    5. Yöllinen autolla kaahari Heinolan seudulla

      Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?
      Heinola
      76
      1791
    6. Vaikea tilanne

      Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te
      Ikävä
      106
      1644
    7. Jouluksi miettimistä: kuka tai mikä valmistaa rahan?

      Nyt kun on ollut vääntöä rahasta ja eritoten sen vähyydestä, niin olisi syytä uida rahan alkulähteille, eli mistä se syn
      Maailman menoa
      28
      1511
    8. Milloin kaivatullasi

      .. on nimipäivä?
      Ikävä
      59
      1400
    9. Kehtaisitko näyttäytyä

      kaivattusi seurassa?
      Ikävä
      95
      1282
    10. Missä kunnassa kaivattusi asuu

      Kuinka tarkkaa uskalla sanoa?
      Ikävä
      47
      1169
    Aihe