Frage : Löschen der doppelten Eintragungen in 2 verschiedenen Blättern

Hallo haben everyone

I ein Excel-Blatt mit einigen Blättern und ich möchte doppelte Eintragungen löschen, automatically.


If, das Daten in Blatt geschrieben, 1 es in Blatt 2 gelöscht werden sollte, wenn es das same.

I hat jetzt das folgende code



1 ist:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Privates VorWorksheet_Change (ByVal Ziel als Strecke)

   Für jedes ChkRng in ActiveSheet.Range („CustomerShippedItaly“)
       Wenn Target.Address = ChkRng.Address dann
           Für jedes DelRng in OpenItaly.Range („CustomerOpenItaly“)
               Wenn Target.Value = DelRng.Value dann
                   DelRng.ClearContents
               Beenden wenn
           Zunächst
       Beenden wenn
   Zunächst
Sub


But beenden, wenn die gleichen Daten innen in das aktive Blatt geschrieben, das nichts im Blatt „openitaly "

Thanks für Ihr answers
 geschieht

Antwort : Löschen der doppelten Eintragungen in 2 verschiedenen Blättern

dieses versuchen,

Er benutzt Spalte nur A und benutzte Entdeckung, um macthing Reihen (eine oder mehrere) in OpenItaly schnell zu finden und zu löschen

Der schnelle Entdeckungcode basiert auf http://www.experts-exchange.com/A_29119.html

Beifall

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:

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
    Schwaches WS als Arbeitsblatt
    Schwaches rng1 als Strecke
    Schwaches rng2 als Strecke
    Schwaches cel1 als Strecke

    Wenn ist Application.Intersect (Spalten („A“), Ziel) nichts dann, Unterseeboot herausnehmen

    Mit Anwendung
        .ScreenUpdating = falsch
    Ende mit

    Einstellen WS = Blätter („OpenItaly“)
    Einstellen rng1 = WS. Strecke (WS. [a2], WS. Zellen (Rows.Count, „A“). Ende (xlUp))
    Einstellen cel1 = rng1.Find (Target.Value, die xlValues, xlWhole, xlByRows, falsch)
    Wenn nicht cel1 nichts dann ist
        Einstellen rng2 = cel1
        strFirstAddress = cel1.Address
        Tun
            Einstellen cel1 = rng1.FindNext (cel1)
            Einstellen rng2 = Anschluss (rng2.EntireRow, cel1)
        Schlingen während strFirstAddress <> cel1.Address
    Beenden wenn

    Wenn nicht rng2 nichts dann rng2.EntireRow.Delete ist
    Application.ScreenUpdating = ausrichten en
 
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us