Questione : Cancellazione delle entrate duplicate in 2 strati differenti

Ciao il everyone

I ha uno strato di Excel con parecchi strati e vorrei cancellare le doppie entrate i dati di automatically.


If che sono scriv in strato 1 dovrebbe essere cancellato in strato 2 se è il same.

I ora ha il seguente class= " i lineNumbers " >
1 del >



Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)

   Per ogni ChkRng in ActiveSheet.Range (“CustomerShippedItaly„)
       Se Target.Address = ChkRng.Address allora
           Per ogni DelRng in OpenItaly.Range (“CustomerOpenItaly„)
               Se Target.Value = DelRng.Value allora
                   DelRng.ClearContents
               Concluder se
           Dopo
       Concluder se
   Dopo
Concludere il class= >

But di Sub

Thanks per il vostro answers



  
  class= del

Risposta : Cancellazione delle entrate duplicate in 2 strati differenti

provare questo,

Usa la colonna A soltanto ed il ritrovamento usato per trovare e cancellare rapidamente le file macthing (une o più) in OpenItaly

Il codice veloce del ritrovamento è basato su http://www.experts-exchange.com/A_29119.html

Acclamazioni

Dave
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
    La WS fioca come manuale
    Rng1 fioco come gamma
    Rng2 fioco come gamma
    Cel1 fioco come gamma

    Se Application.Intersect (colonne (“A„), obiettivo) è niente allora uscire il sommergibile

    Con l'applicazione
        .ScreenUpdating = falso
    Estremità con

    Regolar la WS = strati (“OpenItaly„)
    Regolar rng1 = la WS. Gamma (WS. [a2], la WS. Cellule (Rows.Count, “A„). Estremità (xlUp))
    Regolar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsi)
    Se non cel1 allora è niente
        Regolar rng2 = cel1
        strFirstAddress = cel1.Address
        Fare
            Regolar cel1 = rng1.FindNext (cel1)
            Regolar rng2 = unione (rng2.EntireRow, cel1)
        Collegare mentre strFirstAddress <> cel1.Address
    Concluder se

    Se non rng2 è niente allora rng2.EntireRow.Delete
    Application.ScreenUpdating = allineano
 
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us