Denetleme Formu

Hüseyin61

Altın Üye
Katılım
8 Nisan 2008
Mesajlar
25
Excel Vers. ve Dili
Türkçe
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.
 

Ekli dosyalar

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,226
Excel Vers. ve Dili
2013
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.

Kod:
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

Altın Üye
Katılım
8 Nisan 2008
Mesajlar
25
Excel Vers. ve Dili
Türkçe
Kodları eklediğimde herhangi bir değişiklik olmadı. Makro adı istiyor. Ekran resmini gönderdim. Dosyaya eklemeniz mümkün mü?
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,226
Excel Vers. ve Dili
2013
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

Altın Üye
Katılım
8 Nisan 2008
Mesajlar
25
Excel Vers. ve Dili
Türkçe
Bir harikasınız. Çok teşekkür ederim. Tekrar Hayırlı bayramlar
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,226
Excel Vers. ve Dili
2013
Rica ederim. Hayırlı bayramlar.
 
Üst