PHP:
Sub KOPIEEREN2()
Dim c As Range
y = 2
[Factuur2!A3].CurrentRegion.ClearContents
For Each c In Sheets("Factuur").Range("G2:G2000")
If c = [Agenda!J3] Then
Sheets("Factuur2").Range("A" & y).Offset(1, 0) _
.Resize(, 5) = Sheets("Factuur").Cells(c.Row, 1).Resize(, 5).Value
y = y + 1
End If
Next
End Sub
Hoe kan ik inplaats van sheet Factuur2 naar een nieuwe Workbook sturen waarbij de sheet de naam Factuur krijgt.