DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Doğrudur hocam 45 gün kaldıktan itibaren vermesi lazım ve 45 gün aşağısında örneğin 38 gün kaldı, 17 gün kaldı diye 01 ocak 2024 tarihine kadar söylemesi lazım yani 45 gün ve aşağısında bulunan gün sayılarını bildirmesi lazım
Hocam kaç kere baktım ama malesef vermiyor, araya yıl girdiğinde saymıyor ama aynı yıl içerisinde olduğunda veriyor sıkıntısız bir şekilde.
Sorum günceldir
Korhan hocam iyi günler, RBozkurt hocamın bana vermiş olduğu kod sağlıklı çalışmakta ve tam istediğim şekilde sadece önceki mesajlarımda belirtmiş olduğum bir sıkıntı var ve neden olduğunu çözemedim bununla ilgili yardım istiyordum
Yok hocam fazla değil ayda 1 veya 2 tane verim oluyor ve RBozkurt hocamın vermiş olduğu kod tam istediğim gibi ama dediğim gibi küçük bir sıkıntı yaşıyorum ve çözemedim malesef
Güncel
B'deki tarih - A'daki tarih farkını D'ye mi yazdırılacak?
Sub TarihFarki()
Dim i As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
If Not IsEmpty(Range("A" & i).Value) And Not IsEmpty(Range("B" & i).Value) Then
Range("D" & i).Value = DateDiff("d", Range("A" & i).Value, Range("B" & i).Value)
End If
Next i
End SubSub TarihFarki()
Dim i As Long
Dim LastRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("TEST") 'TEST Yerine Kendi Sayfa Adınız..
LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
If Not IsEmpty(ws.Range("A" & i).Value) And Not IsEmpty(ws.Range("B" & i).Value) Then
ws.Range("D" & i).Value = DateDiff("d", ws.Range("A" & i).Value, ws.Range("B" & i).Value)
End If
Next i
End Sub31. mesajdaki kodu değiştirdim. Deneyiniz.