*

Help!

Problemen met uw pc? De vrijwilligers van oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Recent

Auteur Topic: zoekfuctie  (gelezen 5421 keer)

Offline Vertoken

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
    • http://vertoke.eu
zoekfuctie
« Gepost op: 14 mei 2018, 14:05:07 »
Hallo,

Heb een bestand gemaakt met vele sheets in mijn index sheet staan alle serienummers van toestellen en zou nu graag via vba een knop aanmaken voor het zoeken naar serienummer en bij het vinden direct naar de sheet gaat van het opgegeven serienummer

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.043
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: zoekfuctie
« Reactie #1 Gepost op: 14 mei 2018, 14:39:04 »
Hallo Vertoken,

Welkom op Oplossing.be  :)

-Sla je bestand op als xlsm bestand, en werk hier mee verder.
-Maak een knop aan op je index werkblad. Open Index werkblad, In het tab Ontwikkelaars, Invoegen, Formulierbesturingselementen, klik je op "Knop" en teken een willekeurige grootte op je werkblad. Je kan dit nadien aanpassen. Bij het maken van die knop verschijnt er een venster "Macro toewijzen aan Knop1_Klikken". Klik op "Nieuw".

Deze knop is nu gekoppeld aan een lege macro. Open je VBA editor. Je komt automatisch in Module1, en je ziet rechts:
Sub Knop1_Klikken()

End Sub

Kopieer onderstaande code en plak deze tussen Sub Knop1_klikken en End Sub.


    Dim i As Integer
    Dim Serienummer As String
    Dim rng As Range
    Serienummer = InputBox("Welk serienummer zoekt u?")
    For i = 2 To Worksheets.Count
        Set rng = Worksheets(i).Cells.Find(Serienummer)
        If Not rng Is Nothing Then
        Worksheets(i).Activate
        rng.EntireRow.Activate
        End If
    Next i

Sla je werkboek op.
Een klik op de knop zou je nu een invulveld moeten geven, en na een serienummer en OK zou het desbetreffende tabblad moeten openen.

Werkt dit?

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.043
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: zoekfuctie
« Reactie #2 Gepost op: 15 mei 2018, 15:44:08 »
Hallo Vertoken,

geen reactie?

Ik zag dat je ook de mogelijkheid kunt gebruiken om in je tabblad Index een cel met een serienummer te seleteren, en dan op de knop te drukken, zodat de macro onmiddelijk naar dat serienummer in een van de andere werkbladen gaat.

Daarvoor gebruik je volgende code:

Sub Knop1_Klikken()
Dim i As Integer
    Dim Serienummer As String
    Dim rng As Range
    Serienummer = selectedRange
    For i = 2 To Worksheets.Count
        Set rng = Worksheets(i).Cells.Find(Serienummer)
        If Not rng Is Nothing Then
        Worksheets(i).Activate
        rng.EntireRow.Activate
        End If
    Next i
End Sub

Groeten,

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline Vertoken

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
    • http://vertoke.eu
Re: zoekfuctie
« Reactie #3 Gepost op: 16 mei 2018, 19:40:37 »
Het werk perfect!

 


www.combell.com