sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.620
dit bedoel ik:
verander
in
verander
Code:
Sub M_snb()
Sheet1.Cells(1, 20) = Sheet1.Cells(1)
Sheet1.Cells(2, 20) = 40
Sheet1.Cells(1).CurrentRegion.AdvancedFilter 2, Sheet1.Cells(1, 20).CurrentRegion, Sheet2.Cells(1)
End Sub
Code:
sub M_snb()
Sheet1.Cells(1, 20) = Sheet1.Cells(1, 2)
'vul zelf in T2 je datum in
Sheet1.Cells(1).CurrentRegion.AdvancedFilter 2, Sheet1.Cells(1, 20).CurrentRegion, Sheet2.Cells(1)
End Sub
Laatst bewerkt: