Öncelikle tablondaki PM alanlarınıın VeriTürünü Tarih/Saat olarak değiştirmelisin. (Yoksa sıkıntı çekersin.)
Ardından sana lazım olan formul;
=DateAdd("m", x, PM_1) formülüdür.
Formuldeki x ekleyeceğin ay sayısıdır. Yani 2 ay eklemek istiyorsan x yerine2 yazacaksın. Ay olarak değilde başka format kullanmak istiyorsan;
hafta :"w"
gün: "d"
yıl: "y"
PM alanlarını Tarih/Saat olarak değiştirmek istemezsen;
PM 1 kutusunun olay yordamına şunları yaz:
Kod:
Private Sub PM_1_AfterUpdate()
On Error GoTo HataPM1
Dim pM1 As Date
pM1 = CDate(PM_1)
For i = 1 To 7
Me("PM " & i + 1) = Format(DateAdd("m", i * 6, pM1), "dd-mmm-yy")
Next i
HataPM1:
Exit Sub
End Sub