Gegevens kopieren van het ene werkblad naar ander werklblad

[Robert Smidt]

Beste helpmijers,

Ik ben bezig om in excel (vba) een rooster te maken waar iedere weeknummer een eigen werkblad heeft (van week 1 t/m week 52). Daarnaast heb ik werkblad "Gegevens". Nu wil ik wanneer ik in een willekeurig werkblad sta de gegevens vanuit werkblad "Gegevens" kopieren naar het betreffende werkblad waar ik op dat moment in sta.

Voorbeeld
Werkblad "gegevens" cel A1 kopieren naar het actieve werkblad naar cel B1. (binnen hetzelfde bestand)

Graag zie ik een antwoord tegemoet.

Groeten, Robert

 

[spaarie]

En hoe weet je welke cel van 'Gegevens' naar het actieve blad gekopieerd moet worden?

 

[Robert Smidt]

Cel A1 in het werkblad "gegevens" is standaard gevuld, de inhoud hiervan moet hij kopiëren naar het actieve werkblad waar ik op dat moment in zit alleen dient de inhoud naar cel B1 gekopieerd te worden.

 

[spaarie]

In een module of achter een commandbutton

Sub Spaarie()
    ActiveSheet.Cells(1, 2) = Sheets("Gegevens").Cells(1)
End Sub

 

[Robert Smidt]

Bedankt

Bedankt voor de reactie, de code werkt, echter heb ik bij nader inzien vergeten te zeggen dat het om een bereik gaat van A4 t/m V19 in werkblad "gegevens" en de bestemming is het actieve werkblad exact op dezelfde plaats.

 

[spaarie]

Zo dan...

Sub Spaarie()
    Sheets("gegevens").Range("A4:V19").Copy ActiveSheet.Range("A4")
End Sub

 

[Robert Smidt]

Het werkt....super bedankt, ik ben hier erg blij mee...