celkleuren kopieren

[Roma]

beste allemaal,

ik heb deze formule:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Sheets("Activiteiten").Range("C4:C9").Copy
    Sheets("Camp 1").Range("B7:B12").PasteSpecial
    Application.CutCopyMode = False
 End Sub

Het volgende probleem doet zich nu voor:
De gekopieerde cellen blijven actief.
Wat doe ik fout?
zie bijlage

 

[edmoor]

Je wilt die code dus bij iedere verandering van cel adres uitvoeren? Lijkt me niet, maar doe het dan eens zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets("Activiteiten").Range("C4:C9").Copy
    Sheets("Camp 1").Range("B7:B12").PasteSpecial
    Application.CutCopyMode = False
    Target.Select
    Application.EnableEvents = True
End Sub

 

[Roma]

Beste Edmoor,
Bedankt voor je snelle reactie. Het werkt perfect.

Ik heb nog één vraagje
Ik moet uit de zelfde rij nog een aantal kopiëren naar andere kolommen (zie bijlage)
Ik heb geprobeerd het toe te voegen maar dat werkt niet

 

[edmoor]

De vraag in m'n vorige reactie blijft gelden. Maar goed, de simpele manier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    With Sheets("Activiteiten")
        .Range("C4:C9").Copy
        Range("B7:B12").PasteSpecial
        
        .Range("C10:C15").Copy
        Range("G7:G12").PasteSpecial
        
        .Range("C16:C21").Copy
        Range("L7:L12").PasteSpecial
        
        .Range("C22:C72").Copy
        Range("Q7:Q12").PasteSpecial
    End With
    
    Application.CutCopyMode = False
    Target.Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[Roma]

Edmoor,
Bedankt.
Bij elke verandering van een kleur in het tabblad Activiteiten moet de kleuren in tabblad Camp 1 aangepast worden.

 

[edmoor]

Dat is dus niet wat er gebeurd. De code wordt nu uitgevoerd ieder keer als je naar een andere cel in dat blad gaat.
Excel kan standaard niet reageren op een verandering van kleur.

 

[Roma]

oke
bedankt voor de tip. Ik ga een andere oplossing zoeken