Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Estendi Doubleclick

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Estendi Doubleclick

Postdi zanatta77 » 24/02/13 16:58

Ciao a tutti.
sto cercando Invano di estendere il Doubleclick a tutti i fogli presenti in cartella,facendo doppio click solo nel Foglio1, chiedo un vostro aiuto per poterlo dichiarare.
Esattamente in cartella ci sono 7 fogli e in ognuno di questi ci sono vari processi che vengono effettuati da
Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
quindi per non andare su ogni singolo Foglio presente e fare doppio click, vorrei che avvenissero in automatico semplicemente dopo il doppio click nel Foglio1.
grazie per l'aiuto :roll:
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Sponsor
 

Re: Estendi Doubleclick

Postdi ricky53 » 24/02/13 19:02

Ciao,
per verificare se mi è chiaro cosa ti occorre:
dopo che hai fatto i "Doppio CLick" su varie celle del Foglio1 vuoi andare ad operare sul Foglio2, poi sul 3, 4, ecc.

Rimane da capire quando hai finito di operare sul Foglio1 e vuoi andare sul Foglio2.
Io ti propongo di fare un "Doppio Click" sulla cella "A1" per far capire che hai finito di operare sul Foglio1 e vuoi andare sul Foglio2, stessa cosa per gli altri fogli: sempre "Doppio Click" sulla cella "A1"

Può andare questo modo di procedere?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Estendi Doubleclick

Postdi zanatta77 » 24/02/13 19:53

Allora il doppio click nel Foglio1 non a importanza in quale cella avvenga.
Questo semplicemente perchè facendo doppio click avvengono una serie di processi.Ecco perchè la mia sub è così
Codice: Seleziona tutto
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel

L'importante per me è solo questo; se faccio doppio click nel Foglio1 nel restante dei Fogli presenti in cartella in automatico deve avvenire anche li un doppio click, in modo da far partire una serie di processi per ogni Foglio presente,poichè anche li sono presenti sub che si attivano per l'appunto con doppio click
Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel

Praticamente non so come scrivere, che se avviene un doppio click nel Foglio1 in automatico quel doppio click deve estenderlo in tutti i Fogli presenti in cartella, tutto qua.
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Re: Estendi Doubleclick

Postdi Anthony47 » 24/02/13 19:57

Ciao Ricky, la mia interpretazione e' che zanatta avvia una macro tramite doppioclick su cella di Foglio1, e vorrebbe fare in modo che la macro "lavori" non solo i dati di Foglio1, ma (in successione) di Foglio2, Foglio3 etc.
Per adattare la macro a lavorare in sequenza su tutti i fogli chiederei a zanatta come e' ora articolata la macro, oltre che il chiarimento dell' operazione che vuole effettuare.

Ciao a tutti.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estendi Doubleclick

Postdi Anthony47 » 24/02/13 20:02

Ho scritto mentre zanatta rispondeva...
Quindi si tratta di differenti macro che "lavorano" su differenti fogli.
Il mio suggerimento e' che scrivi in macro separate le operazioni da eseguire, poi in ogni "Modulo di foglio" potresti inserire
Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call MacroFoglio1
End Sub

Oppure nella Worksheet_BeforeDoubleClick di Foglio1 inserirai
Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call MacroFoglio1
Call MacroFoglio2
Call MacroFoglio3
'etc etc
End Sub

Warning: le "MacroFogliox" devono indirizzare in modo esplicito il foglio di destinazione.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estendi Doubleclick

Postdi zanatta77 » 27/02/13 11:58

Ciao
Ma una soluzione del tipo ; se in Fooglio1 avviene un doppioclick in qualsiasi cella ,allora nel Foglio2 crea un doppioclick in qualsiasi cella.
Esiste la possibilita di scrivere quanto richiesto ???
Il motivo è il seguente nel Foglio1 c'è questo
Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range("C3") = Range("C55") Then
Range("C3").Interior.ColorIndex = 4
Range("A101") = 1
Else: Range("A101") = 0
Range("C3").Interior.ColorIndex = 0
End If
If Range("C4") = Range("C56") Then
Range("C4").Interior.ColorIndex = 4
Range("A102") = 1
Else: Range("A102") = 0
Range("C4").Interior.ColorIndex = 0
End If
If Range("C5") = Range("C57") Then
Range("C5").Interior.ColorIndex = 4
Range("A103") = 1
Else: Range("A103") = 0
Range("C5").Interior.ColorIndex = 0
End If
If Range("C6") = Range("C58") Then
Range("C6").Interior.ColorIndex = 4
Range("A104") = 1
Else: Range("A104") = 0
Range("C6").Interior.ColorIndex = 0
End If
If Range("C7") = Range("C59") Then
Range("C7").Interior.ColorIndex = 4
Range("A105") = 1
Else: Range("A105") = 0
Range("C7").Interior.ColorIndex = 0
End If
If Range("C8") = Range("C60") Then
Range("C8").Interior.ColorIndex = 4
Range("A106") = 1
Else: Range("A106") = 0
Range("C8").Interior.ColorIndex = 0
End If
If Range("C9") = Range("C61") Then
Range("C9").Interior.ColorIndex = 4
Range("A107") = 1
Else: Range("A107") = 0
Range("C9").Interior.ColorIndex = 0
End If
If Range("C10") = Range("C62") Then
Range("C10").Interior.ColorIndex = 4
Range("A108") = 1
Else: Range("A108") = 0
Range("C10").Interior.ColorIndex = 0
End If
If Range("C11") = Range("C63") Then
Range("C11").Interior.ColorIndex = 4
Range("A109") = 1
Else: Range("A109") = 0
Range("C11").Interior.ColorIndex = 0
End If
If Range("C12") = Range("C64") Then
Range("C12").Interior.ColorIndex = 4
Range("A110") = 1
Else: Range("A110") = 0
Range("C12").Interior.ColorIndex = 0
End If
If Range("D3") = Range("C55") Then
Range("D3").Interior.ColorIndex = 4
Range("B101") = 1
Else: Range("B101") = 0
Range("D3").Interior.ColorIndex = 0
End If
If Range("D4") = Range("C56") Then
Range("D4").Interior.ColorIndex = 4
Range("B102") = 1
Else: Range("B102") = 0
Range("D4").Interior.ColorIndex = 0
End If
If Range("D5") = Range("C57") Then
Range("D5").Interior.ColorIndex = 4
Range("B103") = 1
Else: Range("B103") = 0
Range("D5").Interior.ColorIndex = 0
End If
If Range("D6") = Range("C58") Then
Range("D6").Interior.ColorIndex = 4
Range("B104") = 1
Else: Range("B104") = 0
Range("D6").Interior.ColorIndex = 0
End If
If Range("D7") = Range("C59") Then
Range("D7").Interior.ColorIndex = 4
Range("B105") = 1
Else: Range("B105") = 0
Range("D7").Interior.ColorIndex = 0
End If
If Range("D8") = Range("C60") Then
Range("D8").Interior.ColorIndex = 4
Range("B106") = 1
Else: Range("B106") = 0
Range("D8").Interior.ColorIndex = 0
End If
If Range("D9") = Range("C61") Then
Range("D9").Interior.ColorIndex = 4
Range("B107") = 1
Else: Range("B107") = 0
Range("D9").Interior.ColorIndex = 0
End If
If Range("D10") = Range("C62") Then
Range("D10").Interior.ColorIndex = 4
Range("B108") = 1
Else: Range("B108") = 0
Range("D10").Interior.ColorIndex = 0
End If
If Range("D11") = Range("C63") Then
Range("D11").Interior.ColorIndex = 4
Range("B109") = 1
Else: Range("B109") = 0
Range("D11").Interior.ColorIndex = 0
End If
If Range("D12") = Range("C64") Then
Range("D12").Interior.ColorIndex = 4
Range("B110") = 1
Else: Range("B110") = 0
Range("D12").Interior.ColorIndex = 0
End If
End Sub



Nel Foglio2 c'è questo

Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range("C3") = Range("C55") Then
Range("C3").Interior.ColorIndex = 4
Range("A101") = 1
Else: Range("A101") = 0
Range("C3").Interior.ColorIndex = 0
End If
If Range("C4") = Range("C56") Then
Range("C4").Interior.ColorIndex = 4
Range("A102") = 1
Else: Range("A102") = 0
Range("C4").Interior.ColorIndex = 0
End If
If Range("C5") = Range("C57") Then
Range("C5").Interior.ColorIndex = 4
Range("A103") = 1
Else: Range("A103") = 0
Range("C5").Interior.ColorIndex = 0
End If
If Range("C6") = Range("C58") Then
Range("C6").Interior.ColorIndex = 4
Range("A104") = 1
Else: Range("A104") = 0
Range("C6").Interior.ColorIndex = 0
End If
If Range("C7") = Range("C59") Then
Range("C7").Interior.ColorIndex = 4
Range("A105") = 1
Else: Range("A105") = 0
Range("C7").Interior.ColorIndex = 0
End If
If Range("C8") = Range("C60") Then
Range("C8").Interior.ColorIndex = 4
Range("A106") = 1
Else: Range("A106") = 0
Range("C8").Interior.ColorIndex = 0
End If
If Range("C9") = Range("C61") Then
Range("C9").Interior.ColorIndex = 4
Range("A107") = 1
Else: Range("A107") = 0
Range("C9").Interior.ColorIndex = 0
End If
If Range("C10") = Range("C62") Then
Range("C10").Interior.ColorIndex = 4
Range("A108") = 1
Else: Range("A108") = 0
Range("C10").Interior.ColorIndex = 0
End If
If Range("C11") = Range("C63") Then
Range("C11").Interior.ColorIndex = 4
Range("A109") = 1
Else: Range("A109") = 0
Range("C11").Interior.ColorIndex = 0
End If
If Range("C12") = Range("C64") Then
Range("C12").Interior.ColorIndex = 4
Range("A110") = 1
Else: Range("A110") = 0
Range("C12").Interior.ColorIndex = 0
End If
If Range("D3") = Range("C55") Then
Range("D3").Interior.ColorIndex = 4
Range("B101") = 1
Else: Range("B101") = 0
Range("D3").Interior.ColorIndex = 0
End If
If Range("D4") = Range("C56") Then
Range("D4").Interior.ColorIndex = 4
Range("B102") = 1
Else: Range("B102") = 0
Range("D4").Interior.ColorIndex = 0
End If
If Range("D5") = Range("C57") Then
Range("D5").Interior.ColorIndex = 4
Range("B103") = 1
Else: Range("B103") = 0
Range("D5").Interior.ColorIndex = 0
End If
If Range("D6") = Range("C58") Then
Range("D6").Interior.ColorIndex = 4
Range("B104") = 1
Else: Range("B104") = 0
Range("D6").Interior.ColorIndex = 0
End If
If Range("D7") = Range("C59") Then
Range("D7").Interior.ColorIndex = 4
Range("B105") = 1
Else: Range("B105") = 0
Range("D7").Interior.ColorIndex = 0
End If
If Range("D8") = Range("C60") Then
Range("D8").Interior.ColorIndex = 4
Range("B106") = 1
Else: Range("B106") = 0
Range("D8").Interior.ColorIndex = 0
End If
If Range("D9") = Range("C61") Then
Range("D9").Interior.ColorIndex = 4
Range("B107") = 1
Else: Range("B107") = 0
Range("D9").Interior.ColorIndex = 0
End If
If Range("D10") = Range("C62") Then
Range("D10").Interior.ColorIndex = 4
Range("B108") = 1
Else: Range("B108") = 0
Range("D10").Interior.ColorIndex = 0
End If
If Range("D11") = Range("C63") Then
Range("D11").Interior.ColorIndex = 4
Range("B109") = 1
Else: Range("B109") = 0
Range("D11").Interior.ColorIndex = 0
End If
If Range("D12") = Range("C64") Then
Range("D12").Interior.ColorIndex = 4
Range("B110") = 1
Else: Range("B110") = 0
Range("D12").Interior.ColorIndex = 0
End If
End Sub


Quindi per non fare doppioclick in tutti e due i fogli (o più fogli) vorrei fare DobleClick nel Foglio1 e in automatico dovrebbero avvenire nei restanti fogli un doppioclick.
Tutto qua è possibile.
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Re: Estendi Doubleclick

Postdi Anthony47 » 27/02/13 12:54

Tutto qua è possibile.
Come la dici tu no (non mi risulta); come l' ho detta io si.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estendi Doubleclick

Postdi zanatta77 » 27/02/13 16:54

Purtroppo facendo come dici tu mi da sempre "Routine troppo grande"
C'è un modo per riscrivere quanto segue in modo breve :neutral:
Grazie
Codice: Seleziona tutto
Sub CallMacroFoglio1()
If Range("C3") = Range("C55") Then
Range("C3").Interior.ColorIndex = 4
Range("A101") = 1
Else: Range("A101") = 0
Range("C3").Interior.ColorIndex = 0
End If
If Range("C4") = Range("C56") Then
Range("C4").Interior.ColorIndex = 4
Range("A102") = 1
Else: Range("A102") = 0
Range("C4").Interior.ColorIndex = 0
End If
If Range("C5") = Range("C57") Then
Range("C5").Interior.ColorIndex = 4
Range("A103") = 1
Else: Range("A103") = 0
Range("C5").Interior.ColorIndex = 0
End If
If Range("C6") = Range("C58") Then
Range("C6").Interior.ColorIndex = 4
Range("A104") = 1
Else: Range("A104") = 0
Range("C6").Interior.ColorIndex = 0
End If
If Range("C7") = Range("C59") Then
Range("C7").Interior.ColorIndex = 4
Range("A105") = 1
Else: Range("A105") = 0
Range("C7").Interior.ColorIndex = 0
End If
If Range("C8") = Range("C60") Then
Range("C8").Interior.ColorIndex = 4
Range("A106") = 1
Else: Range("A106") = 0
Range("C8").Interior.ColorIndex = 0
End If
If Range("C9") = Range("C61") Then
Range("C9").Interior.ColorIndex = 4
Range("A107") = 1
Else: Range("A107") = 0
Range("C9").Interior.ColorIndex = 0
End If
If Range("C10") = Range("C62") Then
Range("C10").Interior.ColorIndex = 4
Range("A108") = 1
Else: Range("A108") = 0
Range("C10").Interior.ColorIndex = 0
End If
If Range("C11") = Range("C63") Then
Range("C11").Interior.ColorIndex = 4
Range("A109") = 1
Else: Range("A109") = 0
Range("C11").Interior.ColorIndex = 0
End If
If Range("C12") = Range("C64") Then
Range("C12").Interior.ColorIndex = 4
Range("A110") = 1
Else: Range("A110") = 0
Range("C12").Interior.ColorIndex = 0
End If
If Range("D3") = Range("C55") Then
Range("D3").Interior.ColorIndex = 4
Range("B101") = 1
Else: Range("B101") = 0
Range("D3").Interior.ColorIndex = 0
End If
If Range("D4") = Range("C56") Then
Range("D4").Interior.ColorIndex = 4
Range("B102") = 1
Else: Range("B102") = 0
Range("D4").Interior.ColorIndex = 0
End If
If Range("D5") = Range("C57") Then
Range("D5").Interior.ColorIndex = 4
Range("B103") = 1
Else: Range("B103") = 0
Range("D5").Interior.ColorIndex = 0
End If
If Range("D6") = Range("C58") Then
Range("D6").Interior.ColorIndex = 4
Range("B104") = 1
Else: Range("B104") = 0
Range("D6").Interior.ColorIndex = 0
End If
If Range("D7") = Range("C59") Then
Range("D7").Interior.ColorIndex = 4
Range("B105") = 1
Else: Range("B105") = 0
Range("D7").Interior.ColorIndex = 0
End If
If Range("D8") = Range("C60") Then
Range("D8").Interior.ColorIndex = 4
Range("B106") = 1
Else: Range("B106") = 0
Range("D8").Interior.ColorIndex = 0
End If
If Range("D9") = Range("C61") Then
Range("D9").Interior.ColorIndex = 4
Range("B107") = 1
Else: Range("B107") = 0
Range("D9").Interior.ColorIndex = 0
End If
If Range("D10") = Range("C62") Then
Range("D10").Interior.ColorIndex = 4
Range("B108") = 1
Else: Range("B108") = 0
Range("D10").Interior.ColorIndex = 0
End If
If Range("D11") = Range("C63") Then
Range("D11").Interior.ColorIndex = 4
Range("B109") = 1
Else: Range("B109") = 0
Range("D11").Interior.ColorIndex = 0
End If
If Range("D12") = Range("C64") Then
Range("D12").Interior.ColorIndex = 4
Range("B110") = 1
Else: Range("B110") = 0
Range("D12").Interior.ColorIndex = 0
End If
If Range("E3") = Range("C55") Then
Range("E3").Interior.ColorIndex = 4
Range("C101") = 1
Else: Range("C101") = 0
Range("E3").Interior.ColorIndex = 0
End If
If Range("E4") = Range("C56") Then
Range("E4").Interior.ColorIndex = 4
Range("C102") = 1
Else: Range("C102") = 0
Range("E4").Interior.ColorIndex = 0
End If
If Range("E5") = Range("C57") Then
Range("E5").Interior.ColorIndex = 4
Range("C103") = 1
Else: Range("C103") = 0
Range("E5").Interior.ColorIndex = 0
End If
If Range("E6") = Range("C58") Then
Range("E6").Interior.ColorIndex = 4
Range("C104") = 1
Else: Range("C104") = 0
Range("E6").Interior.ColorIndex = 0
End If
If Range("E7") = Range("C59") Then
Range("E7").Interior.ColorIndex = 4
Range("C105") = 1
Else: Range("C105") = 0
Range("E7").Interior.ColorIndex = 0
End If
If Range("E8") = Range("C60") Then
Range("E8").Interior.ColorIndex = 4
Range("C106") = 1
Else: Range("C106") = 0
Range("E8").Interior.ColorIndex = 0
End If
If Range("E9") = Range("C61") Then
Range("E9").Interior.ColorIndex = 4
Range("C107") = 1
Else: Range("C107") = 0
Range("E9").Interior.ColorIndex = 0
End If
If Range("E10") = Range("C62") Then
Range("E10").Interior.ColorIndex = 4
Range("C108") = 1
Else: Range("C108") = 0
Range("E10").Interior.ColorIndex = 0
End If
If Range("E11") = Range("C63") Then
Range("E11").Interior.ColorIndex = 4
Range("C109") = 1
Else: Range("C109") = 0
Range("E11").Interior.ColorIndex = 0
End If
If Range("E12") = Range("C64") Then
Range("E12").Interior.ColorIndex = 4
Range("C110") = 1
Else: Range("C110") = 0
Range("E12").Interior.ColorIndex = 0
End If
If Range("F3") = Range("C55") Then
Range("F3").Interior.ColorIndex = 4
Range("D101") = 1
Else: Range("D101") = 0
Range("F3").Interior.ColorIndex = 0
End If
If Range("F4") = Range("C56") Then
Range("F4").Interior.ColorIndex = 4
Range("D102") = 1
Else: Range("D102") = 0
Range("F4").Interior.ColorIndex = 0
End If
If Range("F5") = Range("C57") Then
Range("F5").Interior.ColorIndex = 4
Range("D103") = 1
Else: Range("D103") = 0
Range("F5").Interior.ColorIndex = 0
End If
If Range("F6") = Range("C58") Then
Range("F6").Interior.ColorIndex = 4
Range("D104") = 1
Else: Range("D104") = 0
Range("F6").Interior.ColorIndex = 0
End If
If Range("F7") = Range("C59") Then
Range("F7").Interior.ColorIndex = 4
Range("D105") = 1
Else: Range("D105") = 0
Range("F7").Interior.ColorIndex = 0
End If
If Range("F8") = Range("C60") Then
Range("F8").Interior.ColorIndex = 4
Range("D106") = 1
Else: Range("D106") = 0
Range("F8").Interior.ColorIndex = 0
End If
If Range("F9") = Range("C61") Then
Range("F9").Interior.ColorIndex = 4
Range("D107") = 1
Else: Range("D107") = 0
Range("F9").Interior.ColorIndex = 0
End If
If Range("F10") = Range("C62") Then
Range("F10").Interior.ColorIndex = 4
Range("D108") = 1
Else: Range("D108") = 0
Range("F10").Interior.ColorIndex = 0
End If
If Range("F11") = Range("C63") Then
Range("F11").Interior.ColorIndex = 4
Range("D109") = 1
Else: Range("D109") = 0
Range("F11").Interior.ColorIndex = 0
End If
If Range("F12") = Range("C64") Then
Range("F12").Interior.ColorIndex = 4
Range("D110") = 1
Else: Range("D110") = 0
Range("F12").Interior.ColorIndex = 0
End If
If Range("G3") = Range("C55") Then
Range("G3").Interior.ColorIndex = 4
Range("E101") = 1
Else: Range("E101") = 0
Range("G3").Interior.ColorIndex = 0
End If
If Range("G4") = Range("C56") Then
Range("G4").Interior.ColorIndex = 4
Range("E102") = 1
Else: Range("E102") = 0
Range("G4").Interior.ColorIndex = 0
End If
If Range("G5") = Range("C57") Then
Range("G5").Interior.ColorIndex = 4
Range("E103") = 1
Else: Range("E103") = 0
Range("G5").Interior.ColorIndex = 0
End If
If Range("G6") = Range("C58") Then
Range("G6").Interior.ColorIndex = 4
Range("E104") = 1
Else: Range("E104") = 0
Range("G6").Interior.ColorIndex = 0
End If
If Range("G7") = Range("C59") Then
Range("G7").Interior.ColorIndex = 4
Range("E105") = 1
Else: Range("E105") = 0
Range("G7").Interior.ColorIndex = 0
End If
If Range("G8") = Range("C60") Then
Range("G8").Interior.ColorIndex = 4
Range("E106") = 1
Else: Range("E106") = 0
Range("G8").Interior.ColorIndex = 0
End If
If Range("G9") = Range("C61") Then
Range("G9").Interior.ColorIndex = 4
Range("E107") = 1
Else: Range("E107") = 0
Range("G9").Interior.ColorIndex = 0
End If
If Range("G10") = Range("C62") Then
Range("G10").Interior.ColorIndex = 4
Range("E108") = 1
Else: Range("E108") = 0
Range("G10").Interior.ColorIndex = 0
End If
If Range("G11") = Range("C63") Then
Range("G11").Interior.ColorIndex = 4
Range("E109") = 1
Else: Range("E109") = 0
Range("G11").Interior.ColorIndex = 0
End If
If Range("G12") = Range("C64") Then
Range("G12").Interior.ColorIndex = 4
Range("E110") = 1
Else: Range("E110") = 0
Range("G12").Interior.ColorIndex = 0
End If
If Range("H3") = Range("C55") Then
Range("H3").Interior.ColorIndex = 4
Range("F101") = 1
Else: Range("F101") = 0
Range("H3").Interior.ColorIndex = 0
End If
If Range("H4") = Range("C56") Then
Range("H4").Interior.ColorIndex = 4
Range("F102") = 1
Else: Range("F102") = 0
Range("H4").Interior.ColorIndex = 0
End If
If Range("H5") = Range("C57") Then
Range("H5").Interior.ColorIndex = 4
Range("F103") = 1
Else: Range("F103") = 0
Range("H5").Interior.ColorIndex = 0
End If
If Range("H6") = Range("C58") Then
Range("H6").Interior.ColorIndex = 4
Range("F104") = 1
Else: Range("F104") = 0
Range("H6").Interior.ColorIndex = 0
End If
If Range("H7") = Range("C59") Then
Range("H7").Interior.ColorIndex = 4
Range("F105") = 1
Else: Range("F105") = 0
Range("H7").Interior.ColorIndex = 0
End If
If Range("H8") = Range("C60") Then
Range("H8").Interior.ColorIndex = 4
Range("F106") = 1
Else: Range("F106") = 0
Range("H8").Interior.ColorIndex = 0
End If
If Range("H9") = Range("C61") Then
Range("H9").Interior.ColorIndex = 4
Range("F107") = 1
Else: Range("F107") = 0
Range("H9").Interior.ColorIndex = 0
End If
If Range("H10") = Range("C62") Then
Range("H10").Interior.ColorIndex = 4
Range("F108") = 1
Else: Range("F108") = 0
Range("H10").Interior.ColorIndex = 0
End If
If Range("H11") = Range("C63") Then
Range("H11").Interior.ColorIndex = 4
Range("F109") = 1
Else: Range("F109") = 0
Range("H11").Interior.ColorIndex = 0
End If
If Range("H12") = Range("C64") Then
Range("H12").Interior.ColorIndex = 4
Range("F110") = 1
Else: Range("F110") = 0
Range("H12").Interior.ColorIndex = 0
End If
If Range("I3") = Range("C55") Then
Range("I3").Interior.ColorIndex = 4
Range("G101") = 1
Else: Range("G101") = 0
Range("I3").Interior.ColorIndex = 0
End If
If Range("I4") = Range("C56") Then
Range("I4").Interior.ColorIndex = 4
Range("G102") = 1
Else: Range("G102") = 0
Range("I4").Interior.ColorIndex = 0
End If
If Range("I5") = Range("C57") Then
Range("I5").Interior.ColorIndex = 4
Range("G103") = 1
Else: Range("G103") = 0
Range("I5").Interior.ColorIndex = 0
End If
If Range("I6") = Range("C58") Then
Range("I6").Interior.ColorIndex = 4
Range("G104") = 1
Else: Range("G104") = 0
Range("I6").Interior.ColorIndex = 0
End If
If Range("I7") = Range("C59") Then
Range("I7").Interior.ColorIndex = 4
Range("G105") = 1
Else: Range("G105") = 0
Range("I7").Interior.ColorIndex = 0
End If
If Range("I8") = Range("C60") Then
Range("I8").Interior.ColorIndex = 4
Range("G106") = 1
Else: Range("G106") = 0
Range("I8").Interior.ColorIndex = 0
End If
If Range("I9") = Range("C61") Then
Range("I9").Interior.ColorIndex = 4
Range("G107") = 1
Else: Range("G107") = 0
Range("I9").Interior.ColorIndex = 0
End If
If Range("I10") = Range("C62") Then
Range("I10").Interior.ColorIndex = 4
Range("G108") = 1
Else: Range("G108") = 0
Range("I10").Interior.ColorIndex = 0
End If
If Range("I11") = Range("C63") Then
Range("I11").Interior.ColorIndex = 4
Range("G109") = 1
Else: Range("G109") = 0
Range("I11").Interior.ColorIndex = 0
End If
If Range("I12") = Range("C64") Then
Range("I12").Interior.ColorIndex = 4
Range("G110") = 1
Else: Range("G110") = 0
Range("I12").Interior.ColorIndex = 0
End If
If Range("J3") = Range("C55") Then
Range("J3").Interior.ColorIndex = 4
Range("H101") = 1
Else: Range("H101") = 0
Range("J3").Interior.ColorIndex = 0
End If
If Range("J4") = Range("C56") Then
Range("J4").Interior.ColorIndex = 4
Range("H102") = 1
Else: Range("H102") = 0
Range("J4").Interior.ColorIndex = 0
End If
If Range("J5") = Range("C57") Then
Range("J5").Interior.ColorIndex = 4
Range("H103") = 1
Else: Range("H103") = 0
Range("J5").Interior.ColorIndex = 0
End If
If Range("J6") = Range("C58") Then
Range("J6").Interior.ColorIndex = 4
Range("H104") = 1
Else: Range("H104") = 0
Range("J6").Interior.ColorIndex = 0
End If
If Range("J7") = Range("C59") Then
Range("J7").Interior.ColorIndex = 4
Range("H105") = 1
Else: Range("H105") = 0
Range("J7").Interior.ColorIndex = 0
End If
If Range("J8") = Range("C60") Then
Range("J8").Interior.ColorIndex = 4
Range("H106") = 1
Else: Range("H106") = 0
Range("J8").Interior.ColorIndex = 0
End If
If Range("J9") = Range("C61") Then
Range("J9").Interior.ColorIndex = 4
Range("H107") = 1
Else: Range("H107") = 0
Range("J9").Interior.ColorIndex = 0
End If
If Range("J10") = Range("C62") Then
Range("J10").Interior.ColorIndex = 4
Range("H108") = 1
Else: Range("H108") = 0
Range("J10").Interior.ColorIndex = 0
End If
If Range("J11") = Range("C63") Then
Range("J11").Interior.ColorIndex = 4
Range("H109") = 1
Else: Range("H109") = 0
Range("J11").Interior.ColorIndex = 0
End If
If Range("J12") = Range("C64") Then
Range("J12").Interior.ColorIndex = 4
Range("H110") = 1
Else: Range("H110") = 0
Range("J12").Interior.ColorIndex = 0
End If
If Range("K3") = Range("C55") Then
Range("K3").Interior.ColorIndex = 4
Range("I101") = 1
Else: Range("I101") = 0
Range("K3").Interior.ColorIndex = 0
End If
If Range("K4") = Range("C56") Then
Range("K4").Interior.ColorIndex = 4
Range("I102") = 1
Else: Range("I102") = 0
Range("K4").Interior.ColorIndex = 0
End If
If Range("K5") = Range("C57") Then
Range("K5").Interior.ColorIndex = 4
Range("I103") = 1
Else: Range("I103") = 0
Range("K5").Interior.ColorIndex = 0
End If
If Range("K6") = Range("C58") Then
Range("K6").Interior.ColorIndex = 4
Range("I104") = 1
Else: Range("I104") = 0
Range("K6").Interior.ColorIndex = 0
End If
If Range("K7") = Range("C59") Then
Range("K7").Interior.ColorIndex = 4
Range("I105") = 1
Else: Range("I105") = 0
Range("K7").Interior.ColorIndex = 0
End If
If Range("K8") = Range("C60") Then
Range("K8").Interior.ColorIndex = 4
Range("I106") = 1
Else: Range("I106") = 0
Range("K8").Interior.ColorIndex = 0
End If
If Range("K9") = Range("C61") Then
Range("K9").Interior.ColorIndex = 4
Range("I107") = 1
Else: Range("I107") = 0
Range("K9").Interior.ColorIndex = 0
End If
If Range("K10") = Range("C62") Then
Range("K10").Interior.ColorIndex = 4
Range("I108") = 1
Else: Range("I108") = 0
Range("K10").Interior.ColorIndex = 0
End If
If Range("K11") = Range("C63") Then
Range("K11").Interior.ColorIndex = 4
Range("I109") = 1
Else: Range("I109") = 0
Range("K11").Interior.ColorIndex = 0
End If
If Range("K12") = Range("C64") Then
Range("K12").Interior.ColorIndex = 4
Range("I110") = 1
Else: Range("I110") = 0
Range("K12").Interior.ColorIndex = 0
End If
If Range("L3") = Range("C55") Then
Range("L3").Interior.ColorIndex = 4
Range("J101") = 1
Else: Range("J101") = 0
Range("L3").Interior.ColorIndex = 0
End If
If Range("L4") = Range("C56") Then
Range("L4").Interior.ColorIndex = 4
Range("J102") = 1
Else: Range("J102") = 0
Range("L4").Interior.ColorIndex = 0
End If
If Range("L5") = Range("C57") Then
Range("L5").Interior.ColorIndex = 4
Range("J103") = 1
Else: Range("J103") = 0
Range("L5").Interior.ColorIndex = 0
End If
If Range("L6") = Range("C58") Then
Range("L6").Interior.ColorIndex = 4
Range("J104") = 1
Else: Range("J104") = 0
Range("L6").Interior.ColorIndex = 0
End If
If Range("L7") = Range("C59") Then
Range("L7").Interior.ColorIndex = 4
Range("J105") = 1
Else: Range("J105") = 0
Range("L7").Interior.ColorIndex = 0
End If
If Range("L8") = Range("C60") Then
Range("L8").Interior.ColorIndex = 4
Range("J106") = 1
Else: Range("J106") = 0
Range("L8").Interior.ColorIndex = 0
End If
If Range("L9") = Range("C61") Then
Range("L9").Interior.ColorIndex = 4
Range("J107") = 1
Else: Range("J107") = 0
Range("L9").Interior.ColorIndex = 0
End If
If Range("L10") = Range("C62") Then
Range("L10").Interior.ColorIndex = 4
Range("J108") = 1
Else: Range("J108") = 0
Range("L10").Interior.ColorIndex = 0
End If
If Range("L11") = Range("C63") Then
Range("L11").Interior.ColorIndex = 4
Range("J109") = 1
Else: Range("J109") = 0
Range("L11").Interior.ColorIndex = 0
End If
If Range("L12") = Range("C64") Then
Range("L12").Interior.ColorIndex = 4
Range("J110") = 1
Else: Range("J110") = 0
Range("L12").Interior.ColorIndex = 0
End If
If Range("M3") = Range("C55") Then
Range("M3").Interior.ColorIndex = 4
Range("K101") = 1
Else: Range("K101") = 0
Range("M3").Interior.ColorIndex = 0
End If
If Range("M4") = Range("C56") Then
Range("M4").Interior.ColorIndex = 4
Range("K102") = 1
Else: Range("K102") = 0
Range("M4").Interior.ColorIndex = 0
End If
If Range("M5") = Range("C57") Then
Range("M5").Interior.ColorIndex = 4
Range("K103") = 1
Else: Range("K103") = 0
Range("M5").Interior.ColorIndex = 0
End If
If Range("M6") = Range("C58") Then
Range("M6").Interior.ColorIndex = 4
Range("K104") = 1
Else: Range("K104") = 0
Range("M6").Interior.ColorIndex = 0
End If
If Range("M7") = Range("C59") Then
Range("M7").Interior.ColorIndex = 4
Range("K105") = 1
Else: Range("K105") = 0
Range("M7").Interior.ColorIndex = 0
End If
If Range("M8") = Range("C60") Then
Range("M8").Interior.ColorIndex = 4
Range("K106") = 1
Else: Range("K106") = 0
Range("M8").Interior.ColorIndex = 0
End If
If Range("M9") = Range("C61") Then
Range("M9").Interior.ColorIndex = 4
Range("K107") = 1
Else: Range("K107") = 0
Range("M9").Interior.ColorIndex = 0
End If
If Range("M10") = Range("C62") Then
Range("M10").Interior.ColorIndex = 4
Range("K108") = 1
Else: Range("K108") = 0
Range("M10").Interior.ColorIndex = 0
End If
If Range("M11") = Range("C63") Then
Range("M11").Interior.ColorIndex = 4
Range("K109") = 1
Else: Range("K109") = 0
Range("M11").Interior.ColorIndex = 0
End If
If Range("M12") = Range("C64") Then
Range("M12").Interior.ColorIndex = 4
Range("K110") = 1
Else: Range("K110") = 0
Range("M12").Interior.ColorIndex = 0
End If
If Range("N3") = Range("C55") Then
Range("N3").Interior.ColorIndex = 4
Range("L101") = 1
Else: Range("L101") = 0
Range("N3").Interior.ColorIndex = 0
End If
If Range("N4") = Range("C56") Then
Range("N4").Interior.ColorIndex = 4
Range("L102") = 1
Else: Range("L102") = 0
Range("N4").Interior.ColorIndex = 0
End If
If Range("N5") = Range("C57") Then
Range("N5").Interior.ColorIndex = 4
Range("L103") = 1
Else: Range("L103") = 0
Range("N5").Interior.ColorIndex = 0
End If
If Range("N6") = Range("C58") Then
Range("N6").Interior.ColorIndex = 4
Range("L104") = 1
Else: Range("L104") = 0
Range("N6").Interior.ColorIndex = 0
End If
If Range("N7") = Range("C59") Then
Range("N7").Interior.ColorIndex = 4
Range("L105") = 1
Else: Range("L105") = 0
Range("N7").Interior.ColorIndex = 0
End If
If Range("N8") = Range("C60") Then
Range("N8").Interior.ColorIndex = 4
Range("L106") = 1
Else: Range("L106") = 0
Range("N8").Interior.ColorIndex = 0
End If
If Range("N9") = Range("C61") Then
Range("N9").Interior.ColorIndex = 4
Range("L107") = 1
Else: Range("L107") = 0
Range("N9").Interior.ColorIndex = 0
End If
If Range("N10") = Range("C62") Then
Range("N10").Interior.ColorIndex = 4
Range("L108") = 1
Else: Range("L108") = 0
Range("N10").Interior.ColorIndex = 0
End If
If Range("N11") = Range("C63") Then
Range("N11").Interior.ColorIndex = 4
Range("L109") = 1
Else: Range("L109") = 0
Range("N11").Interior.ColorIndex = 0
End If
If Range("N12") = Range("C64") Then
Range("N12").Interior.ColorIndex = 4
Range("L110") = 1
Else: Range("L110") = 0
Range("N12").Interior.ColorIndex = 0
End If
If Range("O3") = Range("C55") Then
Range("O3").Interior.ColorIndex = 4
Range("M101") = 1
Else: Range("M101") = 0
Range("O3").Interior.ColorIndex = 0
End If
If Range("O4") = Range("C56") Then
Range("O4").Interior.ColorIndex = 4
Range("M102") = 1
Else: Range("M102") = 0
Range("O4").Interior.ColorIndex = 0
End If
If Range("O5") = Range("C57") Then
Range("O5").Interior.ColorIndex = 4
Range("M103") = 1
Else: Range("M103") = 0
Range("O5").Interior.ColorIndex = 0
End If
If Range("O6") = Range("C58") Then
Range("O6").Interior.ColorIndex = 4
Range("M104") = 1
Else: Range("M104") = 0
Range("O6").Interior.ColorIndex = 0
End If
If Range("O7") = Range("C59") Then
Range("O7").Interior.ColorIndex = 4
Range("M105") = 1
Else: Range("M105") = 0
Range("O7").Interior.ColorIndex = 0
End If
If Range("O8") = Range("C60") Then
Range("O8").Interior.ColorIndex = 4
Range("M106") = 1
Else: Range("M106") = 0
Range("O8").Interior.ColorIndex = 0
End If
If Range("O9") = Range("C61") Then
Range("O9").Interior.ColorIndex = 4
Range("M107") = 1
Else: Range("M107") = 0
Range("O9").Interior.ColorIndex = 0
End If
If Range("O10") = Range("C62") Then
Range("O10").Interior.ColorIndex = 4
Range("M108") = 1
Else: Range("M108") = 0
Range("O10").Interior.ColorIndex = 0
End If
If Range("O11") = Range("C63") Then
Range("O11").Interior.ColorIndex = 4
Range("M109") = 1
Else: Range("M109") = 0
Range("O11").Interior.ColorIndex = 0
End If
If Range("O12") = Range("C64") Then
Range("O12").Interior.ColorIndex = 4
Range("M110") = 1
Else: Range("M110") = 0
Range("O12").Interior.ColorIndex = 0
End If
If Range("P3") = Range("C55") Then
Range("P3").Interior.ColorIndex = 4
Range("N101") = 1
Else: Range("N101") = 0
Range("P3").Interior.ColorIndex = 0
End If
If Range("P4") = Range("C56") Then
Range("P4").Interior.ColorIndex = 4
Range("N102") = 1
Else: Range("N102") = 0
Range("P4").Interior.ColorIndex = 0
End If
If Range("P5") = Range("C57") Then
Range("P5").Interior.ColorIndex = 4
Range("N103") = 1
Else: Range("N103") = 0
Range("P5").Interior.ColorIndex = 0
End If
If Range("P6") = Range("C58") Then
Range("P6").Interior.ColorIndex = 4
Range("N104") = 1
Else: Range("N104") = 0
Range("P6").Interior.ColorIndex = 0
End If
If Range("P7") = Range("C59") Then
Range("P7").Interior.ColorIndex = 4
Range("N105") = 1
Else: Range("N105") = 0
Range("P7").Interior.ColorIndex = 0
End If
If Range("P8") = Range("C60") Then
Range("P8").Interior.ColorIndex = 4
Range("N106") = 1
Else: Range("N106") = 0
Range("P8").Interior.ColorIndex = 0
End If
If Range("P9") = Range("C61") Then
Range("P9").Interior.ColorIndex = 4
Range("N107") = 1
Else: Range("N107") = 0
Range("P9").Interior.ColorIndex = 0
End If
If Range("P10") = Range("C62") Then
Range("P10").Interior.ColorIndex = 4
Range("N108") = 1
Else: Range("N108") = 0
Range("P10").Interior.ColorIndex = 0
End If
If Range("P11") = Range("C63") Then
Range("P11").Interior.ColorIndex = 4
Range("N109") = 1
Else: Range("N109") = 0
Range("P11").Interior.ColorIndex = 0
End If
If Range("P12") = Range("C64") Then
Range("P12").Interior.ColorIndex = 4
Range("N110") = 1
Else: Range("N110") = 0
Range("P12").Interior.ColorIndex = 0
End If
If Range("Q3") = Range("C55") Then
Range("Q3").Interior.ColorIndex = 4
Range("O101") = 1
Else: Range("O101") = 0
Range("Q3").Interior.ColorIndex = 0
End If
If Range("Q4") = Range("C56") Then
Range("Q4").Interior.ColorIndex = 4
Range("O102") = 1
Else: Range("O102") = 0
Range("Q4").Interior.ColorIndex = 0
End If
If Range("Q5") = Range("C57") Then
Range("Q5").Interior.ColorIndex = 4
Range("O103") = 1
Else: Range("O103") = 0
Range("Q5").Interior.ColorIndex = 0
End If
If Range("Q6") = Range("C58") Then
Range("Q6").Interior.ColorIndex = 4
Range("O104") = 1
Else: Range("O104") = 0
Range("Q6").Interior.ColorIndex = 0
End If
If Range("Q7") = Range("C59") Then
Range("Q7").Interior.ColorIndex = 4
Range("O105") = 1
Else: Range("O105") = 0
Range("Q7").Interior.ColorIndex = 0
End If
If Range("Q8") = Range("C60") Then
Range("Q8").Interior.ColorIndex = 4
Range("O106") = 1
Else: Range("O106") = 0
Range("Q8").Interior.ColorIndex = 0
End If
If Range("Q9") = Range("C61") Then
Range("Q9").Interior.ColorIndex = 4
Range("O107") = 1
Else: Range("O107") = 0
Range("Q9").Interior.ColorIndex = 0
End If
If Range("Q10") = Range("C62") Then
Range("Q10").Interior.ColorIndex = 4
Range("O108") = 1
Else: Range("O108") = 0
Range("Q10").Interior.ColorIndex = 0
End If
If Range("Q11") = Range("C63") Then
Range("Q11").Interior.ColorIndex = 4
Range("O109") = 1
Else: Range("O109") = 0
Range("Q11").Interior.ColorIndex = 0
End If
If Range("Q12") = Range("C64") Then
Range("Q12").Interior.ColorIndex = 4
Range("O110") = 1
Else: Range("O110") = 0
Range("Q12").Interior.ColorIndex = 0
End If
If Range("R3") = Range("C55") Then
Range("R3").Interior.ColorIndex = 4
Range("P101") = 1
Else: Range("P101") = 0
Range("R3").Interior.ColorIndex = 0
End If
If Range("R4") = Range("C56") Then
Range("R4").Interior.ColorIndex = 4
Range("P102") = 1
Else: Range("P102") = 0
Range("R4").Interior.ColorIndex = 0
End If
If Range("R5") = Range("C57") Then
Range("R5").Interior.ColorIndex = 4
Range("P103") = 1
Else: Range("P103") = 0
Range("R5").Interior.ColorIndex = 0
End If
If Range("R6") = Range("C58") Then
Range("R6").Interior.ColorIndex = 4
Range("P104") = 1
Else: Range("P104") = 0
Range("R6").Interior.ColorIndex = 0
End If
If Range("R7") = Range("C59") Then
Range("R7").Interior.ColorIndex = 4
Range("P105") = 1
Else: Range("P105") = 0
Range("R7").Interior.ColorIndex = 0
End If
If Range("R8") = Range("C60") Then
Range("R8").Interior.ColorIndex = 4
Range("P106") = 1
Else: Range("P106") = 0
Range("R8").Interior.ColorIndex = 0
End If
If Range("R9") = Range("C61") Then
Range("R9").Interior.ColorIndex = 4
Range("P107") = 1
Else: Range("P107") = 0
Range("R9").Interior.ColorIndex = 0
End If
If Range("R10") = Range("C62") Then
Range("R10").Interior.ColorIndex = 4
Range("P108") = 1
Else: Range("P108") = 0
Range("R10").Interior.ColorIndex = 0
End If
If Range("R11") = Range("C63") Then
Range("R11").Interior.ColorIndex = 4
Range("P109") = 1
Else: Range("P109") = 0
Range("R11").Interior.ColorIndex = 0
End If
If Range("R12") = Range("C64") Then
Range("R12").Interior.ColorIndex = 4
Range("P110") = 1
Else: Range("P110") = 0
Range("R12").Interior.ColorIndex = 0
End If
If Range("S3") = Range("C55") Then
Range("S3").Interior.ColorIndex = 4
Range("Q101") = 1
Else: Range("Q101") = 0
Range("S3").Interior.ColorIndex = 0
End If
If Range("S4") = Range("C56") Then
Range("S4").Interior.ColorIndex = 4
Range("Q102") = 1
Else: Range("Q102") = 0
Range("S4").Interior.ColorIndex = 0
End If
If Range("S5") = Range("C57") Then
Range("S5").Interior.ColorIndex = 4
Range("Q103") = 1
Else: Range("Q103") = 0
Range("S5").Interior.ColorIndex = 0
End If
If Range("S6") = Range("C58") Then
Range("S6").Interior.ColorIndex = 4
Range("Q104") = 1
Else: Range("Q104") = 0
Range("S6").Interior.ColorIndex = 0
End If
If Range("S7") = Range("C59") Then
Range("S7").Interior.ColorIndex = 4
Range("Q105") = 1
Else: Range("Q105") = 0
Range("S7").Interior.ColorIndex = 0
End If
If Range("S8") = Range("C60") Then
Range("S8").Interior.ColorIndex = 4
Range("Q106") = 1
Else: Range("Q106") = 0
Range("S8").Interior.ColorIndex = 0
End If
If Range("S9") = Range("C61") Then
Range("S9").Interior.ColorIndex = 4
Range("Q107") = 1
Else: Range("Q107") = 0
Range("S9").Interior.ColorIndex = 0
End If
If Range("S10") = Range("C62") Then
Range("S10").Interior.ColorIndex = 4
Range("Q108") = 1
Else: Range("Q108") = 0
Range("S10").Interior.ColorIndex = 0
End If
If Range("S11") = Range("C63") Then
Range("S11").Interior.ColorIndex = 4
Range("Q109") = 1
Else: Range("Q109") = 0
Range("S11").Interior.ColorIndex = 0
End If
If Range("S12") = Range("C64") Then
Range("S12").Interior.ColorIndex = 4
Range("Q110") = 1
Else: Range("Q110") = 0
Range("S12").Interior.ColorIndex = 0
End If
If Range("T3") = Range("C55") Then
Range("T3").Interior.ColorIndex = 4
Range("R101") = 1
Else: Range("R101") = 0
Range("T3").Interior.ColorIndex = 0
End If
If Range("T4") = Range("C56") Then
Range("T4").Interior.ColorIndex = 4
Range("R102") = 1
Else: Range("R102") = 0
Range("T4").Interior.ColorIndex = 0
End If
If Range("T5") = Range("C57") Then
Range("T5").Interior.ColorIndex = 4
Range("R103") = 1
Else: Range("R103") = 0
Range("T5").Interior.ColorIndex = 0
End If
If Range("T6") = Range("C58") Then
Range("T6").Interior.ColorIndex = 4
Range("R104") = 1
Else: Range("R104") = 0
Range("T6").Interior.ColorIndex = 0
End If
If Range("T7") = Range("C59") Then
Range("T7").Interior.ColorIndex = 4
Range("R105") = 1
Else: Range("R105") = 0
Range("T7").Interior.ColorIndex = 0
End If
If Range("T8") = Range("C60") Then
Range("T8").Interior.ColorIndex = 4
Range("R106") = 1
Else: Range("R106") = 0
Range("T8").Interior.ColorIndex = 0
End If
If Range("T9") = Range("C61") Then
Range("T9").Interior.ColorIndex = 4
Range("R107") = 1
Else: Range("R107") = 0
Range("T9").Interior.ColorIndex = 0
End If
If Range("T10") = Range("C62") Then
Range("T10").Interior.ColorIndex = 4
Range("R108") = 1
Else: Range("R108") = 0
Range("T10").Interior.ColorIndex = 0
End If
If Range("T11") = Range("C63") Then
Range("T11").Interior.ColorIndex = 4
Range("R109") = 1
Else: Range("R109") = 0
Range("T11").Interior.ColorIndex = 0
End If
If Range("T12") = Range("C64") Then
Range("T12").Interior.ColorIndex = 4
Range("R110") = 1
Else: Range("R110") = 0
Range("T12").Interior.ColorIndex = 0
End If
If Range("U3") = Range("C55") Then
Range("U3").Interior.ColorIndex = 4
Range("S101") = 1
Else: Range("S101") = 0
Range("U3").Interior.ColorIndex = 0
End If
If Range("U4") = Range("C56") Then
Range("U4").Interior.ColorIndex = 4
Range("S102") = 1
Else: Range("S102") = 0
Range("U4").Interior.ColorIndex = 0
End If
If Range("U5") = Range("C57") Then
Range("U5").Interior.ColorIndex = 4
Range("S103") = 1
Else: Range("S103") = 0
Range("U5").Interior.ColorIndex = 0
End If
If Range("U6") = Range("C58") Then
Range("U6").Interior.ColorIndex = 4
Range("S104") = 1
Else: Range("S104") = 0
Range("U6").Interior.ColorIndex = 0
End If
If Range("U7") = Range("C59") Then
Range("U7").Interior.ColorIndex = 4
Range("S105") = 1
Else: Range("S105") = 0
Range("U7").Interior.ColorIndex = 0
End If
If Range("U8") = Range("C60") Then
Range("U8").Interior.ColorIndex = 4
Range("S106") = 1
Else: Range("S106") = 0
Range("U8").Interior.ColorIndex = 0
End If
If Range("U9") = Range("C61") Then
Range("U9").Interior.ColorIndex = 4
Range("S107") = 1
Else: Range("S107") = 0
Range("U9").Interior.ColorIndex = 0
End If
If Range("U10") = Range("C62") Then
Range("U10").Interior.ColorIndex = 4
Range("S108") = 1
Else: Range("S108") = 0
Range("U10").Interior.ColorIndex = 0
End If
If Range("U11") = Range("C63") Then
Range("U11").Interior.ColorIndex = 4
Range("S109") = 1
Else: Range("S109") = 0
Range("U11").Interior.ColorIndex = 0
End If
If Range("U12") = Range("C64") Then
Range("U12").Interior.ColorIndex = 4
Range("S110") = 1
Else: Range("S110") = 0
Range("U12").Interior.ColorIndex = 0
End If
If Range("V3") = Range("C55") Then
Range("V3").Interior.ColorIndex = 4
Range("T101") = 1
Else: Range("T101") = 0
Range("V3").Interior.ColorIndex = 0
End If
If Range("V4") = Range("C56") Then
Range("V4").Interior.ColorIndex = 4
Range("T102") = 1
Else: Range("T102") = 0
Range("V4").Interior.ColorIndex = 0
End If
If Range("V5") = Range("C57") Then
Range("V5").Interior.ColorIndex = 4
Range("T103") = 1
Else: Range("T103") = 0
Range("V5").Interior.ColorIndex = 0
End If
If Range("V6") = Range("C58") Then
Range("V6").Interior.ColorIndex = 4
Range("T104") = 1
Else: Range("T104") = 0
Range("V6").Interior.ColorIndex = 0
End If
If Range("V7") = Range("C59") Then
Range("V7").Interior.ColorIndex = 4
Range("T105") = 1
Else: Range("T105") = 0
Range("V7").Interior.ColorIndex = 0
End If
If Range("V8") = Range("C60") Then
Range("V8").Interior.ColorIndex = 4
Range("T106") = 1
Else: Range("T106") = 0
Range("V8").Interior.ColorIndex = 0
End If
If Range("V9") = Range("C61") Then
Range("V9").Interior.ColorIndex = 4
Range("T107") = 1
Else: Range("T107") = 0
Range("V9").Interior.ColorIndex = 0
End If
If Range("V10") = Range("C62") Then
Range("V10").Interior.ColorIndex = 4
Range("T108") = 1
Else: Range("T108") = 0
Range("V10").Interior.ColorIndex = 0
End If
If Range("V11") = Range("C63") Then
Range("V11").Interior.ColorIndex = 4
Range("T109") = 1
Else: Range("T109") = 0
Range("V11").Interior.ColorIndex = 0
End If
If Range("V12") = Range("C64") Then
Range("V12").Interior.ColorIndex = 4
Range("T110") = 1
Else: Range("T110") = 0
Range("V12").Interior.ColorIndex = 0
End If
If Range("W3") = Range("C55") Then
Range("W3").Interior.ColorIndex = 4
Range("U101") = 1
Else: Range("U101") = 0
Range("W3").Interior.ColorIndex = 0
End If
If Range("W4") = Range("C56") Then
Range("W4").Interior.ColorIndex = 4
Range("U102") = 1
Else: Range("U102") = 0
Range("W4").Interior.ColorIndex = 0
End If
If Range("W5") = Range("C57") Then
Range("W5").Interior.ColorIndex = 4
Range("U103") = 1
Else: Range("U103") = 0
Range("W5").Interior.ColorIndex = 0
End If
If Range("W6") = Range("C58") Then
Range("W6").Interior.ColorIndex = 4
Range("U104") = 1
Else: Range("U104") = 0
Range("W6").Interior.ColorIndex = 0
End If
If Range("W7") = Range("C59") Then
Range("W7").Interior.ColorIndex = 4
Range("U105") = 1
Else: Range("U105") = 0
Range("W7").Interior.ColorIndex = 0
End If
If Range("W8") = Range("C60") Then
Range("W8").Interior.ColorIndex = 4
Range("U106") = 1
Else: Range("U106") = 0
Range("W8").Interior.ColorIndex = 0
End If
If Range("W9") = Range("C61") Then
Range("W9").Interior.ColorIndex = 4
Range("U107") = 1
Else: Range("U107") = 0
Range("W9").Interior.ColorIndex = 0
End If
If Range("W10") = Range("C62") Then
Range("W10").Interior.ColorIndex = 4
Range("U108") = 1
Else: Range("U108") = 0
Range("W10").Interior.ColorIndex = 0
End If
If Range("W11") = Range("C63") Then
Range("W11").Interior.ColorIndex = 4
Range("U109") = 1
Else: Range("U109") = 0
Range("W11").Interior.ColorIndex = 0
End If
If Range("W12") = Range("C64") Then
Range("W12").Interior.ColorIndex = 4
Range("U110") = 1
Else: Range("U110") = 0
Range("W12").Interior.ColorIndex = 0
End If
If Range("X3") = Range("C55") Then
Range("X3").Interior.ColorIndex = 4
Range("V101") = 1
Else: Range("V101") = 0
Range("X3").Interior.ColorIndex = 0
End If
If Range("X4") = Range("C56") Then
Range("X4").Interior.ColorIndex = 4
Range("V102") = 1
Else: Range("V102") = 0
Range("X4").Interior.ColorIndex = 0
End If
If Range("X5") = Range("C57") Then
Range("X5").Interior.ColorIndex = 4
Range("V103") = 1
Else: Range("V103") = 0
Range("X5").Interior.ColorIndex = 0
End If
If Range("X6") = Range("C58") Then
Range("X6").Interior.ColorIndex = 4
Range("V104") = 1
Else: Range("V104") = 0
Range("X6").Interior.ColorIndex = 0
End If
If Range("X7") = Range("C59") Then
Range("X7").Interior.ColorIndex = 4
Range("V105") = 1
Else: Range("V105") = 0
Range("X7").Interior.ColorIndex = 0
End If
If Range("X8") = Range("C60") Then
Range("X8").Interior.ColorIndex = 4
Range("V106") = 1
Else: Range("V106") = 0
Range("X8").Interior.ColorIndex = 0
End If
If Range("X9") = Range("C61") Then
Range("X9").Interior.ColorIndex = 4
Range("V107") = 1
Else: Range("V107") = 0
Range("X9").Interior.ColorIndex = 0
End If
If Range("X10") = Range("C62") Then
Range("X10").Interior.ColorIndex = 4
Range("V108") = 1
Else: Range("V108") = 0
Range("X10").Interior.ColorIndex = 0
End If
If Range("X11") = Range("C63") Then
Range("X11").Interior.ColorIndex = 4
Range("V109") = 1
Else: Range("V109") = 0
Range("X11").Interior.ColorIndex = 0
End If
If Range("X12") = Range("C64") Then
Range("X12").Interior.ColorIndex = 4
Range("V110") = 1
Else: Range("V110") = 0
Range("X12").Interior.ColorIndex = 0
End If
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Re: Estendi Doubleclick

Postdi Anthony47 » 27/02/13 23:32

Ma tu hai scritto in una unica macro sia il codice di Foglio1 che quello di Foglio2; mentre io ti avevo suggerito di enucleare il codice dalla macro di Worksheet_BeforeDoubleClick; cioe' passare da
Codice: Seleziona tutto
Sub Worksheet_BeforeDoubleClick(foglio1)
Codice1
Codice2
Codice3
End Sub

Codice: Seleziona tutto
Sub Worksheet_BeforeDoubleClick(foglio2)
Codice111
Codice222
Codice333
End Sub


a:
1) In un modulo standard
Codice: Seleziona tutto
Sub MacroFoglio1
Codice1
Codiece2
Codice3
End Sub

Codice: Seleziona tutto
Sub MacroFoglio2
Codice111
Codiece222
Codice333
End Sub

Poi, nel modulo di Foglio1
Codice: Seleziona tutto
Sub Worksheet_BeforeDoubleClick (Foglio1)
Call MacroFoglio1
End Sub

Nel modulo di Foglio2
Codice: Seleziona tutto
Sub Worksheet_BeforeDoubleClick (Foglio2)
Call MacroFoglio2
End Sub

Ovviamente questo ti avrebbe consentito agevolmente di modificare anche in
Codice: Seleziona tutto
Sub Worksheet_BeforeDoubleClick (Foglio1)
Call MacroFoglio1
Call MacroFoglio2
End Sub

Che e' quello che vorresti.

Tuttavia1 c' e' da tener presente che le due MacroFoglio1 e MacroFoglio2 devono indirizzare esplicitamente Foglio1 e Foglio2: infatti non essendo piu' eseguito nel "modulo del relativo foglio" il loro riferimento di default sara' al foglio attivo, che non puo' essere contemporaneamente Foglio1 e Foglio2, ne' io consigliero' di modificare le selezione nel corso di una macro di evento (BeforeDoubleClick).
Tuttavia2 c' e' anche notare che tutto quell' elenco di operazioni forse possono essere ridotte a un loop di 6 istruzioni, ottenendo quindi (da inserire in un Modulo Standard)

Codice: Seleziona tutto
Sub MacroFoglio1()
With Sheets("Foglio1")
For I=0 to 9
  For J=0 to1
      If .Range("C3").offset(I,J) = .Range("C55").offset(I,0) Then
      .Range("C3").offset(I,J).Interior.ColorIndex = 4
      .Range("A101").offset(I,J) = 1
      Else: .Range("A101").offset(I,J) = 0
      .Range("C3").offset(I,J).Interior.ColorIndex = 0
      End If
  Next J
Next I
End With
End Sub

Codice: Seleziona tutto
Sub MacroFoglio2()
With Sheets("Foglio2")
For I=0 to 9
  For J=0 to1
      If .Range("C3").offset(I,J) = .Range("C55").offset(I,0) Then
      .Range("C3").offset(I,J).Interior.ColorIndex = 4
      .Range("A101").offset(I,J) = 1
      Else: .Range("A101").offset(I,J) = 0
      .Range("C3").offset(I,J).Interior.ColorIndex = 0
      End If
  Next J
Next I
End With
End Sub

(rinuncio volutamente a trasformare tutto in una unica sub parametrizzata)
Non garantisco della bonta' della logica, che deriva dalla mia comprensione a una sguardo non attentissimo al contenuto delle due macro, cosa che in genere proprio non faccio (reputo una perdita di tempo anadare a decodificare una macro per capire che cosa l' utente vuole fare); insomma il collaudo e' tutto da fare, sempre dopo aver fatto le canoniche due copie di backup dei tuoi dati.

A questo punto devi solo inserire le macro di BeforeDoubleClick
Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call MacroFoglio1
Call MacroFoglio2
'Cancel = true          '<<< Vedi Testo
End Sub

L' istruzione marcata <<< e' adesso disabilitata; se togli l' apostrofo iniziale, evitera' che alla fine della macro si entri in Edit della cella su cui hai fatto doppioclick, che e' invece l' operazione standard; vedi tu se inserirla o lasciarla disabilitata.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estendi Doubleclick

Postdi zanatta77 » 01/03/13 18:56

Grazie mille adesso va benissimo. ;)
Finalmente tramite la soluzione proposta da te, per scrivere in sintesi diventa il tutto moltoooooooooo più semplice e speditivo grazie
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12


Torna a Applicazioni Office Windows


Topic correlati a "Estendi Doubleclick":


Chi c’è in linea

Visitano il forum: raimea e 7 ospiti