Met waarde uit één cel naar een sheet verwijzen

[Joeri113]

Ik loop tegen een probleem aan met VBA, waar ik na zoeken op internet nog niet uitkom terwijl het me geen lastig probleem lijkt.
Ik heb een macro opgenomen (een deel staat hieronder) en deze doet het goed voor de sheet die ik als voorbeeld heb gebruikt de sheet "Partij 1" is zoals ook in de code hieronder te zien is.
De macro moet het niet alleen op sheet partij 1 doen maar met een selectie in een cel in de sheet "Nog te leveren" ook in (partij 1, partij 2 etc etc).
Ik wil dus met een cel in de sheet "Nog te leveren" aan kunnen geven in welke sheet de macro moet zijn.
Hoe doe ik dit? Alvast bedankt!

Selection.Copy
Sheets("Partij 1").Select
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Nog te leveren").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Partij 1").Select
Range("Q26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Nog te leveren").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy

 

[edmoor]

Zoiets, als ik je goed begrijp. Met de naam van het bedoelde werkblad in A1:

Sub Doorvoeren()
    Dim tsh As Worksheet
    With Sheets("Nog te leveren")
        Set tsh = Sheets(.Range("A1").Value)
        .Range("B5") = tsh.Range("B4")
        .Range("C5") = tsh.Range("C4")
        .Range("D5") = .Range("A1")
    End With
End Sub

 

[Joeri113]

Ik kom er met jou macro niet uit.
Kun je het toepassen op mijn voorbeeld?
Alvast bedankt!

 

[edmoor]

Omdat alles ergens anders staat. Macro in #2 aangepast en je voorbeeld toegevoegd:
Bekijk bijlage Voorbeeld.xlsm

 

[Joeri113]

De macro doet het nu precies verkeerd om.. haha
Ik wil juist dat de gegevens vanuit "Nog te leveren" naar de gewenste partij wordt geschreven.
Dus als in sheet 'Nog te leveren" in D5, Partij 3 ingevuld wordt de naam en aantal producten in sheet Partij 3 worden ingevuld.

 

[edmoor]

Dan pas je de volgorde en te gebruiken werkblad toch even aan? Volgens mij is het zo duidelijk genoeg wat er moet gebeuren.

 

[Joeri113]

Ja, het is gelukt! Bedankt!

 

[edmoor]

Ok dan