Condividi:        

[vba2003]:mergiare due fogli con righe uguali

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

[vba2003]:mergiare due fogli con righe uguali

Postdi karug64 » 21/11/11 22:45

Salve a tutti.
Ho un problema che spero possiate aiutarmi a risolvere:
nel mio file xls ci sono due fogli ("Dossier", "Dcr")
Sul foglio1 c'e 'un commandbutton in cui dev inserire la macro richiesta.
Il foglio Dcr contiene tutti i dossier (p.esempio 600), il foglio Dossier, invece, ne cortiene dei dossier che possono essere comuni o no.
Entrambi questi fogli contengono una colonna con il campo "doss".
Il foglio Dossier contiene solo 1 colonna (A), mentre quello Dcr contiene 3 colonne(A,B,C): su A i dossier.

Io dovrei, tramite codice vba, scorrere tutti le righe presenti in colonna "A" Dossier e quando trovo l'analogo dossier sul foglio Dcr copiare il contenuto delle celle B e C sul foglio Dossier.

Per esempio:
Dossier
riga1 1111
riga2 2222
riga3 3333
riga4 4444

Dcr
riga1 8888 aaa bbb
riga2 1111 xxx yyy
riga3 9999 ooo uuu
riga4 2222 www hhh
riga5 4444 iii ttt
riga6 7777 lll kkk

Alla fine dell'elaborazione dovrei avere sul foglio "Dossier" il seguente risultato

riga1 1111 xxx yyy
riga2 2222 www hhh
riga3 3333
riga4 4444 iii ttt

Confido nel vostro aiuto.
Grazie
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: [vba2003]:mergiare due fogli con righe uguali

Postdi Anthony47 » 21/11/11 23:11

Non basta usare il Cerca.Vert? Ad esempio in B1 e C1 di Foglio Dossier rispettivamente:
Codice: Seleziona tutto
=Se(val.errore(CERCA.VERT(A1;dcr!$A:$C;2;0);"";CERCA.VERT(A1;dcr!$A:$C;2;0))
=Se(val.errore(CERCA.VERT(A1;dcr!$A:$C;2;0);"";CERCA.VERT(A1;dcr!$A:$C;3;0))

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [vba2003]:mergiare due fogli con righe uguali

Postdi karug64 » 21/11/11 23:32

Grazie, ma avrei bisogno, come da titolo, di una soluzione vba.
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Re: [vba2003]:mergiare due fogli con righe uguali

Postdi Anthony47 » 22/11/11 22:29

Se il problema e' ancora aperto prova con questa macro:
Codice: Seleziona tutto
Sub karug1()
Set dcr = Sheets("dcr")
dcrLin = dcr.Cells(Rows.Count, 1).End(xlUp).Row
For riga = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    cdrriga = Application.Match(Cells(riga, 1), dcr.Range("A1:A" & dcrLin), 0)
    If Not IsError(cdrriga) Then
        Cells(riga, 2) = dcr.Cells(cdrriga, 2).Value
        Cells(riga, 3) = dcr.Cells(cdrriga, 3).Value
    End If
Next riga
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[vba2003]:mergiare due fogli con righe uguali":


Chi c’è in linea

Visitano il forum: Marius44 e 57 ospiti