Als het ene niet werkt dan moet je wat anders proberen. Als ik het bestand eerst opsla en dan open dan werkt de methode met Specialcells wel.Hoe vind je het toch altijd, VenA?
Code:
Sub VenA()
With Sheets("Invoer")
.Unprotect
x = Day(Application.EoMonth(.Cells(4, 1), 0))
With Sheets("Database").ListObjects(1)
.ListRows.Add.Range.Resize(x, 18) = Sheets("Invoer").Cells(3, 1).CurrentRegion.Offset(3).Resize(x, 18).Value
On Error Resume Next
.Range.Columns(3).SpecialCells(4).EntireRow.Delete
End With
Application.EnableEvents = False
.Range("C4:F34").ClearContents
.Range("B1") = .Range("B1") - (.Range("B2") = 12)
.Range("B2") = .Range("B2") + IIf(.Range("B2") = 12, -11, 1)
Application.EnableEvents = True
.Protect
ThisWorkbook.RefreshAll
End With
End Sub