Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Eliminazione righe da fogli diversi in contemporanea

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

Eliminazione righe da fogli diversi in contemporanea

Postdi salper » 30/11/12 13:19

Ciao a tutti rieccomi ancora con un altro quesito
Supponiamo di avere un foglio di exel dove in una colonna sono stati inseriti dei numeri di progressivi di assegni .
Supponiamo di avere inserito gli stessi dati in un altro foglio (stesso file) ma su celle diverse, cioè ad esempio "cella A1 foglio1 il numero assegno 123456 , stesso numero (123456) ma su cella A50 foglio 2.
DOMANDA DA 1.000.000 DI $: E' possibile eliminare una riga contenente quei dati dal primo foglio e contemporaneamente anche dall'altro foglio anche se collocate su cella diversa , senza dover andare a ricercare i valori corrispondnti nel secondo foglio ed eliminarli manualmente in modo da non avere possibilita di errore ? Spero di essere stato piu chiaro possibile.
Fiducioso del vostro ineguagliabile aiuto Vi inngrazio anticipatamente.
salper
Newbie
 
Post: 5
Iscritto il: 05/11/12 17:11

Sponsor
 

Re: Eliminazione righe da fogli diversi in contemporanea

Postdi Flash30005 » 30/11/12 13:52

Questa macro elimina le righe che trova uguali sia nel Foglio1 sia nel Foglio2 (rinomina i fogli nella macro se diversi)

Codice: Seleziona tutto
Sub EliminaR()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR1 To 2 Step -1
Na1 = Ws1.Range("A" & RR1).Value
    For RR2 = UR2 To 2 Step -1
        If Na1 = Ws2.Range("A" & RR2).Value Then
        Ws1.Rows(RR1).Delete
        Ws2.Rows(RR2).Delete
        End If
    Next RR2
Next RR1
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Eliminazione righe da fogli diversi in contemporanea":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti