Dim da, a, gara Dim inizio Dim fine Dim i, j, n ' cerco inizio del codice di interesse cioè il primo carattere dopo (ABCD startgara = InStr(cella, "(") + 5 'i = 1 ' Do While i < 100 ' n = Mid(cella, i, 1) ' i = i + 1 ' If n = "(" Then ' startgara = i + 4 ' Exit Do ' End If ' Loop i = 1 'costruisco la prima data in formato 01/01/2017 inizio = "01/" & Mid(cella, startgara, 2) & "/" & Mid(cella, startgara + 2, 4) 'costruisco la seconda data in formato 01/01/2017 fine = "01/" & Mid(cella, startgara + 6, 2) & "/" & Mid(cella, startgara + 8, 4) If inizio = fine Then gara = Left(cella, startgara - 6) & tc & " " & UCase(Format(fine, "MMMyy")) cella.Value = gara Else gara = Left(cella, startgara - 6) & tc & " " & UCase(Format(inizio, "MMMyy")) & " - " & UCase(Format(fine, "MMMyy")) cella.Value = gara End If End If Next |