Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: zoeken aantal pal in verschllende files

  1. #1
    Vraag is niet opgelost

    zoeken aantal pal in verschllende files

    Hoi

    we hebben dus een file genoemd test 1 en in kolom B staan een tal ref die hij dan moet terugzoeken en verschillende excel files (book 1 en book 2).

    als er bv in de file test 1 de ref 325 staat moet hij in de file book 1 de ref 325 zoeken en dan dan naar boven zoeken tot hij in kolom N het aantal pal vindt en dat getal in kolom E van de file test 1 invullen. dus voor die 325 moet hij dan 65 vinden onder tabblad woensdag van file book 1 en dat invullen in kolom N van de file test 1.

    Wie kan me helpen met een macro voor deze opdracht?

    alvast bedankt
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Heb een voorbeeldbestand gemaakt. De layout heb ik veranderd waardoor je verticaal kunt zoeken.
    (Referenties onder elkaar en de dagen op 1 tablad).
    Bijgevoegde bestanden Bijgevoegde bestanden

  3. #3
    Hoi,

    maar de macro zou het moeten opzoeken zonder dat ik de files moet aanpassen

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Waarom is het hoofdbestand een .xlx? Dit kan problemen geven met het zoeken in een .xlsx.

    Met de drie bestanden in dezelfde map

    Code:
    Dim b As Boolean
    
    Sub VenA()
      Application.ScreenUpdating = False
      Set wb1 = GetObject(ThisWorkbook.Path & "\Book1.xlsx")
      Set wb2 = GetObject(ThisWorkbook.Path & "\Book2.xlsx")
      ar = Sheets("Sheet1").Cells(1).CurrentRegion
      For j = 2 To UBound(ar)
        b = False
        ar(j, 5) = Zoek(wb1, CStr(ar(j, 2)))
        If Not b Then ar(j, 5) = Zoek(wb2, CStr(ar(j, 2)))
      Next j
      wb1.Close 0
      wb2.Close 0
      Sheets("Sheet1").Cells(1).CurrentRegion = ar
    End Sub
    
    Function Zoek(wb, s) As Double
      For Each sh In wb.Sheets
        t = Application.Match(s, sh.Columns(3), 0)
        If IsNumeric(t) Then
          b = True
          For c = t To 2 Step -1
            If sh.Cells(c, 14) <> "" Then
              Zoek = sh.Cells(c, 14)
              Exit Function
            End If
          Next c
        End If
      Next sh
    End Function
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren