Message Box Uyarı

[mmsez]

Merhaba.

Makro konusundan hiç mi hiç anlamıyorum öncelikle.Bu nedenle biraz araştırma yapsamda pek başarılı olamadım ama eminim siz üstadlar için 4 satırlık bir kod ile çözülecek bir sorunum var.Şimdiden teşekkürler...
Sorunum ekteki dosyada C kolonunda yer alan tarihlerden bu gün ve eski tarih varsa ve D kolonu boşsa mesaj box uyarı verecek.Uyarı "transfer talimatınız var" olacaktır...

 

[mmsez]

destek lütfen...

 

[mmsez]

O kadar zor mu gerçekten yoksa....

 

[apocalyt]

bir modüle kopyalayın..bu excel dosyanızı her açtığınızda direk önünüze uyarı gelicektir..
Sub outo_open()
For x = [c1000].End(3).Row To 2 Step -1
If Cells(x, "d") <> "" Then
If CDate(Cells(x, "c")) = Date Or CDate(Cells(x, "c")) < Date Then
a = CDate(Cells(x, "c"))
k = MsgBox(a & Space(1) & "tarihli transfer talimatınız var.Başkada olabilir.Görmek istermisiniz?", vbYesNo)
If k = vbYes Then
GoTo gel
Else
Exit Sub
End If
End If
gel:
End If
Next x
End Sub

 

[mmsez]

Çok teşekkürler...Emeğinize sağlık...

 

[mmsez]

Apocalty üstad peşin peşin tamam dedim ama d kolonu boş olmasada uyarı veriyor.
Tarihi gelen hücrenin yanında yani d kolonu boş değilse uyarı gelmemesi gerekiyor.
Uğraştırıyorum ama...
Teşekkürler...

 

[apocalyt]

zaten ben d kolonu boş olmazsa uyarı versin diye kodu yazmıştım d kolonu boş olunca demişssiniz..kafa kalmadı.. aşağıdaki dorudur ..
Sub outo_open()
For x = [c1000].End(3).Row To 2 Step -1
If Cells(x, "d") = "" Then
If CDate(Cells(x, "c")) = Date Or CDate(Cells(x, "c")) < Date Then
a = CDate(Cells(x, "c"))
k = MsgBox(a & Space(1) & "tarihli transfer talimatınız var.Başkada olabilir.Görmek istermisiniz?", vbYesNo)
If k = vbYes Then
GoTo gel
Else
Exit Sub
End If
End If
gel:
End If
Next x
End Sub

 

[mmsez]

ne diyebilirim ki çok teşekkürler...

Elinize sağlık...