https://dl.dropbox.com/u/18220462/IMMAG ... azione.PNG
Mi dà errore di compilazione.
Ma probabilmente ho fatto un casino!
Visto che hai il file con le macro mi faresti tu la correzione e mi invii il file?
Grazie
Moderatori: Anthony47, Flash30005
If UR < 12 The UR = 12
If UR < 12 Then UR = 12
'Questa riga dovrà divenire da così
Columns("A:F").Interior.ColorIndex = xlNone
'a così
Range("A12:F65536").Interior.ColorIndex = xlNone
'idem questa
Range("A12:G65536").Font.ColorIndex = 0
Sub ColoraSe4()
Worksheets("Attuali").Select
UR = Range("A" & Rows.Count).End(xlUp).Row
If UR < 12 Then UR = 12
Range("A12:F65536").Interior.ColorIndex = xlNone
Range("A12:F65536").Font.ColorIndex = 0
Range("J12:J65536").Clear
Range("G12:G65536").Clear
Dim VR(10) As String
For RR = 12 To UR - 1
For ResetVR = 1 To 10
VR(ResetVR) = ""
Next ResetVR
RF = RR
RI = RR
Str1 = Range("A" & RR).Value & Range("D" & RR).Value & Range("E" & RR).Value & Range("F" & RR).Value
Conta = 1
VR(Conta) = Range("B" & RR).Value
For RR2 = RR + 1 To UR
Str2 = Range("A" & RR2).Value & Range("D" & RR2).Value & Range("E" & RR2).Value & Range("F" & RR2).Value
VR(Conta + 1) = Range("B" & RR2).Value
If Str1 <> Str2 Then GoTo SaltaRR
For RC = 1 To Conta
For RC2 = RC + 1 To Conta + 1
If VR(RC) = VR(RC2) Then GoTo SaltaRR
Next RC2
Next RC
RF = RR2
RR = RR2
Conta = Conta + 1
Next RR2
SaltaRR:
ColR = xlNone
Select Case Conta
Case 2
ColR = 6
Case 3
ColR = 40
Case 4
ColR = 48
Case 5
ColR = 33
Case 6
ColR = 44
Case 7
ColR = 50
Case 8
ColR = 3
Case 9
ColR = 41
End Select
Range("A" & RI & ":F" & RF).Interior.ColorIndex = ColR
If Conta > 1 Then
Range("G" & RI & ":G" & RF).Value = Conta
Range("G" & RI + 1 & ":G" & RF).Font.ColorIndex = 2
End If
RR = RF
Next RR
End Sub
Sub ColoraSe3()
Worksheets("Attuali").Select
UR = Range("A" & Rows.Count).End(xlUp).Row
If UR < 12 Then UR = 12
Range("A12:F65536").Interior.ColorIndex = xlNone
Range("A12:F65536").Font.ColorIndex = 0
Range("J12:J65536").Clear
For RR = 12 To UR - 1
RF = RR
RI = RR
AC = 0
AggCol = Range("B" & RR).Value
Str1 = Range("A" & RR).Value & Range("B" & RR).Value & Range("D" & RR).Value & Range("E" & RR).Value & Range("F" & RR).Value
Conta = 1
For RR2 = RR + 1 To UR
Str2 = Range("A" & RR2).Value & Range("B" & RR2).Value & Range("D" & RR2).Value & Range("E" & RR2).Value & Range("F" & RR2).Value
If Str1 <> Str2 Then GoTo SaltaRR
RF = RR2
RR = RR2
Conta = Conta + 1
Next RR2
SaltaRR:
Select Case AggCol
Case "Ba"
AC = 0
Case "Ca"
AC = 9
Case "Fi"
AC = 10
Case "Ge"
AC = 11
Case "Mi"
AC = 12
Case "Na"
AC = 13
Case "Pa"
AC = 14
Case "Ro"
AC = 15
Case "To"
AC = 16
Case "Ve"
AC = 17
End Select
ColR = xlNone
Select Case Conta
Case 2
ColR = 6
Case 3
ColR = 43
Case 4
ColR = 48
Case 5
ColR = 33
End Select
If ColR <> xlNone Then
ColR = (ColR + AC) Mod 49
If ColR = 0 Or ColR = 1 Then ColR = ColR + 10
End If
Range("A" & RI & ":F" & RF).Interior.ColorIndex = ColR
If Conta > 1 Then
Range("J" & RI & ":J" & RF).Value = Conta
Range("J" & RI + 1 & ":J" & RF).Font.ColorIndex = 2
End If
If ColR = 11 Or ColR = 9 Or ColR = 13 Or ColR = 5 Or ColR = 21 Then
Range("A" & RI & ":F" & RF).Font.ColorIndex = 2
End If
RR = RF
Next RR
End Sub
Torna a Applicazioni Office Windows
Come impostare il formato data predefinito in excel? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Creare un file Excel con fogli visibili in base all'accesso Autore: JanVathek |
Forum: Applicazioni Office Windows Risposte: 8 |
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
ruolo della costante nella formula della tendenza Autore: marcoc |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Marius44 e 38 ospiti