Makro ile tarih atlatma

[seranonet]

A1 hücresinde 08-06-2012 yazdığını varsayalım makroya tıkladıgımda bu tarih 09-06-2012 olsun bir daha tıkladığımda 11-06-2012 olsun yani aradaki pazar günün atlamasını istiyorum bu mümkünmüdür

teşşekkür ederim

 

[Huseyinkis]

ekli codları denermisiniz.

Sub atla()
tarih = Cells(1, 1).Value
ayss = Weekday(tarih + 1, vbSunday)
If ayss = 1 Then
x2 = tarih + 2
Else
x2 = tarih + 1
End If
Cells(1, 1).Value = x2
End Sub

 

[seranonet]

Teşşekür ederim oldu