Beste,
Bij activeren van een worksheet heb ik onderstaande code om een aantal cellen van kleur te doen veranderen.
Ik geef toe, het zal wellicht een pak eenvoudiger kunnen, maar ben tevreden dat deze zelfgemaakte VBA het doet in normale omstandigheden.
Maar er is één probleem(pje): als ik op een ander werkblad een bereik kopieer om het op dit werkblad te plakken, dan lukt dat niet.
Blijkbaar wist onderstaande code het klembord, want als ik vooraan de code Exit Sub zet, dan kan er wel worden geplakt.
Hoe kan je kopieren en plakken wel toelaten samen met deze Sub ?
Bij activeren van een worksheet heb ik onderstaande code om een aantal cellen van kleur te doen veranderen.
Ik geef toe, het zal wellicht een pak eenvoudiger kunnen, maar ben tevreden dat deze zelfgemaakte VBA het doet in normale omstandigheden.
Maar er is één probleem(pje): als ik op een ander werkblad een bereik kopieer om het op dit werkblad te plakken, dan lukt dat niet.
Blijkbaar wist onderstaande code het klembord, want als ik vooraan de code Exit Sub zet, dan kan er wel worden geplakt.
Hoe kan je kopieren en plakken wel toelaten samen met deze Sub ?
Code:
Private Sub Worksheet_Activate()
[COLOR="#339933"]'Exit Sub[/COLOR]
Dim x As Integer
Range(Columns(3), Columns(4)).Interior.Pattern = xlNone
Range(Columns(11), Columns(12)).Interior.Pattern = xlNone
Range(Columns(11), Columns(12)).Font.Bold = True
Range(Columns(11), Columns(12)).Font.ColorIndex = xlAutomatic
Range(Columns(11), Columns(12)).Font.TintAndShade = 0
Range(Columns(11), Columns(12)).HorizontalAlignment = xlCenter
Range(Columns(11), Columns(12)).VerticalAlignment = xlCenter
Range(Columns(11), Columns(12)).WrapText = False
Range(Columns(11), Columns(12)).AddIndent = False
Range(Columns(11), Columns(12)).IndentLevel = 0
Range(Columns(11), Columns(12)).ShrinkToFit = False
Range(Columns(11), Columns(12)).ReadingOrder = xlContext
Range(Columns(11), Columns(12)).MergeCells = False
Columns(16).Interior.Pattern = xlNone
Columns(16).Font.Bold = True
Columns(16).Font.ColorIndex = xlAutomatic
Columns(16).Font.TintAndShade = 0
Columns(16).HorizontalAlignment = xlCenter
Columns(16).VerticalAlignment = xlCenter
Columns(16).WrapText = False
Columns(16).AddIndent = False
Columns(16).IndentLevel = 0
Columns(16).ShrinkToFit = False
Columns(16).ReadingOrder = xlContext
Columns(16).MergeCells = False
Range(Cells(1, 11), Cells(1, 12)).Interior.Color = 65535
Cells(1, 16).Interior.Color = 65535
x = ActiveCell.Row
If x < 2 Then Exit Sub
Range(Cells(x, 3), Cells(x, 4)).Interior.Color = 65535
Range(Cells(x, 11), Cells(x, 12)).Interior.Color = 65535
Cells(x, 16).Interior.Color = 65535
End Sub