Pergunta : Suprimindo de entradas duplicadas em 2 folhas diferentes

Olá! o everyone

I tem uma folha de Excel com diversas folhas e eu gostaria de suprimir de entradas dobro os dados de automatically.


If que são datilografados na folha 1 deve ser suprimida na folha 2 se é o same.

I tem agora o seguinte class= " lineNumbers " >
1 do >



Worksheet_Change secundário confidencial (alvo de ByVal como a escala)

   Para cada ChkRng em ActiveSheet.Range (“CustomerShippedItaly”)
       Se Target.Address = ChkRng.Address então
           Para cada DelRng em OpenItaly.Range (“CustomerOpenItaly”)
               Se Target.Value = DelRng.Value então
                   DelRng.ClearContents
               Terminar se
           Em seguida
       Terminar se
   Em seguida
Terminar o class= >

But de Sub

Thanks para seu answers



class= do

Resposta : Suprimindo de entradas duplicadas em 2 folhas diferentes

tentar isto,

Usa a coluna A somente, e o achado usado para encontrar e suprimir rapidamente de fileiras macthing (umas ou várias) em OpenItaly

O código rápido do achado é baseado em http://www.experts-exchange.com/A_29119.html

Elogios

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 secundário confidencial (alvo de ByVal como a escala)
    WS não ofuscante como a folha
    Rng1 não ofuscante como a escala
    Rng2 não ofuscante como a escala
    Cel1 não ofuscante como a escala

    Se Application.Intersect (colunas (“A”), alvo) não é nada então retirar o submarino

    Com aplicação
        .ScreenUpdating = falso
    Extremidade com

    Ajustar WS = folhas (“OpenItaly”)
    Ajustar rng1 = WS. Escala (WS. [a2], WS. Pilhas (Rows.Count, “A”). Extremidade (xlUp))
    Ajustar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsos)
    Se não cel1 não é nada então
        Ajustar rng2 = cel1
        strFirstAddress = cel1.Address
        Fazer
            Ajustar cel1 = rng1.FindNext (cel1)
            Ajustar rng2 = união (rng2.EntireRow, cel1)
        Dar laços quando os strFirstAddress <> cel1.Address
    Terminar se

    Se não rng2 não é nada então rng2.EntireRow.Delete
    Application.ScreenUpdating = retificam
 
Submarino da extremidade
Outras soluções  
 
programming4us programming4us