Zoeken en kopiëren met behulp van een macro

[Logistiek]

Goedenavond,

ik ben op zoek naar een macro die met de gegeven van de in cel "s1" en eventueel ook "U1" als deze wordt gebruikt van werkblad "werklijst"
opzoek gaat in kolom "I" van werkblad "planningslijst" naar de overeenkomstige waarde. en dan deze regel(s) ( dit kunnen dus een of meerdere regels zijn ) kopieert naar werkblad "Werklijst" te beginnen bij A
het mag ook op een manier dat als er maar aan een opdracht voldaan kan worden, dus alleen zoekwaarde uit "s1" en dan daarna een volgende week ingevuld kan worden bij "s1" en deze er dan weer onder worden bij geschreven zonder de eerdere waarde te verwijderen als dit een betere optie is?

Wie weet dit voor elkaar te krijgen.

 

[emields]

bedoel je zoiets?

 

[Logistiek]

Ja, super hier kan ik wel weer mee verder knutselen. toppie Bedankt tot zover.

 

[Logistiek]

Toch nog even een vraag.

Is het ook mogelijk om via een "naam definiëren" in het voor beeld gaat het dan om basisgegevens het zoek gebeid te bepalen?
Wat volgens mij als voordeel heeft dat als de data base wordt uitgebreid dit gewoon mee loopt in het zoekgebied.

 

[emields]

Dat was reeds zo in de code maar heb het nu aangepast naar bereik "week".

 

[Logistiek]

oké dank je wel, ik ga er weer mee aan de gang.
laat het weten hoe het werkt.

 

[Logistiek]

Het gaat goed maar zodra er een lege cel tussen zit ( en dat zit er in het originele bestand wel een aantal keer),wordt alles onder de lege cel niet meegenomen bij het maken van de selectie via de macro.

Is hier ook nog wat voor te maken?

Sub Knop1_Klikken()
[a2:q100].ClearContents
For Z = [s1] To [u1]
With Sheets("planningslijst")
For Each cell In .Range("week")
If cell.Value = Z Then
[a1000].End(xlUp).Offset(1).Resize(, 15) = cell.Offset(, -8).Resize(, 15).Value
End If
Next
End With
Next


End Sub

 

[emields]

het is altijd een slecht idee om in excel lege rijen te laten zeker als je werkt met benoemde bereiken.

 

[Logistiek]

het is altijd een slecht idee om in excel lege rijen te laten zeker als je werkt met benoemde bereiken.

Ja dat klopt, maar probeer dat mijn collega's maar een wijs te maken

bedankt voor je snelle reacties, ik ga hier mee aan de gang. voorlopig kan ik weer even vooruit.