Soru Fatura Vadesine +30 daha Ekleme

[mehmetd]

Sn. Arkadaşlar hayırlı işler
Ekteki örnek dosyamda anlatmaya çalıştım.
Vadesi 45-90 arası olan faturaların vadesi ne +30 daha ekleyerek örneğin vade 01.09.2023 ise 01.10.2023 olacak şekilde revize edilmesini sağlayacak bir çalışmaya ihtiyacım var.Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunuyorum. Saygılarımla. iyi günler

 

[AdemCan]

Merhaba örnek kod, sayfa ya da modüle ekleyip çalıştırabilirsiniz.

Sub test()
Dim s1 As Worksheet, i As Long, son As Long
Set s1 = Sayfa1
    With s1
    son = .Cells(Rows.Count, "F").End(3).Row
        For i = 2 To son
        vade = .Cells(i, "F"): tarih = .Cells(i, "C")
            If vade <> "" And IsDate(vade) Then
                fark = vade - tarih
                    If fark >= 45 And fark <= 90 Then .Cells(i, "F") = vade + 30
            End If
        Next i
    End With
End Sub

 

[mehmetd]

Adem Bey çok teşekkür ediyorum. Allah razı olsun. tam istediğim gibi olmuş.

 

[AdemCan]

Amin, cümlemizden razı olsun inşallah.

 

[mehmetd]

Adem Bey yukarıda verilen kodu başka bir yerlerde kullanmak istiyorum ama olmuyor.
Dim s1 As Worksheet, i As Long, son As Long satırı alakalı olabilir mi?
Set s1 = Sayfa1 sayfa ismi ile sınırlamış olmuyor muyuz

 

[AdemCan]

Evet, kodlar Sayfa1 de çalışır, diğer sayfalarda kullanmak için Sayfa1 i diğer sayfa ismi ile değiştirmelisiniz.