Hulp nodig met zoeken via textbox

[promoboy]

Ik wil een soort google search engine op een excel blad.

op de eerste pagina kan er in een textbox waarde ingegeven worden die gezocht moet worden op de 2de pagina

als de waarde gevonden is moet heel de rij gekopieerd worden naar de 1 ste pagina en geplakt worden vanaf cell "A18".

via radio buttons kan er eventueel een extra criterium worden gegeven.

ik heb volgende code maar krijg het niet in orde

    Sub SearchForString()
    Sheets("Gegevens Inbrengen").Range("A18:J50000").ClearContents
    Range("A18").Select
    
        Dim LSearchRow As Integer
        Dim LCopyToRow As Integer
        
        
        On Error GoTo Err_Execute
        
        'Start search in row 2
        LSearchRow = 2

        'Start copying data to row 18 in Gegevens Inbrengen (row counter variable)
        LCopyToRow = 18
        Sheets("ArtikelData").Select
        While Len(Range("A" & CStr(LSearchRow)).Value) > 0

            'If value in colums A:J = "", copy entire row to Gegevens Inbrengen
            If Range("A:J" & CStr(LSearchRow)).Value = Textboxing.Value Then
        

                'Select row in ArtikelData to copy
                Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
                Selection.Copy

                'Paste row into Gegevens Inbrengen in next row
                
                Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
                Sheets("Gegevens Inbrengen").Select
                ActiveSheet.Paste

                'Move counter to next row
                LCopyToRow = LCopyToRow + 1

                'Go back to ArtikelData to continue searching
                Sheets("ArtikelData").Select

            End If

            LSearchRow = LSearchRow + 1

        Wend

        'Position on cell A18
        Application.CutCopyMode = False
        Sheets("Gegevens Inbrengen").Select
        Range("A18").Select

        MsgBox "All matching data has been copied."

        Exit Sub

Err_Execute:
        MsgBox "An error occurred."
End Sub

 

[c.smallenbroek]

Het is een tijd geleden dat ik hier heb gekeken, maar ik zag nu je vraag staan. Is het ondertussen al opgelost? Anders heb ik misschien wel iets voor je. Ik heb namelijk een Excelbestand gemaakt voor het bestellen van artikelen in het magazijn van het bedrijf waar ik werk. In deze magazijnlijst heb ik een zoekfunctie gemaakt, waarin je een bepaalde artikel kunt opzoeken. Als dit artikel is gevonden komt er gelijk het bijbehorende magazijnnummer bij te staan en kan dit alles worden gekopieerd naar een bestellijst. Ondertussen maken wij geen gebruik meer van deze lijst, omdat dit nu via een webwinkel op ons intranet kan.

De magazijnlijst staat onder een tabblad, hierin staan alle magazijnartikelen met magazijnnummer, prijs e.d.. De zoekfunctie heb ik in een ander tabblad gemaakt. Wat de zoekfunctie doet, is kijken in de magazijnlijst of het artikel ertussen staat. Als dit zo is, pikt de zoekfunctie de gegevens eruit die nodig zijn en toont deze in het scherm ( tabblad) van de zoekfunctie.

Het gevonden item kan vervolgens door een druk op de knop naar een bestellijst worden gekopieerd.

Als je hier wat aan hebt, laat me dit maar even weten..

Groet,

Christian Smallenbroek