Koşula Göre Uyarı Veren Makro....

[taarkan]

Merhaba,İlaç sarf tablosu hazırladım.ek dosyaya bulunuyor."bilgi" sayfasına malzeme hakkındaki bilgiler girilince,durum sayfasına geçiyor.durum sayfasında "gün" sütunu son kullanma tarihinden kalan günü gösteriyor. sizden ricam "gün" sütununda 300 , 120 , 60 gibi durumlara gelince duruma göre msgbox şeklinde uyarı veren bir makro olması, teşekkür ederim.

 

[İhsan Tank]

Durum sayfasında sadece bir tane mi olacak yoksa alt alt'a veri girilecek mi_?
tek olacak ise
bu kodu sayfaının kod bölümüne kopyalayınız

Option Explicit
Private Sub Worksheet_Calculate()
If Sheets("Durum").Range("E3") = 300 Or Sheets("Durum"). _
Range("E3") = 120 Or Range("E3") = 60 Then
MsgBox Sheets("Durum").Range("A3") & " Stok Kodlu " & Sheets("Durum"). _
Range("B2") & " Malzeme Adlı Ürün'ün Kalan Günü " & Sheets("Durum"). _
Range("E3"), vbCritical, "Mesaj"
End If
End Sub

 

[taarkan]

teşekkür ederim, "durum" sayfası boyunca olacak.toplam da 2000 adet malzeme adı ve bilgisi olacak o sayfada..

 

[İhsan Tank]

teşekkür ederim, "durum" sayfası boyunca olacak.toplam da 2000 adet malzeme adı ve bilgisi olacak o sayfada..

merhaba
durum sayfasının kod bölümüne kopyalarak deneyiniz

Option Explicit
Private Sub Worksheet_Calculate()
Dim ts
For ts = 3 To Cells(65536, "E").End(xlUp).Row
If Sheets("Durum").Cells(ts, "E") = 300 Or _
Sheets("Durum").Cells(ts, "E") = 120 Or _
Sheets("Durum").Cells(ts, "E") = 60 Then
MsgBox Sheets("Durum").Cells(ts, "A") & " Stok Kodlu " & Sheets("Durum"). _
Cells(ts, "B") & " Malzeme Adlı Ürün'ün Kalan Günü " & Sheets("Durum"). _
Cells(ts, "E"), vbCritical, "Mesaj"
End If
Next
End Sub

 

[taarkan]

teşekkür ederim tam istediğim gibi,

 

[İhsan Tank]

teşekkür ederim tam istediğim gibi,

rica ederim
:yazici: