Denetleme Formu

Katılım
8 Nisan 2008
Mesajlar
59
Excel Vers. ve Dili
Ofis 2019 Türkçe 64 Bit
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

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
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.
 
Katılım
8 Nisan 2008
Mesajlar
59
Excel Vers. ve Dili
Ofis 2019 Türkçe 64 Bit
Kodları eklediğimde herhangi bir değişiklik olmadı. Makro adı istiyor. Ekran resmini gönderdim. Dosyaya eklemeniz mümkün mü?
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
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.
 
Katılım
8 Nisan 2008
Mesajlar
59
Excel Vers. ve Dili
Ofis 2019 Türkçe 64 Bit
Bir harikasınız. Çok teşekkür ederim. Tekrar Hayırlı bayramlar
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Rica ederim. Hayırlı bayramlar.
 
Üst