Willekeurige selectie vullen

[Jos the Boss]

Ik wil graag met behulp van een macro de waarde van een cel in een selectie overbrengen.

Ik heb in de cellen C1, D1, E1 en F1 teksten staan om een kalender in te vullen. Nu wil ik eerst een selectie maken met meerdere cellen b.v. D12 : D15 en G13 en dan met een druk op de knop deze cellen laten vullen met b.v. de waarde uit D1.
Uiteraard wil ik per tekst een knop maken met het uitlezen van de juiste celinhoud.
Wie weet of dit mogelijk is en kan mij vertellen hoe ik dit kan doen.

B.v.d.
Jos

 

[RoCompy87]

Om de waarde uit D1 in je selectie terug te laten komen kun je de volgende macro gebruiken. Voeg een knop toe aan het werkblad en wijs deze macro hieraan toe.

Sub copyD1()
Selection.Cells.Value = [d1]
End Sub

PS: Met deze code ga ik ervan uit dat alles op hetzelfde werkblad gebeurt.

 

[Jos the Boss]

Geweldig

Hallo RoCompy87

Dit geweldig. Het doet precies wat ik wil het gebeurd inderdaad op hetzelfde werkblad dus ik ben hiermee geholpen.
Bedankt voor de snelle hulp.

Jos