Moderatori: Anthony47, Flash30005
Sub TrovaCinq()
'ActiveSheet.Range("$A$7:$O$8107").AutoFilter '<<<<< vedi nota
Range("G:G").ClearContents
Columns("K:O").Interior.Pattern = xlNone
Application.ScreenUpdating = False
Application.Calculation = xlManual
URA = Range("A" & Rows.Count).End(xlUp).Row
For RRA = 8 To URA - 1
ini:
If Range("G" & RRA).Value = "" Then
CA = Range("E" & RRA)
AA = Range("A" & RRA)
For RRB = RRA + 1 To URA
CB = Range("E" & RRB)
AB = Range("A" & RRB)
If CA = CB Or AA = AB Then
Range("G" & RRB).Value = "-"
End If
Next RRB
Range("K" & RRA & ":O" & RRA).Interior.Color = 5296274
End If
goto ini:
Next RRA
'ActiveSheet.Range("$A$7:$O$8107").AutoFilter Field:=7, Criteria1:="=" '<<<<< vedi nota
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Macro per aprire file salvato su sharepoint Onedrive Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 2 |
Come interrompere macro sndPlaySound Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 32 ospiti