spostarsi automaticamente su valori uguali in file diversi

[fantina]

Ciao..... mi spiego: ho due file excel (ovviamente lunghissimi....) che in comune hanno solo una lista di codici prodotto posizionati in col A ma non nello stesso ordine. Vorrei, selezionando un codice nel file 1, spostarmi automaticamente su file 2 in corrispondenza del medesimo codice. In pratica l'effetto è come copiare il codice dentro la finestrina Trova, spostarsi nel 2 e attivare lì il comando, ma se mi aiutate con una macro......
Grazie!

[Flash30005]

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 file

Ho 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

[fantina]

Ciao Flash, L'automatismo funziona perfettamente ma il problema è che i file non sono allineati, nel senso che con la macro che mi hai dato lo spostamento avviene sulla base della medesima riga mentre i miei dati sono ordinati in maniera diversa nel file1 e nel file2; purtroppo sono due scenari diversi di una stessa analisi quindi non posso dare lo stesso ordinamento alle righe. Scusa se ti faccio tribolare....

[Flash30005]

Perdona Fantina
ma pensi che avrei fatto una macro per farti scegliere es.: la riga 15 del file1 uguale alla riga 15 del file2?
Per fare questo non occorreva una macro con quel codice ma sarebbe bastata una sola riga di codice non credi?

Se sei ancora scettica inverti o sposta le celle nel File2 in modo casuale e verifica se funziona a dovere oppure no.

Ti dirò di più
oltre a funzionare con "disallineamento" funziona anche se nel File1 hai meno righe rispetto al File2 purché nel File2 esista il testo o il valore che selezioni nel File1 altrimenti....

Ciao

[fantina]

Flash non è per scetticismo e anche a me sembrava strano però è vero che si sposta su una cella che non contiene lo stesso valore dipartenza del file 1, ho fatto un sacco di prove, in compenso è la stessa identica riga... allora forse c'è qualcosa che non funziona? Vado a riprovare e torno subito....!

[fantina]

Flash fa proprio come ho detto: anche i tuoi due file si comportano così, va sulla stessa cella e non sul valore.....

[Anthony47]

Siamo nella macro di evento di file1/foglio1, bisogna qualificare bene gli operatori.
Modifica in

Codice: Seleziona tutto

        NomeT = ActiveWorkbook.ActiveSheet.Range("A" & RR2).Value


Ciao

[fantina]

Perfetto! tutto a posto.... grazie ragazzi.
La vostra spina nel fianco vi da la buonanotte....

[Flash30005]

Eh già!!!
Grazie ad Anthony che mi ha tolto questa "spina"


Ciao

[fantina]

tanto non vi liberete mai di me

[Flash30005]

tanto non vi liberete mai di me