Visto che sei sparito ho fatto di testa mia
allego il file
http://www.filedropper.com/ambietutte5_1modifiche apportate
Ogni volta che cambi i numeri in tabella (di ricerca in cinquina, sestina etc)
le corrispondenti celle in colonna A perderanno il colore (significa che non è stato processato quel blocco)
Quando viene processato uno o più blocchi le celle saranno verdi
In AR310 puoi definire quali blocchi processare inizio 5 (per cinquine = 1° Blocco; 6 per sestine = 2° Blocco; etc)
In AT310 determini la fine del ciclo se inserisci lo stesso Numero di Inizio processerai solo quel blocco
altriementi dal blocco Inizio a Blocco Fine (è un elenco con convalida)
nelle variazioni di una di queste celle potresti avere un messaggio di avvertimento che il blocco Inizio non può essere maggiore del blocco Fine o viceversa e il programma setterà le due celle con valore identico.
L'unica cosa che devi fare è modificare i Range nel VBA del foglio1
in quanto non ho i riferimenti per colonne superiori a IV
quindi dovrai mettere I range corretti per le Ottine, Novine e decine
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Blocco1 = "BW316:CF326"
Blocco2 = "EM316:EV326"
Blocco3 = "HC316:HL326"
Blocco4 = "HC316:HL326" '<<<<<< inserire il range corretto su excel 2007 per le ottine
Blocco5 = "HC316:HL326" '<<<<<< inserire il range corretto su excel 2007 per le novine
Blocco6 = "HC316:HL326" '<<<<<< inserire il range corretto su excel 2007 per le decine
Puoi sostituire le righe-codice relative ai blocchi con queste righe (più "elegante")
- Codice: Seleziona tutto
If Not Application.Intersect(Target, Range(Blocco1)) Is Nothing Then
Range("A312, A324").Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range(Blocco2)) Is Nothing Then
Range("A314, A326").Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range(Blocco3)) Is Nothing Then
Range("A316, A328").Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range(Blocco4)) Is Nothing Then
Range("A318, A330").Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range(Blocco5)) Is Nothing Then
Range("A320, A332").Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range(Blocco6)) Is Nothing Then
Range("A322, A334").Interior.ColorIndex = xlNone
End If
Testalo e speriamo vada bene