Koşullu Döngü ile tarih işlemi yapma (sorunlu)

[drkdrk]

arkadaşlar merhaba

aşağıda kodlarını verdiğim bir işlemim var fakat bunu bir döngü içinde kullanmak istiyorum. Örnek tablo ekte ve işlem içinde anlatılmıştır. Kısaca bahsedeyim;

tarih butonu C sütnun kontrol edecek ve eğer "KL1" veya "ST1" görürse ilgili satır için 30 gün sonrasını G sütununa yazdıracak ve "CF4" veya "UK6" gördüğünde de 90 gün sonrasını G sütununa yazdıracak. Bunu nasıl yapabilirim? Tarih atma işlemini hallettim ama döngü kuramadım

yardımlarınızı rica ediyorum arkadaşlar.

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
    
    Dim i   As Long
    
    For i = 5 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = "KL1" Or Cells(i, "C") = "ST1" Then
            Cells(i, "G") = Cells(i, "D") + 30
        ElseIf Cells(i, "C") = "CF4" Or Cells(i, "C") = "UK6" Then
            Cells(i, "G") = Cells(i, "D") + 90
        End If
    Next i
 
End Sub

 

[drkdrk]

Merhaba,

Private Sub CommandButton1_Click()
    
    Dim i   As Long
    
    For i = 5 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = "KL1" Or Cells(i, "C") = "ST1" Then
            Cells(i, "G") = Cells(i, "D") + 30
        ElseIf Cells(i, "C") = "CF4" Or Cells(i, "C") = "UK6" Then
            Cells(i, "G") = Cells(i, "D") + 90
        End If
    Next i
 
End Sub

hocam allah razı olsun sağol.

 

[Necdet]

hocam allah razı olsun sağol.

Güle güle kullanınız da bu 30 ve 90 gün olayına takıldım ben, siz aslında tarihlere 1 ay ve 3 ay mı eklemek istiyorsunuz yoksa bu gün toplamı size yeter mi?.

Malum Şubat ve 31 çeken aylarda sıkıntı olabilir.

 

[drkdrk]

Güle güle kullanınız da bu 30 ve 90 gün olayına takıldım ben, siz aslında tarihlere 1 ay ve 3 ay mı eklemek istiyorsunuz yoksa bu gün toplamı size yeter mi?.

Malum Şubat ve 31 çeken aylarda sıkıntı olabilir.

hocam kusura bakmayın mesaii anca bitti

evet aslında 1 ay ve 3 ay olarak işlem yaptırmak istiyorum. Dediğiniz şeyi bende düşündüm sorun çıkarmı diye ama çıkmaz heralde. Deneyeceğim.

 

[drkdrk]

Merhaba,

Private Sub CommandButton1_Click()
    
    Dim i   As Long
    
    For i = 5 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = "KL1" Or Cells(i, "C") = "ST1" Then
    [COLOR="Red"]Cells(i, "G").Value = Format(Cells(i, "D").Value + 30, "dd.mm.yyyy")[/COLOR]
        ElseIf Cells(i, "C") = "CF4" Or Cells(i, "C") = "UK6" Then
    [COLOR="Red"]Cells(i, "G").Value = Format(Cells(i, "D").Value + 90, "dd.mm.yyyy")[/COLOR]
        End If
    Next i
 
End Sub

Hocam işlemi renkli ile gösterdiğim şekilde yaptım 31 günlük ve şubat ayı sorunu ortadan kalktı. Tam 30 ve 90 günleri sorunsuz atıyor.
emeğine sağlık hocam.

 

[Necdet]

Hocam işlemi renkli ile gösterdiğim şekilde yaptım 31 günlük ve şubat ayı sorunu ortadan kalktı. Tam 30 ve 90 günleri sorunsuz atıyor.
emeğine sağlık hocam.

Sanmam,

Aşağıdaki gibi kullanınız.

Private Sub CommandButton1_Click()
 
    Dim i   As Long
 
    For i = 5 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = "KL1" Or Cells(i, "C") = "ST1" Then
            Cells(i, "G") = [B][COLOR=red]DateAdd("m", 1, Cells(i, "D"))[/COLOR][/B]
        ElseIf Cells(i, "C") = "CF4" Or Cells(i, "C") = "UK6" Then
            Cells(i, "G") = [B][COLOR=red]DateAdd("m", 3, Cells(i, "D"))[/COLOR][/B]
        End If
    Next i
 
End Sub

 

[drkdrk]

Sanmam,

Aşağıdaki gibi kullanınız.

Private Sub CommandButton1_Click()
 
    Dim i   As Long
 
    For i = 5 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = "KL1" Or Cells(i, "C") = "ST1" Then
            Cells(i, "G") = [B][COLOR=red]DateAdd("m", 1, Cells(i, "D"))[/COLOR][/B]
        ElseIf Cells(i, "C") = "CF4" Or Cells(i, "C") = "UK6" Then
            Cells(i, "G") = [B][COLOR=red]DateAdd("m", 3, Cells(i, "D"))[/COLOR][/B]
        End If
    Next i
 
End Sub

eyvallah hocam çok teşekkür ederim.