Privé SubWorksheet_BeforeDoubleClick (het Doel ByVal als Waaier, annuleert Van Boole)
Schemerige celColor als Waaier, rgCalendars als Waaier, targ als Waaier
Schemerige I zoals lang, j zoals lang
Reeks rgCalendars = Unie ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _
[A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33])
De reeks targ = snijdt (Doel, rgCalendars)
Als targ niets toen is ga Sub weg
Annuleer = Waar
Op Fout hervat daarna
Plaats celColor = Application.InputBox („gelieve te klikken op de cel met kleur u wilt kopiëren“, Type: =8)
Op Fout GoTo 0
Als niet celColor dan niets is
targ. Interior.Color = celColor.Interior.Color
Eind als
Sub van het eind
|