zoek op alle bladen

[W Bloemendal]

ik heb de volgende macro

Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim GEVONDEN As Boolean

aantal = "11"
zoek = InputBox("geef zoek opdracht", "ZOEKEN")
For i = 1 To 11
On Error Resume Next
If i = 1 Then bladnr = "data"
If i = 2 Then bladnr = "zagen"
If i = 3 Then bladnr = "buisboren"
If i = 4 Then bladnr = "voordraaien"
If i = 5 Then bladnr = "dimpelen"
If i = 6 Then bladnr = "riffelen"
If i = 7 Then bladnr = "uitbesteed sabo"
If i = 8 Then bladnr = "harden"
If i = 9 Then bladnr = "nadraaien"
If i = 10 Then bladnr = "slijpen"
If i = 11 Then bladnr = "magazijn"
Sheets(bladnr).Activate
Range("a1").Select


GEVONDEN = Cells.Find(What:=zoek, After:=ActiveCell).Activate
If GEVONDEN = True Then
Exit Sub
End If
Next i
MsgBox "niet gevonden"

End Sub
Maar nu wil ik de volgende regels in brengen

Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets

In plaats van het For i =1 to 11 gedeelte

 

[Wigi]

Zo bijvoorbeeld:

Dim zoek As String
Dim r As Range
Dim Ws As Worksheet

zoek = Application.InputBox("geef zoek opdracht", "ZOEKEN", Type:=2)

For Each Ws In ThisWorkbook.Sheets

    Set r = Ws.Cells.Find(What:=zoek, After:=ActiveCell)
    
    If Not r Is Nothing Then
    
        Application.Goto r, True
        Exit Sub
        
    End If
Next

MsgBox "Zoekwaarde werd niet gevonden", vbCritical

End Sub

Wigi

 

[Ginger]

W Bloemendaal, Waarom de find-functie van Excel nabouwen? Je kan in het find-scherm opgeven waar er gezocht moet worden (Sheet of Workbook). Als je dus voor workbook kiest, wordt er al overal voor je gekeken.
't Is trouwens wel leuk om deze optie (zoeken in Workbook) op te nemen met de macro-recorder. Je ziet dan géén verschil in de coderegels met zoeken in sheet.... ??? Maar vreemd genoeg werkt het codeblokje wél met zoeken in het hele workbook.

Groet, Leo

 

[Wigi]

Als het "enkel" dit is, zou ik inderdaad de ingebouwde zoekfunctie gebruiken. Vanaf dat je echter iets meer of iets anders nodig hebt, zal vaak VBA nodig zijn.

 

[W Bloemendal]

hallo

Wigi bedankt het werkt perfect.

Ginger Die optie had ik niet naar gekeken en toen ik een paar jaar geleden naar het zoeken op meerdere pagina's de vraag hier over gesteld had heb ik hierop geen goede reactie gehad. Toen heb ik hem zelf maar gemaakt.
Met de macro gaat het vlugger Geen opties invullen.

Wim

 

[W Bloemendal]

Het is toch nog niet perfect,
het gevonden wordt links boven in het scherm getoond.
omdat de gegevens in het blad maar een scherm breed zijn verdwijnen de eerste kolommen. dit moet nu steeds terug gezet worden.

is het mogelijk dat de gevonden cel wel boven in het scherm komt maar niet in de eerst getoonde kolom, dus dat kolom A ook zichtbaar blijft.

wim

 

[Wigi]

Probeer dit eens:

Dim zoek As String
Dim r As Range
Dim Ws As Worksheet

zoek = Application.InputBox("geef zoek opdracht", "ZOEKEN", Type:=2)

For Each Ws In ThisWorkbook.Sheets

    Set r = Ws.Cells.Find(What:=zoek, After:=ActiveCell)
    
    If Not r Is Nothing Then
    
        Ws.Select
        r.Select
        Exit Sub
        
    End If
Next

MsgBox "Zoekwaarde werd niet gevonden", vbCritical

End Sub

 

[W Bloemendal]

Ik heb het ondertussen als volgt opgelost

ActiveWindow.ScrollColumn = 1

wim