zoeken in alle tab bladen

[HaBro]

Hallo
Ik ben al een hele tijd aan het zoeken om in div. tab bladen te zoeken
maar ik kom niet verder dan in 1 tab blad te zoeken
heb een klein voorbeeld progr gemaakt
de bedoeling is dat er een nummer wordt ingevuld en de daarbij behorende gegevens bij komen.

Mvr gr. Hans

 

[koster1984]

In F15 zou je dan bijvoorbeeld het volgende kunnen zetten:

=ALS.FOUT(VERT.ZOEKEN(G10;AllaReduceers;2);ALS.FOUT(VERT.ZOEKEN(G10;aap!A:P;2);ALS.FOUT(VERT.ZOEKEN(G10;test!A:P;2);"")))

..dan weet je de rest zelf denk ik wel te doen

 

[popipipo]

Zou het helpen als je een extra zoekfunctie er inzet?

In cel G7 zet ik (via datavalidatie) 'DaTa'
In cel G10 kan je dan alleen de nummers selecteren die in 'DaTa' staan.
De overige 5 gegevens worden dan automatisch uit tabblad 'DaTa' gehaald


In cel G7 zet ik (via datavalidatie) 'aap'
In cel G10 kan je dan alleen de nummers selecteren die in 'aap' staan.
De overige 5 gegevens worden dan automatisch uit tabblad 'aap' gehaald

Een ander alternatief is alles in 1 tabblad zetten.

 

[HaBro]

Hartelijk dank voor de snelle reactie
ik ga toch voor de oplossing van koster 1984
popipipo
De bijlage is maar een voorbeeld en er komen alleen maar tabbladen bij
dus alles in 1 tab blad is niet de oplossing.

Helaas heb ik het nog niet werkend
als het in F15 werkt dan lukt het mij wel om de rest werkend te krijgen
Het nieuwe voorbeeld is testb

 

[snb]

Struktureren gaat vooraf aan coderen.
Als je Excel als een soort database wil gebruiken moet je je werkboek ook zo inrichten.
Platte gegevens zet je in 1 werkblad.
De presentatie van selekties uit die database kun je daarna op allerlei manieren vormgeven in werkbladen etc.
Maak een strikt onderscheid tussen de opslag van gegevens, de presentatie van gegevens en de invoer van gegevens.

 

[HSV]

He @snb, ben je aan de drank of zo?

 

[HSV]

Met een macrootje in moduleBlad 'Zoek'.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Long, c As Range
If Not Intersect(Target, Range("G10")) Is Nothing Then
 For ws = 2 To Sheets.Count
  Set c = Sheets(ws).Columns(1).Find(Target, , xlValues, xlWhole)
 If Not c Is Nothing Then
   Range("F15") = c.Offset(, 1)
   Range("K15") = c.Offset(, 2)
   Range("F18") = c.Offset(, 3)
   Range("K18") = c.Offset(, 13)
   Range("F21") = c.Offset(, 15)
  Exit For
 End If
   Next ws
 End If
End Sub

 

[snb]

@HSV

Soms krijg ik jeukende handen, vandaar.......

 

[HSV]

Je hebt het al aangepast zie ik.
Te hopen dat het geen eczeem is/wordt. :d

 

[popipipo]

Ik hoop dat het geen besmettelijk virus is dat via helpmij wordt overgedragen.

 

[snb]

@popipipo

Helaas (?), dat is het wel...
Heb jij nooit jeukende handen als je in dit forum bezig bent ??

 

[snb]

@HaBro.

Gebruik nooit samengevoegde cellen met VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  
  If Target.Address = "$G$10" Then
     For Each sh In Sheets
       sn = sh.Columns(1).Find(Target.Value, , xlValues, xlWhole).Resize(, 15)

       If Err = 0 Then
          Application.EnableEvents = False
          For j = 1 To 5
            Me.Range("F15").Offset(Choose(j, 0, 0, 3, 3, 6), Choose(j, 0, 3, 0, 3, 0)) = sn(1, Choose(j, 1, 2, 3, 13, 15))
          Next
         Application.EnableEvents = True
         Exit For
       end if

       Err.Clear
     Next
   End If
End Sub

 

[HaBro]

Nou inderdaad HSV
ik las het bericht van SNB Gisteravond en ik begreep er niks van
wat moet ik daar nou mee?
maar durfde toch niet te reageren.

Het programma werkt geweldig zelfs als ik bladen toe voeg
vind ie die ook
HSV dit progr. ga ik gebruiken.
maar ik ga ook die van SNB nog eens uit proberen

Ik ben eruit
Heren Hartelijk dank voor het antwoord

Hans

 

[HaBro]

Heer HSV ,,Harry

ook al snap ik niet veel van die code
Het werkt allemaal perfect
en ben nu toch al wat leuks aan het opbouwen.
maar als ie naar een nummer zoekt die er niet is blijft de oude informatie staan
zou het mogelijk zijn dat als ie naar een nummer zoekt die er niet is een venstertje komt van niet gevonden.
dit is het laatste wat ik vraag hoor
dan is het echt perfect.

Hans

 

[HSV]

Heer Hans, hierbij hoop ik aan uw wensen te voldoen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Long, c As Range, y As Long
If Not Intersect(Target, Range("G10")) Is Nothing Then
 For ws = 2 To Sheets.Count
  Set c = Sheets(ws).Columns(1).Find(Target, , xlValues, xlWhole)
    If c Is Nothing Then
     y = y + 1
    Else
   Range("F15") = c.Offset(, 1)
   Range("K15") = c.Offset(, 2)
   Range("F18") = c.Offset(, 3)
   Range("K18") = c.Offset(, 13)
   Range("F21") = c.Offset(, 15)
  Exit For
 End If
   Next ws
  If y = Sheets.Count - 1 Then
 MsgBox "Het nummer is niet gevonden", vbInformation, "Helaas"
 Range("G10,F15:H15,F18:G18,K15,K18,F21:K21").ClearContents
   End If
 End If
End Sub

 

[HaBro]

Geweldig
Dit is precies wat ik wil
Hartelijk Dank

Hans

 

[HSV]

Graag gedaan,

Dan graag de vraag nog als opgelost te zetten.
Bvd.