• 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.

Zoekknop voor hele werkmap

Status
Niet open voor verdere reacties.

Kevinw01

Gebruiker
Lid geworden
23 jun 2009
Berichten
85
Hoi,

Ik ben op zoek naar een vba code waarmee ik een zoekknop kan maken voor de hele werkmap. Dus eigenlijk de CTRL + F functie.
Ik wil bijvoorbeeld in cel D1 een artikelcode intypen en dan op de zoekknop klikken. Deze moeten dan over alle tabbladen (met specifieke naam) zoeken naar de desbetreffende artikelcode (dus ook hier naar toe springen). Ik kan niet echt iets vinden wat bij mijn wensen past. Heeft iemand hier toevallig een stukje code voor? :)

Mijn dank is groot!
 
Code:
Sub VenA()
  For Each sh In Sheets
    If sh.Name <> ActiveSheet.Name Then
      Set f = sh.Cells.Find(Range("D1").Value, , xlValues, xlWhole)
      If Not f Is Nothing Then
        Application.Goto f
        Exit For
      End If
    End If
  Next sh
End Sub
 
Mijn dank is enorm groot! Ook enorm bedankt voor de snelle reactie.:thumb:
 
Ik heb nog een aanvullende vraag. Ik weet niet of dit hier in mag?
maar ik wil een messagebox maken wanneer het nummer niet bestaat dat je hier een melding van krijgt. Dit is op zich gelukt. Alleen krijg ik de melding nu twee keer? Dus moet twee keer ok klikken om de melding weg te krijgen. Wat heb ik verkeerd gedaan?

Code:
'-- Zoekbutton op het tabblad "Voorraadbeheer" voor het zoeken van artikelen
Private Sub CommandButton1_Click()
  For Each sh In Sheets
    If sh.Name <> ActiveSheet.Name Then
      Set f = sh.Cells.Find(TextBox1.Value, , xlValues, xlWhole)
      If Not f Is Nothing Then
        Application.Goto f
        Exit For
    Else
      MsgBox "Dit artikel is niet bekend", vbInformation, "Onbekend nummer"
      End If
    End If
  Next sh
End Sub
 
Dat komt omdat de msgbox ook in de loop zit. Wanneer het nummer in sheet 2 en 3 niet gevonden (wel in 4) wordt, komt de msgbox ook twee keer in beeld.
 
Dank je voor de reactie. Hoe kan ik dit dan oplossen?
 
Zo :

Code:
'-- Zoekbutton op het tabblad "Voorraadbeheer" voor het zoeken van artikelen
Private Sub CommandButton1_Click()
  For Each sh In Sheets
    If sh.Name <> ActiveSheet.Name Then
      Set f = sh.Cells.Find(TextBox1.Value, , xlValues, xlWhole)
      If Not f Is Nothing Then
        Application.Goto f
        Exit For
      End If
    End If
  Next sh
[COLOR="#FF0000"]If f Is Nothing Then
MsgBox "Dit artikel is niet bekend", vbInformation, "Onbekend nummer"
End If[/COLOR]
End Sub
 
Super, dank je wel!

Dus eigenlijk na die Next sh ben je uit die loop en kun je nog altijd een then of else meegeven?
 
Ja dan ben je inderdaad uit de loop. Nee, je kunt geen else meegeven want je hebt de "if" al beëindigd in de loop. Vandaar een nieuwe if statement
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan