Açıklama da bulunan tarihe göre hesaplama

[ETEKİN]

Merhaba arkadaşlar

A1 hücresinde bulunan açıklama içerisinde tarih var, bugünün tarihi açıklamanın içerisindeki tarihe eşit olduğu zaman a1 hücresindeki değeri toplayacak bir makro yazabilirmiyiz.

Sevgi ve saygıyla

 

[Levent Menteşoğlu]

bir örnek dosya ekleyebilirmisiniz, A1 hücresindeki sayı ne ile toplanacaktır.

 

[ETEKİN]

A1:5
A2:10
A3:8
.
.
.
diye gidiyor ve bunların hepsinde de açıklama(comments) var.Bu açıklamalarda tarihler var, günün tarihi ile açıklamada ki tarihe eşit ise B1 de günü gelen hücre değeri toplanacak(B1=A1+A2+A3) gibi.

Sevgi ve Saygıyla

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

Sub topla()
On Error Resume Next
For a = 1 To [a65536].End(3).Row
If CDate(Cells(a, "a").Comment.Text) = Date Then deg = deg + Cells(a, "a")
Next
[b1] = deg
End Sub

 

[ETEKİN]

Sayın Leventm

İlginiz ve alakanız için çok teşekkürler kotlar tam istediğim gibi

Sevgi ve Saygıyla...