Selezioni la cella F1
Poi vai sul Menu Dati -> Convalida...
inserisci in Consenti "Elenco" (già disponibile nel combox)
In Origine inserirai questa formula
- Codice: Seleziona tutto
=$C$1:$C$1000
(adatta 1000 alla tua esigenza)
Inserisci, nel Vba del foglio dati (non modulo), questo codice
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
CheckArea = "F1:F1"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlManual
RArt = Target.Row
ArtV = Target.Value
If ArtV <> 0 Then
UR = Range("A" & Rows.Count).End(xlUp).Row
For R = 1 To UR
If ArtV = Mid(Range("C" & R).Value, 1, Len(ArtV)) Then
Target.Value = Range("C" & R).Value
Range("G1").Value = Cells(R, 1).Value
Range("H1").Value = Cells(R, 5).Value
GoTo esci
End If
Next R
esci:
End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Ciao