VBA en zoeken

[allard1]

Geachte mensen,

Ik ben al een uurtje aan het "pielen" met een vorm van een zoekfunctie en vervolgens plak functie in VBA. Het idee is als volgt:

Ik heb een lijst met debiteurnummers. Wat ik probeer te bewerkstelligen is een dat als ik in een cel of textbox een debitnr intik en vervolgens op een mooie knop druk, hij de gegevens behorende bij dat nr copied en paste op een ander blad. Dat laatste gedeelte heb ik al werkend. Maar het eerste gedeelte niet. Onderstaand een voorbeeld van de code die ik gebruik. Misschien is het wel gepruts, dat kan

Private Sub knopnotascript_Click()

Dim notanr


Dim Msg, Style, Title, reponse, mystring
Msg = "Wil je een script aanmaken voor het aanpassen van de nota?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Vraag"

response = MsgBox(Msg, Style, Title, Help, ctxt)
If response = vbYes Then

Set notanr = Worksheets("notas").Range("k1")

'notanummerzoeken en plakken
Worksheets("Notas").Range("B" & notanr).Copy
Worksheets("Testblad").Range("A").PasteSpecial Paste:=xlValues

Application.CutCopyMode = False

End If

End Sub

Heeft iemand een idee wat niet werkt ? Op een andere sheet werkt de verwijzing naar een nummer wel, maar misschien haal ik termen door elkaar

Groet,
Allard

 

[Wigi]

Zo?

notanr = Worksheets("notas").Range("k1")

'notanummerzoeken en plakken
Worksheets("Notas").Range("B" & notanr).Copy
Worksheets("Testblad").Range("A1").PasteSpecial xlValues

Wigi