Excel Forum

	Soluzioni Excel Domande e Risposte
		Macro confronto fogli ed eliminazione righe

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Macro confronto fogli ed eliminazione righe

Ultimo Aggiornamento: 01/07/2017 15:51

Ferdi.G

Post: 1

Registrato il: 01/07/2017

Città: MILANO

Età: 50

Utente Junior

2007

OFFLINE

01/07/2017 13:11

00#1

Buongiorno a tutti.
Chiedo cortesemente un aiuto a voi professionisti, perchè non sono una cima con xls.

Ho due fogli excel:
sul primo ci sono 1000 righe con una colonna "ID" con un numero unico.
es.:

id nome
1 pippo
3 pluto
4 topolino
5 topogigio
9 gatto silvestro

nel secondo foglio stessa cosa ma con molte più righe.
Il primo foglio e il secondo sono legati tramite "id"

es.:
id tipo animale
1 cane
2 cane
3 cane
4 topo
5 topo
6 cane
7 gatto
8 gatto
9 gatto

vorrei cancellare tutte le righe del secondo foglio che non hanno un id nel primo.

Dovrei scrivere una macro che in questo caso dovrebbe cancellare le righe
con id 2,6,7,8

Aiuto [SM=x423047]

patel45

Post: 3.910

Registrato il: 13/03/2012

Città: LIVORNO

Età: 78

Utente Master

2010

OFFLINE

01/07/2017 15:51

00#2

Sub a()
LR2 = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
LR1 = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Sheets(1).Range("A2:A" & LR1)
For r = LR2 To 2 Step -1
  ID = Sheets(2).Cells(r, 1)
  Set Found = Rng.Find(ID)
  If Found Is Nothing Then Sheets(2).Rows(r).Delete
Next
End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta

Vota:

Pagina precedente | 1 | Pagina successiva

Nuova Discussione

Rispondi

Cerca nel forum

Cerca

nei titoli, nei messaggi, con Google

cerca discussioni con titolo simile

Tag discussione

macro confronto

Discussioni Simili [vedi tutte]

Macro confronto fogli ed eliminazione righe

Anteprima