Cuestión : Supresión de entradas duplicados en 2 diversas hojas

Hola el everyone

I tiene una hoja de Excel con varias hojas y quisiera suprimir entradas dobles que los datos de automatically.


If se mecanografían en la hoja 1 debe ser suprimida en la hoja 2 si es el same.

I ahora tiene el class= siguiente " lineNumbers " >
1 del >



Worksheet_Change secundario privado (blanco de ByVal como gama)

   Para cada ChkRng en ActiveSheet.Range (“CustomerShippedItaly”)
       Si Target.Address = ChkRng.Address después
           Para cada DelRng en OpenItaly.Range (“CustomerOpenItaly”)
               Si Target.Value = DelRng.Value después
                   DelRng.ClearContents
               Terminar si
           Después
       Terminar si
   Después
Terminar el class= >

But de Sub

Thanks para su answers



  
  class= del

Respuesta : Supresión de entradas duplicados en 2 diversas hojas

intentar esto,

Utiliza la columna A solamente, y el hallazgo usado para encontrar y para suprimir rápidamente las filas macthing (uno o más) en OpenItaly

El código rápido del hallazgo se basa en http://www.experts-exchange.com/A_29119.html

Aclamaciones

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 secundario privado (blanco de ByVal como gama)
    WS dévil como hoja de trabajo
    Rng1 dévil como gama
    Rng2 dévil como gama
    Cel1 dévil como gama

    Si Application.Intersect (columnas (“A”), blanco) no es nada entonces salir el submarino

    Con el uso
        .ScreenUpdating = falso
    Extremo con

    Fijar WS = las hojas (“OpenItaly”)
    Fijar rng1 = WS. Gama (WS. [a2], WS. Células (Rows.Count, “A”). Extremo (xlUp))
    Fijar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsos)
    Si no cel1 entonces no es nada
        Fijar rng2 = cel1
        strFirstAddress = cel1.Address
        Hacer
            Fijar cel1 = rng1.FindNext (cel1)
            Fijar rng2 = la unión (rng2.EntireRow, cel1)
        Colocar mientras que los strFirstAddress <> cel1.Address
    Terminar si

    Si no rng2 no es nada entonces rng2.EntireRow.Delete
    Application.ScreenUpdating = verdad
 
Submarino del extremo
Otras soluciones  
 
programming4us programming4us