Ho cercato di sviluppare una macro che esaudisse parte della richiesta ed in effetti la macro funziona (in parte) poi eventualmente si potrebbe convertire in funzione ma già come macro dà problemi in quanto l'archivio non ha un ordine numerico (se ne parlò già da tempo di questa funzionalità) un conto è 47-70 e un conto è 70-47 l'ambo è lo stesso ma la macro come può interpretare l'una e l'altra stringa? (ho anche converitito in AmboRev ma come lo utilizzo?)
Io intanto posto la macro che funziona se i numeri nell'archivio fossero messi tutti in ordine crescente funzionerebbe es. 21-85 e mai 85-21 comunque questa macro potrà essere come spunto per altri volontari
- Codice: Seleziona tutto
Sub CercaAmbo()
RAMBO = 0
MRAMBO = 0
Ambo = Worksheets("Ritardo_Ambi").Range("F3").Value
'AmboRev = Right(Ambo, 2) & " - " & Left(Ambo, 2)
Worksheets("Ritardo_Ambi").Select
Ue = Worksheets("Ritardo_Ambi").Range("D" & Rows.Count).End(xlUp).Row
With Worksheets("Ritardo_Ambi").Range("D8:M" & Ue)
Set C = .Find(Ambo, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
If C.Value = Ambo Then
MRAMBO = C.Row - 8
If RAMBO < MRAMBO Then
If RAMBO = 0 Then
RAMBO = MRAMBO - RAMBO
Else
RAMBO = MRAMBO - RAMBO - 1
End If
MsgBox RAMBO
End If
End If
Set C = .FindNext(C)
On Error Resume Next
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
On Error GoTo 0
End Sub
In F3 c'è l'ambo (stringa) da ricercare come Max-Ambo nell'archivio postato da Biancocandido (anche qui io invertirei l'ordine in data crescente)
e per il momento è solo per la ruota di Bari ma basta cambiare il range...
Ciao