Filter met waarde uit inputbox

[dominiekO]

Beste helpers,

Op blad 1, een reeks gegevens.
Op blad 2, drie macroknoppen.
Als je op blad 2 op de knop SIM klikt verschijnt er een inputbox.
Graag zou ik via de ingegeven waarde de desbetreffende rij uit blad 1 kopieren naar blad 3 (waarde komt uit kolom G).
Als jullie mij op weg kunnen helpen, dan kan ik de andere twee wel zelf doen (denk ik)

Bestand zit in bijlage

Bekijk bijlage projecten2.xls

 

[Cobbe]

Is dit een begin of niet?

Cobbe

 

[dominiekO]

Beste Cobbe,

Is niet wat ik zoek, al heb je me toch wel mooi een oplossing gegeven voor een ander probleem:thumb:

Het is de bedoeling dat de waarde ingegeven wordt(inputbox) en dat het resultaat op het derde blad komt. Bij een volgende opzoeking mag de voorgaande opzoeking er niet meer staan.

 

[Cobbe]

Dan voldoet deze zeker.

Cobbe

 

[Warme bakkertje]

Cobbe, ik denk dat TS bedoelt dat er geen voorgaande zoekresultaten meer mogen voorkomen op Sheet3

Sub ZoekenopSim()
rij = Sheets(1).Range("G6:G24").Find(What:=Application.InputBox("Geef het Sim-nummer in", _
        "Zoeken op Sim", , , , , , 1), LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Row
With Sheets("Sheet3")
    .Range("A4:O" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
    lrij = .Range("A65000").End(xlUp).Row + 1
    Sheets("Sheet1").Range("A" & rij & ":O" & rij).Copy .Range("A" & lrij)
End With
End Sub

 

[dominiekO]

Beste Cobbe,

Ik zie het verschil niet met je eerste oplossing

 

[Cobbe]

Dat komt omdat ik de verkeerde regel wiste.
Warme Bakkertje had de vraag wel goed gelezen.
Heb het nu aangepast zoals ik meen begrepen te hebben.

Cobbe

 

[dominiekO]

Ziet er goed uit.

Bedankt voor de oplossingen.