compilare tipo puntata

[raimea]

ciao
tramite macro vorrei compilare la col H
del fgl generale, ( dalla riga 8 ),
in relazione a un relativo
risultato di col G che si trova nelle parentesi tonde.

la tabella con cui confrontarsi e' in
col DA8 e il relativo esito da scrivere, in col DB8

ES
se in parentesi tonda col G trova un (0 - 0)
in col H scrivera' OV 0,5

nel caso in parentesi tonda ci sia un risultato
diverso, o mancante, mettera' un X in col H

vi allego il file

https://www.dropbox.com/scl/fi/g2ftm6hotpthztw3eutqu/Tipo-puntata.xlsm?rlkey=m1acpmn5yh0oixd4qxnxcaku4&st=2dnty024&dl=0

ciao

[Raffaele53]

Da provare

Codice: Seleziona tutto

Option Explicit
Sub Prova()
Dim Ur As Long, X As Long, Y As Long, Nn As Long, Msg As String, Ris As Variant
Sheets("generale").Activate
Ur = Range("G" & Rows.Count).End(xlUp).Row
If Ur > 7 Then
    For X = 8 To Ur
        For Y = 0 To 9
            Nn = InStr(Cells(X, 7), "(" & Y & " -")
            If Nn <> 0 Then
                Msg = Mid(Cells(X, 7), InStr(Cells(X, 7), "(" & Y & " -"), 7)
                Exit For
            End If
        Next Y
        If Nn = 0 Then
            Cells(X, 8) = "nd"
        Else
            Msg = Replace(Replace(Replace(Msg, "(", ""), ")", ""), " ", "")
            Ris = Application.VLookup(Msg, Range("DA8:DB12"), 2, False)
            If IsError(Ris) Then
                Cells(X, 8) = "X"
            Else
                Cells(X, 8) = Ris
            End If
        End If
    Next X
End If
MsgBox "Fatto"
End Sub


[raimea]

ciao
tutto ok

perfetta

grazie