Tiedon hakeminen toisesta taulukosta

Saisit varmaan nopeammin vastauksia, jos kertoisit, minkä ohjelman tai ohjelmien avulla nuo mainitsemasi taulukot pyörivät.

Jos vaan ihan yksinkertaisesti laitat siihen soluun johon pitää tulla myynti2015 ET5 arvo, suoran linkin. Eli:
- avaa molemmat tiedostot
- klikkaa sitä solua johon haet tiedon ja laita "="-merkki, vaihda lähdetiedostoon ja klikkaa ET5 solua
- kaava näyttää nyt tältä =[myynti2015.xlsx]"välilehden nimi"!$ET$5 (solussa näkyy se sama arvo kuin myynti2015 arvo on.

Miten selviää, mille välilehdelle henkilön Etu Suku tiedot kirjoitetaan?

PHAKU-funktio hakee halutusta taulukosta nimen perusteella halutun arvon määrätystä sarakkeesta. Mutta jos toisessa taulukossa on Matti Meikäläinen ja toisessa E, ei haku onnistu. Molemmista pitää löytyä joko Matti M. tai E tai molemmat

Henkilökohtainen.xlsx sivun Taul1 nimeksi tulee vko 0 ja muut sivut poistetaan. Soluun A1 tulee vuosiluku 2015. Talletetaan muodossa xlsm. Sivulle tulee kaksi nappia -   Uusi ja Täytä, jotka linkitetään saman nimisiin makroihin. Esimmäisellä tehdään kopiota sivusta vko 0. Ne nimetään järjetyksessä. Toinen nappi avaa tiedoston Myynti_2015.xls ellei se ole auki. Kutakin nimeä vastaava tunnus tarkistetaan vko 0 -sivulta ja tedot kirjoitetaan tunnusta vastaavalle riville.

' =========================
Sub Uusi()
      N = Sheets().Count
      Sheets("vko 0").Copy After:=Sheets(N)
      Sheets(N 1).Name = "vko " & Mid(Sheets(N).Name, 5) 1
      Sheets(N 1).Select
End Sub
' =========================

Sub Täytä()
On Error GoTo Err

   Application.EnableEvents = False
   Application.Calculation = xlCalculationManual
   
      polku = ActiveWorkbook.Path
      henkkoht = ActiveWorkbook.Name
      viikko = ActiveSheet.Name
      myynti = "Myynti_" & Range("A1") & ".xlsx"
      Set myyntixl = Workbooks(myynti)
      If myyntixl Is Nothing Then
         Workbooks.Open Filename:=polku & "\" & myynti
         pitiavata = True
      Else
         pitiavata = False
      End If
      For vs = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
         If Workbooks(myynti).Sheets(1).Cells(1, vs).Value = viikko Then Exit For
      Next vs '
      If vs < 2 Then
         a = MsgBox("Ei tietoja viikolle " & viikko, vbOKOnly)
         Exit Sub
      End If
      With Workbooks(myynti).Sheets("Taul1")
         For i = 4 To 20
            nimi = .Cells(i, "A")
            If nimi <> "" Then
On Error Resume Next
               kirjain = WorksheetFunction.VLookup(nimi, Sheets("vko 0").Range("A3:C42"), 3, False)
               If kirjain = Empty Then
                  a = MsgBox("Ei nimieä " & nimi, vbOKOnly)
                  Exit Sub
               End If
On Error GoTo Err
               For j = 3 To 41
                  m = Cells(j, "C")
                  If Cells(j, "C") = kirjain Then
                     Range("A" & j).Value = .Range("A" & i).Value
                     .Range(.Cells(i, vs), .Cells(i, vs 2)).Copy
                     Range("K" & j).PasteSpecial xlPasteValues
                     Exit For
                  End If
                  If j = 41 Then
                      a = MsgBox("Ei nimieä " & nimi, vbOKOnly)
                      Exit Sub
                  End If
               Next j
            Else
               Exit For
            End If ' nimi
         Next i
      End With
      
Err:

   If pitiavata Then Workbooks(myynti).Close
   Application.Calculation = xlCalculationAutomatic
   Application.EnableEvents = True
   
End Sub