Question : Suppression des entrées doubles en 2 feuilles différentes

Bonjour l'everyone

I ont une feuille d'Excel avec plusieurs feuilles et je voudrais supprimer de doubles entrées que des données d'automatically.


If sont introduites au clavier la feuille 1 elle devrait être supprimée en feuille 2 si c'est le same.

I ont maintenant le class= suivant les " lineNumbers " >

1 de >



Worksheet_Change secondaire privé (cible de ByVal comme gamme)

   Pour chaque ChkRng dans ActiveSheet.Range (« CustomerShippedItaly »)
       Si Target.Address = puis ChkRng.Address
           Pour chaque DelRng dans OpenItaly.Range (« CustomerOpenItaly »)
               Si Target.Value = puis DelRng.Value
                   DelRng.ClearContents
               Finir si
           Après
       Finir si
   Après
Finir le class= >


But de Sub

Thanks pour votre answers


  
  class= de 

Réponse : Suppression des entrées doubles en 2 feuilles différentes

essayer ceci,

Il emploie la colonne A seulement, et la trouvaille utilisée rapidement pour trouver et supprimer des rangées macthing (un ou plusieurs) dans OpenItaly

Le code rapide de trouvaille est basé sur http://www.experts-exchange.com/A_29119.html

À la votre

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 secondaire privé (cible de ByVal comme gamme) Le faible WS comme feuille de travail Faible rng1 comme gamme Faible rng2 comme gamme Faible cel1 comme gamme Si Application.Intersect (colonnes (« A »), cible) n'est rien puis sortir le sous-marin Avec l'application .ScreenUpdating = faux Extrémité avec Placer le WS = les feuilles (« OpenItaly ») Placer rng1 = le WS. Gamme (WS. [a2], le WS. Cellules (Rows.Count, « A »). Extrémité (xlUp)) Placer cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, faux) Sinon cel1 n'est rien alors Placer rng2 = cel1 strFirstAddress = cel1.Address Faire Placer cel1 = rng1.FindNext (cel1) Placer rng2 = union (rng2.EntireRow, cel1) Faire une boucle tandis que les strFirstAddress <> cel1.Address Finir si Sinon rng2 n'est rien puis rng2.EntireRow.Delete Application.ScreenUpdating = rectifient Sous-marin d'extrémité