Aiuto!!! [Ricerca menu a tendina]

raffaele1953, 19/04/2019 02.09:

---

A parte che in "Articoli" colonna A sono formattati come CAP e non funzionerebbe. Se ci metterai delle stringhe A0001BCD o dei numeri validi (15 oppure 100012). Il codice è da mettere nel foglio Ordine
Questo funziona in modo alternato, se scrivi in A2 o in B2 trova il corrispondente, casomai risponde "Non esiste"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Object, R As Long
Application.EnableEvents = False
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Set Rg = Sheets("Articoli").Columns(1).Find(Cells(2, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            MsgBox "Non esiste"
            Range("A2:B2") = ""
        Else
            R = Rg.Row
            Range("B2") = Sheets("Articoli").Range("B" & R)
        End If
    End If
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Set Rg = Sheets("Articoli").Columns(2).Find(Cells(2, 2).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            MsgBox "Non esiste"
            Range("A2:B2") = ""
        Else
            R = Rg.Row
            Range("A2") = Sheets("Articoli").Range("A" & R)
        End If
    End If
Set Rg = Nothing
Application.EnableEvents = True
End Sub

---