Invio un file come esempio.
www.filedropper.com/esempio_1
Saluti

Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("G4:Q4")) Is Nothing Then Exit Sub
If Target.Address = "$J$4" Or Target.Address = "$N$4" Then Exit Sub
Application.EnableEvents = False
Max1 = 0
For CC1 = 7 To 9
If Max1 < Cells(4, CC1).Value Then
Max1 = Cells(4, CC1).Value
Col1 = CC1
End If
Next CC1
Max2 = 0
For CC2 = 11 To 13
If Max2 < Cells(4, CC2).Value Then
Max2 = Cells(4, CC2).Value
Col2 = CC2
End If
Next CC2
Max3 = 0
For CC3 = 15 To 17
If Max3 < Cells(4, CC3).Value Then
Max3 = Cells(4, CC3).Value
Col3 = CC3
End If
Next CC3
Range("G8").Value = Cells(3, Col1).Value
Range("L8").Value = Cells(3, Col2).Value
Range("Q8").Value = Cells(3, Col3).Value
Application.EnableEvents = True
End Sub
Francesco6918 ha scritto:Ciao flash30005 va bene se impostiamo con la formula e molto più semplice .
=INDICE(G3:I3;0;CONFRONTA(MAX(G4:I4);G4:I4;0))
=SE(E(G4=MAX($G$4:$I$4);GRANDE($G$4:$I$4;1)>=(GRANDE($G$4:$I$4;2))+20);G3;"")
=SE(E(G4=MAX(SCARTO(G4;0;1-RESTO(RIF.COLONNA(A1);4);1;3));GRANDE(SCARTO(G4;0;1-RESTO(RIF.COLONNA(A1);4);1;3);1)>=(GRANDE(SCARTO(G4;0;1-RESTO(RIF.COLONNA(A1);4);1;3);2))+20);G3;"")
Torna a Applicazioni Office Windows
differenza fra orari MA con 1 eccezione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 106 ospiti