Hallo ik heb het volgende probleem
Ik heb het volgende stuk Code.
Deze gebruik ik ook in een ander bestand dus andere sheet namen.
Daar werkt hij zonder probleem.
Echter geeft hij nu een probleem bij
Sheets("Over_zicht").Paste
Ik weet niet wat ik over het hoofd zie.
Hoop 1 van jullie wel
Ik heb het volgende stuk Code.
Deze gebruik ik ook in een ander bestand dus andere sheet namen.
Daar werkt hij zonder probleem.
Echter geeft hij nu een probleem bij
Sheets("Over_zicht").Paste
Code:
Sub overzi()
Sheets("Over_zicht").Select
Range("A:A").Select
Selection.ClearContents
Sheets("Over_zicht").Select
Columns("B:B").Select
Selection.ClearContents
Sheets("Totaal_lijst").Select
Columns(2).Select
Selection.Copy
Sheets("Over_zicht").Select
Range("A:A").Select
Sheets("Over_zicht").Paste
Application.CutCopyMode = False
ActiveSheet.Range("A:A:A:A").RemoveDuplicates Columns:=1, Header:=xlYes
Call vullen
End Sub
Ik weet niet wat ik over het hoofd zie.
Hoop 1 van jullie wel