Condividi:        

spostarsi automaticamente su valori uguali in file diversi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

spostarsi automaticamente su valori uguali in file diversi

Postdi fantina » 12/01/11 15:18

Ciao..... :roll: 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! :)
fantina
Utente Senior
 
Post: 491
Iscritto il: 05/03/07 15:24

Sponsor
 

Re: spostarsi automaticamente su valori uguali in file diver

Postdi Flash30005 » 12/01/11 16:46

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: spostarsi automaticamente su valori uguali in file diver

Postdi fantina » 12/01/11 18:00

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.... :)
fantina
Utente Senior
 
Post: 491
Iscritto il: 05/03/07 15:24

Re: spostarsi automaticamente su valori uguali in file diver

Postdi Flash30005 » 12/01/11 21:11

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.... :aaah

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: spostarsi automaticamente su valori uguali in file diver

Postdi fantina » 12/01/11 21:29

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
Utente Senior
 
Post: 491
Iscritto il: 05/03/07 15:24

Re: spostarsi automaticamente su valori uguali in file diver

Postdi fantina » 12/01/11 21:38

Flash fa proprio come ho detto: anche i tuoi due file si comportano così, va sulla stessa cella e non sul valore..... :?:
:-?
fantina
Utente Senior
 
Post: 491
Iscritto il: 05/03/07 15:24

Re: spostarsi automaticamente su valori uguali in file diver

Postdi Anthony47 » 12/01/11 21:51

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: spostarsi automaticamente su valori uguali in file diver

Postdi fantina » 12/01/11 22:39

Perfetto! tutto a posto.... grazie ragazzi.
La vostra spina nel fianco vi da la buonanotte.... :)
fantina
Utente Senior
 
Post: 491
Iscritto il: 05/03/07 15:24

Re: spostarsi automaticamente su valori uguali in file diver

Postdi Flash30005 » 12/01/11 23:08

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

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: spostarsi automaticamente su valori uguali in file diver

Postdi fantina » 12/01/11 23:34

tanto non vi liberete mai di me 8)

:P
fantina
Utente Senior
 
Post: 491
Iscritto il: 05/03/07 15:24

Re: spostarsi automaticamente su valori uguali in file diver

Postdi Flash30005 » 12/01/11 23:38

fantina ha scritto:tanto non vi liberete mai di me 8)

:P


:undecided:
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "spostarsi automaticamente su valori uguali in file diversi":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti