Denetleme Formu

[Hüseyin61]

Değerli excel ve makro üstadları;
Ekte bir dosyam var. İstediğim başvuru sahibi, başvuru tarihi ve dönem numarasını girdikten sonra dönem sonu ve son denetleme tarihlerinin macro ile yazılması veya aynı uyarıyı o tarihlere göre vermesi. Yardımcı olursanız çok sevinirim. Şimdiden teşekkür eder Kurban Bayramınız en içten dileklerimle kutlarım.

 

[Muzaffer Ali]

Merhaba.
Sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan koda sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Tarih As Date
    Dim Donem As Integer
    If Not Intersect(Range("C:D"), Target) Is Nothing Then
        If IsDate(Cells(Target.Row, "C")) Then
            Tarih = Cells(Target.Row, "C")
        Else
            Exit Sub
        End If
        Donem = Cells(Target.Row, "D")
        If Donem = 0 Then Exit Sub
        Donem = Donem * 3
        Tarih = DateAdd("m", Donem, Tarih)
        Cells(Target.Row, "E") = Tarih
        Tarih = DateAdd("d", 10, Tarih)
        Cells(Target.Row, "F") = Tarih
    End If
End Sub

Dönemler 3 aylık olduğuna göre yazılan tarihe 3 ay ekleyerek yaptım. Eğer formüldeki gibi gün eklensin isterseniz değiştireyim.

 

[Hüseyin61]

Kodları eklediğimde herhangi bir değişiklik olmadı. Makro adı istiyor. Ekran resmini gönderdim. Dosyaya eklemeniz mümkün mü?

 

[Hüseyin61]

 

[Muzaffer Ali]

Kodları ekledikten sonra "Başvuru Tarihi" adlı başlık altına bir tarih ve "Dönem" adlı başlığın altına bir rakam yazdığınızda kodlar otomatik çalışacaktır.

 

[Hüseyin61]

Bir harikasınız. Çok teşekkür ederim. Tekrar Hayırlı bayramlar

 

[Muzaffer Ali]

Rica ederim. Hayırlı bayramlar.