• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Zoeken op alle tabs

Status
Niet open voor verdere reacties.
L

LauravT

Gebruiker
Lid geworden
14 jun 2012
Berichten
156
Hallo,

Ik ben op zoek naar een manier om in alle tabs (behalve degene waar de formule op wordt gebruikt) te zoeken naar een waarde obv meerdere voorwaarden.

Dus eigenlijk een soort verticaal zoeken met meerdere voorwaarden en dan in alle aanwezige tabs (op de tab na waar ik de formule neerzet).

Het is wel de bedoeling dat later toegevoegde tabs meteen meegezocht worden.

Heeft iemand een idee hoe ik dit het beste kan aanpakken?

Groetjes
 
Dat zou inderdaad het handigste zijn, maar gezien de opzet van het bestand is dit helaas niet mogelijk.
 
Bv

Code: 
Sub VenA()
Dim f As Range
With Blad1.Cells(1).CurrentRegion
  ar = .Value
  For j = 2 To UBound(ar)
    For jj = 2 To Sheets.Count
      Set f = Sheets(jj).Columns(1).Find(ar(j, 1), , xlValues, xlWhole)
      If Not f Is Nothing Then
        ar(j, 2) = f.Offset(, 1)
        ar(j, 3) = f.Offset(, 2)
        Exit For
      End If
    Next jj
  Next j
  .Value = ar
End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan