In tanto posto questa richiesta pur sapendo che probabilmente sarà esaudita con l’anno nuovo.
La macro che adopero in questi fogli (per l’esattezza quattro), mi colora di giallo le cinquine che hanno al loro interno uno o più numeri che si trovano da L1 a Z1; la colonna “G” marca la quantità di questi numeri che sono presenti nella cinquina.
Con una formula in L2:Z2 che trascinerò sotto, vorrei far comparire il numero-i presenti nella cinquina di appartenenza (vedi immagine).
Allego anche la macro fatta da Avatar nel 2011 che modificandola potrebbe dare gli stessi esiti della formula.
https://dl.dropbox.com/u/18220462/IMMAG ... ra3%20.PNG
- Codice: Seleziona tutto
Sub Colora3()
For I = 1 To 4
Sheets(I).Select
URC = Range("C" & Rows.Count).End(xlUp).Row
Range("C1:C" & URC).Interior.ColorIndex = xlNone
Range("G1:G" & URC).ClearContents
Dim VettV(5) As Integer
For RR = 2 To URC
Contatore = 0
VettV(1) = Val(Mid(Range("C" & RR).Text, 1, 2))
VettV(2) = Val(Mid(Range("C" & RR).Text, 4, 2))
VettV(3) = Val(Mid(Range("C" & RR).Text, 7, 2))
VettV(4) = Val(Mid(Range("C" & RR).Text, 10, 2))
VettV(5) = Val(Mid(Range("C" & RR).Text, 13, 2))
For CC = 12 To 26
If Cells(1, CC).Value <> 0 Then
ValC = Cells(1, CC).Value
For VV = 1 To 5
If ValC = VettV(VV) Then Contatore = Contatore + 1
Next VV
If Contatore > 0 Then Range("C" & RR).Interior.ColorIndex = 6
Range("G" & RR).Value = Contatore
End If
Next CC
Next RR
Next I
End Sub
Ciao