Per ROBY63 CODIZIONAMENTO PER CONTROLLO_ESTRAZIONE8
Apri la cartella Controllo_estrazione8 vai in
foglio 'Tabellone Analitico'
premi da tastiera <>ALT+F11<> per Visual Basic
da cui crei un nuovo
Modulo41.bas
copia il listato rosso ,
completo da Sub COLORA().........End Sub
dopo di ciò in alto a destra seleziona:,
1° passo
"COLORA" 
remi da tastiera <>F5<> per eseguire ;
Sub COLORA()
'
'http://forum.lottoced.com/topic.asp?TOPIC_ID=43173
' COLORA Macro
' Macro registrata il 06/06/2006 da GAMES
'
Range("Z4:AA9").Select
With Selection
.WrapText = False
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("AB4:AC9").Select
Selection.Copy
Range("Z4").Select
ActiveSheet.Paste
Range("AC4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("Z5:AA9").Select
Selection.Interior.ColorIndex = 35
Selection.Font.ColorIndex = 5
'
Range("AC5:AD9").Select
Selection.Interior.ColorIndex = 36
Selection.Font.ColorIndex = 3
Range("Z4:AA9").Select
With Selection
.WrapText = False
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("AB4:AC9").Select
Selection.Copy
Range("Z4").Select
ActiveSheet.Paste
Range("AC4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("Z5:AA9").Select
Selection.Interior.ColorIndex = 35
Selection.Font.ColorIndex = 5
'
Range("AC5:AD9").Select
Selection.Interior.ColorIndex = 36
Selection.Font.ColorIndex = 3
Range("B5").Select
'FINE COLORA
'End Sub
' INIZIO FORMATAZIONE CONDIZIONATA
'Sub FORMATAZZIONECONDIZIONATA()
'
' FORMATAZZIONE Macro
' FORMATAZIONE 05/06/2006 da GAMES
'
' AREA DA CONDIZIONARE
Range("E13:BB313").Select
''ActiveWorkbook.Names.Add Name:="Condiziona", RefersToR1C1:= _
"='Tabellone Analitico'!R13C5:R313C54"
'Selection.FormatConditions.Delete
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE(E13="""";0;SE(CONTA.SE($Z$5:$AA$9;E13)=1;1;0))"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
Selection.FormatConditions(1).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE(E13="""";0;SE(CONTA.SE($AB$5:$AD$9;E13)=1;1;0))"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
Selection.FormatConditions(2).Interior.ColorIndex = 4
Range("B11").Select
End Sub
