2016-08-16 1 views
0

entfernen Dies hat mich ratlos. In meinem VBA-Code in einer Spalte I Duplikate zu entfernen binEntfernen Sie die doppelte Kopie in VBA

Columns("AB:AB").Select 
    Range("AB5").Activate 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("SFDC_Data").Select 
    Columns("E:E").Select 
    Range("E5").Activate 
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=_ 
     False, Transpose:=False 
    Range("E2").Select 
    Application.CutCopyMode = False 
    Columns("E:E").Select 
    Range("E5").Activate 
    ActiveSheet.Range("E:E").RemoveDuplicates Columns:=Array(1), Header:=xlYes 

Das Popup mit kommt ich machen bestätigen, bevor es die doppelte Entfernung durchführen wird. Wie kann ich dieses Popup loswerden oder automatisch bestätigen?

Irgendwelche Hilfe ?! Ich habe versucht alle Arten von Dingen einschließlich,

Application.DisplayAlerts = False 
Application.EnableEvents = False 
Application.ScreenUpdating = False 

Bitte Hilfe!

+1

Die eine Zeile, die Sie anzeigen, sollte kein Bestätigungs-Popup auslösen. Bitte poste mehr von dem Code. –

+0

'Spalten (" E: E "). Wählen Sie Bereich (" E5 "). Aktivieren Sie ActiveSheet.Range (" E: E "). RemoveDuplicates Spalten: = Array (1), Header: = xlYes' –

+0

Bitte posten der Code im ursprünglichen Beitrag mit bearbeiten. Die Kommentare können nicht richtig formatiert werden. –

Antwort

0

Ich erhalte keine Pop-ups, wenn ich Dubletten mit VBA entferne. Versuchen Sie, diese beiden Zeilen vor und nach dem Code-Block:

Application.DisplayAlerts = False 
Application.DisplayAlerts = True 

ich dieses Paar auf für andere Dinge mehrfach verwendet haben und es tut immer den Trick.

Verwandte Themen