İki tarih arası yeniden hesaplama

[osmanli2]

Sayın Üstadlarım; ekli örnekde userform üzerinde girilen tarihler aralığında ki tarihlere göre sayfadaki "c" sütunundaki hesaplamalar yeniden yapılması için gereken koadlara ihityacım var. yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    For X = 2 To [A65536].End(3).Row
        If Cells(X, "A") >= CDate(TextBox1) And Cells(X, "A") <= CDate(TextBox2) Then
            Cells(X, "C") = Cells(X, "B") * 0.05
        End If
    Next
    
    MsgBox "Hesaplama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Özel mesajdan yazmanıza gerek yok. Açtığınız başlığa isteklerinizi belirtebilirsiniz.

Üstad, çok teşkkür ederim tam istedğim gibi. Ayrıca, seçilen bu iki tarih arasındaki toplam textbox3 deki rakamdan büyük eşitse kriterini ekleyebilirmiyiz. yani "c" sütunundaki değeri hem tarih aralığı hemde belirtilen tutardan büyük eşitse yeniden hesaplanacak.

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    For X = 2 To [A65536].End(3).Row
        If Cells(X, "A") >= CDate(TextBox1) And Cells(X, "A") <= CDate(TextBox2) Then
            If Cells(X, "C") >= TextBox3 Then Cells(X, "C") = Cells(X, "B") * 0.05
        End If
    Next
    
    MsgBox "Hesaplama işlemi tamamlanmıştır.", vbInformation
End Sub