AccessTr.neT

Tam Versiyon: Tarihe Yıl Ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Cdate olayı ay ve yıl kısımlarını değiştirise alttaki kodu deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sor
    If Target.Column <> 13 Then Exit Sub
    If Target.Row < 5 Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Not IsDate(Target) Then Exit Sub
   
    On Error Resume Next
    sor = Application.InputBox("Sayi giriniz..." & vbNewLine & "Not:Sadece sayi giriniz", "Sayi", 0)
    On Error GoTo 0
    If sor = False Or sor = "" Then Exit Sub
    If Not IsNumeric(sor) Then: MsgBox "Rakam giriniz..", vbCritical, "Hata": Exit Sub
    If Val(sor) < 1 Then MsgBox "0 dan büyük rakam giriniz..", vbCritical, "Hata": Exit Sub
    Target.Offset(1).Value = Evaluate("=DATE(YEAR(" & Target.Address & ")+ " & Val(sor) & " ,MONTH(" & Target.Address & "),DAY(" & Target.Address & "))")
    Target.Offset(1).NumberFormat = "dd.mm.yyyy"
End Sub
Yardımınızı esirgemediğiniz için teşekkür eder, saygılarımı sunarım
Rica ederim.
Sayfalar: 1 2