figuur automatisch kopieren naar andere cellen

[brican]

Op mijn werk maak ik regelmatig entreekaartjes met autonummering. Dat gaat prima. De gegevens voor het kaartje maak ik in photoshop (lekker belangrijk) en voeg dan in excel. Als ik een plaatje invoegt in bv cel B1 dan wil ik dat het plaatje automatisch in cel B2:B59 en D1: D59 word ingevoegd. Natuurlijk kan dat met copy-paste of doorslepen maar is er een andere manier voor? Thanks Rien

 

[tilpi]

Je zou er een macrootje voor kunnen maken zoals b.v.

Sub KaartjesMaken()
    Range("B1").Copy
    Range("B2:B59,D1:D59").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Mvg

Piet

 

[Warme bakkertje]

Piet, laat Select en Activate achterwege

Sub KaartjesMaken()
    Range("B1").Copy Destination:=Range("B2:B59,D1:D59")
    Application.CutCopyMode = False
End Sub

je kan hem ook automatiseren

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B1].Address Then
    Target.Copy Destination:=[B2:B59,D1:D59]
    Application.CutCopyMode = False
End If
End Sub

Mvg

Rudi

 

[Wigi]

Rudi,

dit is ook al genoeg:

Sub KaartjesMaken()
    Range("B1").Copy Range("B2:B59,D1:D59")
End Sub

Wigi

 

[brican]

Yep het werkt

Bedankt voor jullie antwoord. Ik heb de laatste gebreukt en het werkt perfect

 

[brican]

Het werkt

Rudi,

dit is ook al genoeg:

Sub KaartjesMaken()
    Range("B1").Copy Range("B2:B59,D1:D59")
End Sub

Wigi

Tja als je het weet lijkt het simpel. Bedankt voor je antwoord hier kan ik verder mee. Ik begrijp de formule ook dus aanpassingen hierin gaan me wel lukken. gr Rien

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost(rechts onderaan de pagina)

Mvg

Rudi