Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: zoekfuctie  (gelezen 12309 keer)

0 leden en 1 gast bekijken dit topic.

Offline Vertoken

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
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: 20.127
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Vertoken

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

 


www.combell.com