[kapetang]

Καλημέρα

Γιώργο, δες το συνημμένο αρχείο.

Για τον προσδιορισμό της μάρκας και του μοντέλου χρησιμοποιείται η παρακάτω συνάρτηση χρήστη.

Public Function SplitField(ByVal fld As Variant, j As Integer) As Variant
    Dim x As Variant
    If Not IsNull(fld) Then
        fld = Trim(fld)
        Do While Len(fld) > Len(Replace(fld, "  ", " "))
            fld = Replace(fld, "  ", " ")
        Loop
        x = Split(fld, " ")
        If UBound(x) > 0 Then
            SplitField = x(j)
        Else
            SplitField = x(0)
        End If
    End If
End Function

Φιλικά/Γιώργος