La macro che ti invio la devi inserire nel foglio1 del file "File1.xls"
il secondo file l'ho chiamato "File2.xls"
La macro si attiva alla variazione di selezione nella colonna A
(solo dove arrivano i dati, se ci sono celle vuote intermedie bisogna fare una piccola correzione)
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
URA = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
CheckAreaA = "A1:A" & URA
If Not Application.Intersect(Target, Range(CheckAreaA)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
NomeC = Target
Workbooks("File2.xls").Activate
Worksheets("Foglio1").Select
URA2 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR2 = 1 To URA2
NomeT = Range("A" & RR2).Value
If NomeC = NomeT Then
Worksheets("Foglio1").Cells(RR2, 1).Select
Exit Sub
End If
Next RR2
End If
End Sub
allego i due fileHo considerato che, durante le operazioni, tieni aperti ambedue i file
altrimenti bisogna effettuare una modifica alla macro
Se tutto funziona, nei due file test, dovrai sostituire i nomi dei file nella macro
inserendo i nome dei file in tuo possesso
nonché i nomi dei fogli se diversi da "Foglio1"
Fai sapere
ciao