- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
arkadaşlar sorum ekdedir.ilgilenirseniz memnun olurum
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
[D:E].ClearContents
For X = 1 To [B8]
Cells(3, 5) = "TAKSİT TARİHLERİ"
Cells(X + 3, 4) = X
Cells(X + 3, 5) = DateSerial(Year([B5]), Month([B5]) + Cells(X + 3, 4), Day([B5]))
Next
End Sub