Hesaplamada döngü kullanma

[ockucukay]

Merhaba

Ekli dosyada sorunumu açıkladım. Ama detaylı olarak anlatmak gerekirse Re-kal sütununun her satır için ayrı ayrı hesaplanması gerekiyor. Bulma ve hesaplama döngüsünü kuramadım. Formül aşağıdaki gibi olacaktır;

Re-kal (Q sütunu)= Bel.Kal.Tarihi (J sütunu) - Bugün()

Sonuç sayı olarak çıkacak. 250 gün gibi, Makronun nasıl olması gerekli? Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Hesap()
    
    Dim i As Long
    
    Range("Q2:Q" & Rows.Count).ClearContents
    
    For i = 2 To Cells(Rows.Count, "J").End(xlUp).Row
        Cells(i, "Q") = CDate(Cells(i, "J")) - Date
    Next i
    
End Sub

.

 

[chngrcn]

Sub hesapla() ' coded by cihangir..

Dim s1 As Worksheet

Set s1 = Sheets("Kalibrasyon Listesi")
sat = s1.[J65536].End(3).Row
Application.ScreenUpdating = False
For i = 2 To sat

s1.Cells(i, "Q").Value = CDate(s1.Cells(i, "J").Value) - Date

Next

MsgBox " işlem tamamdır.. ", , ""
Application.ScreenUpdating = True

End Sub

 

[ockucukay]

Çok teşekkür ederim. Gayet güzel çalışıyor.

 

[chngrcn]

Rica ederim, iyi çalışmalar..