Buon giorno a tutti, eccomi qui con un nuovo quesito.
Nel Foglio1 ho una tabella che devo popolare con dei dati presenti
in una tabella del foglio 2.
Sino a qui tutto ok, con i due codici seguenti, uno nel foglio1
e l'altro in un modulo, tutto funzionante.
Ora i problemi sono due.
1-Non riesco a mettere un controllo con messaggio se L'indice presente in Foglio1 e "A1" è mancante.
2-Non so come fare per fare un controllo nel foglio2 con eventuale messaggio se l'indice da cercare in colonna 1
è doppio!
Ora come ora se l'indice è mancante pulisco i campi e semplicemente rimangono vuoti e se è doppio nel foglio2
mi restituisce l'ultimo.
'In Foglio1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Row = 1 And Target.Column = 1 Then
Range("A1").Activate
Call Cerca_Vert2
End If
End Sub
'Nel Modulo
Sub Cerca_Vert2()
Dim valore As String
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim lUltRiga As Long
Set sh1 = Worksheets("Foglio1")
Set sh2 = Worksheets("Foglio2")
valore = sh1.Range("A1").Value
With sh1
lUltRiga = sh2.Range("A" & Rows.Count).End(xlUp).Row
sh1.Range("B1").Clear
sh1.Range("C2").Clear
sh1.Range("D3").Clear
For a = 1 To lUltRiga
If sh2.Range("A" & a).Value = valore Then
sh1.Range("B1").Value = sh2.Range("B" & a).Value
sh1.Range("C2").Value = sh2.Range("C" & a).Value
sh1.Range("D3").Value = sh2.Range("D" & a).Value
End If
Next
End With
End Sub
Grazie a tutti !!!!!!