Goede middag,
Heeft iemand enig idee waarom het volgende gebeurd in deze macro:
Als er in de range die gekopieerd wordt meer dan 3 regels zitten gaat het goed.
Maar bij 1 of twee regels vult hij meteen alle cellen naar beneden met de waarde die gekopieerd is.
Als de filter helemaal geen 1 ziet gaat het ook niet goed maar daar zou een beveiliging in gemaakt kunnen worden.
Sub Gegevens_invoeren_Eigen_Haard()
Call wissen_Eigen_Haard_overige_lijst
Application.ScreenUpdating = False
Sheets("Opname Eigen Haard").Activate
Columns(21).EntireColumn.Hidden = False
Range("A:A").AutoFilter Field:=1, Criteria1:="1"
Range("E50:Q526, U50:U526").Copy
Sheets("overige").Activate
Range("D33:Q526").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Opname Eigen Haard").Activate
Range("A:A").AutoFilter Field:=1
Columns(21).EntireColumn.Hidden = True
Sheets("overige").Activate
Columns("D:P").ColumnWidth = 5
Columns("A:AD").VerticalAlignment = xlTop
Cells.Font.Name = "Calibri"
Cells.Font.Size = 10
Range("R16").Select
Application.ScreenUpdating = True
End Sub