Soru J:J hücresinde her hangi satır 20 sayısına ulaştığında mail gönderme makrosu

[webgoktan]

merhabalar bir adet takip çizelgem var, bu çizelgede iki tarih arasında gün hesaplaması yapılmakta ve gün bazında mail atması için kod yazdım ama çalışmadı,

if target.range("J:J")>=20 then
run module5.mail_gonder
end if

 

[Korhan Ayhan]

Deneyiniz.

If WorksheetFunction.CountIf(Range("J:J"),">=20") > 0 Then
Run module5.mail_gonder
End If

 

[webgoktan]

bu kodu sayfa kodlamasında yazdığımda hata alıyorum.

 

[Korhan Ayhan]

Yazarken harf hatası olmuş. Revize ettim. Tekrar deneyiniz.

 

[webgoktan]

compile error:
expected function or variable

module5.mail_gonder kısmında hata alıyorum.

 

[webgoktan]

lakin konuyla alakalı bir durum var oda iki tarihi arasındaki fark excel vba userform üzerinden hesaplama yapılıyor ve gün sayısı panel üzerinden yazılmakta. yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Lütfen örnek dosyanızı paylaşınız.