aşağıdaki kodu dener misiniz?
fonksiyon modüle eklenecek

Function GunEkle(Trh As Date, GnEk As Long) As Date

GnSy = 0

    Do While GnSy < GnEk

    Trh = Trh + 1

        If Trh Mod 7 > 1 Then GnSy = GnSy + 1

    Loop

GunEkle = Trh

End Function

sorgudaki plandate3:GunEkle([plandate1],7) düzenlenmeli