Tarihe göre MsgBox verdirme.

[nOthinqs]

S.a, Hayırlı Haftasonları diliyorum.

Siteden araştırmalarım ve hüseyin hocanın yardımıyla çalışmamın son kısımlarına gelmiş bulunmaktayım şuan takıldığım konu.

Örneğin : A1 sütununda 01.03.2015 > A2 sütununda 04.03.2015 yazıyor.
Bunu koşullu biçimlendirme ile A BUGÜNE EŞİTSE KIRMIZI A SÜTUNU BUGÜN+3 İSE YEŞİL OLARAK göstermekte.

Ancak ben buna birde msgBox ile nasıl uyarı verdiririm. " Bugün işe başlaması gerekir " veya " 3 gün sonra işe başlıcak ".

Bunu dahada zorlaştırırsam . Bugün 2 kişi işe başlıcak > A tarih B isim. Uyarıda Bugün Bülent ve Ali işe başlıcak şeklinde olabilirmi.

Kaynak olarak ; http://www.excel.web.tr/f48/tarihten-3-gun-once-ve-tarih-geldioinde-uyary-t45916/sayfa2.html buldum ancak dosyaları indiremediğimden sizlere sorma gereksinimi gördüm.

Tekrardan teşekkür ederim..

 

[vardar07]

Module4 içindeki kodları aşağıdaki ile değiştirip denermisiniz.

Sub AUTO_OPEN()
 Call uyar
  Call SAAT
End Sub

Sub SAAT()
Application.OnTime Now + TimeValue("00:00:01"), "SAAT"
    DoEvents
    Sheets("ANASAYFA").[E12] = Now
End Sub

Sub uyar()
For i = 2 To Sheets("ANASAYFA").Cells(Rows.Count, "H").End(3).Row
If CDate(Sheets("ANASAYFA").Cells(i, "H").Value) = Date Then
MsgBox ("" & Sheets("ANASAYFA").Cells(i, "B") & "  Bugün işbaşı yapacak")
End If
Next
End Sub

 

[nOthinqs]

Selamlar, Hocam çok teşekkür ederim. Peki; 3 Gün sonra yine şunlar şunlar da var dersek hangi nasıl bir ekleme yapmam gerekir. Bugün için mesaj verdi , Tamam dedim. Ardından 3 gün sonra da şunlar var gibi.

Birde sizleri fazla yormamak adına kodu açıklama şansınız varmı acemeliğimden dolayı tam kavrayamıyorum.

 

[vardar07]

Merhaba tam olmasa da yakın bir açıklama aşağıda. Bir üst mesajdaki istediğiniz olur ancak sayfada veri ne kadar çok olursa buda arka arkaya mesaj gösterecek sizde her seferinde tamam demek zorunda kalacaksınız.

For i = 2 To Sheets("ANASAYFA").Cells(Rows.Count, "H").End(3).Row
[COLOR="DarkOrange"]'Anasayfa "H"sütununa göre satır ikiden son dolu satırakadar döngü oluşturuluyor[/COLOR]

If CDate(Cells(i, "H").Value) = Date Then
[COLOR="DarkOrange"]'Burada şart belirtiliyor: Eğer döngüdeki satır bugüne eşitse[/COLOR]

MsgBox ("" & Cells(i, "B") & "  Bugün işbaşı yapacak")
[COLOR="DarkOrange"]'Mesaj olarak "B" sutunundaki döngü satırındaki ismi ve Bugün işbaşı yapacak uyarısını ver.[/COLOR]

End If
[COLOR="DarkOrange"]'If şartının sona erdiği komutu[/COLOR]

Next
[COLOR="DarkOrange"]'For döngüsü sona erdi komutu[/COLOR]

 

[nOthinqs]

Hemen Hemen anladım hocam dediğiniz çok mantıklı " Koşullu Biçimlendirme " işimi görüyor onunla idare edicem. Peki hocam; Hatırlatma verdi bana bugün B sütunu işe başlıcak dedi ben bunu erteme şeklindek yapabilirmiyim.

Örneğin ; Ertele " 15 Dakika" veya "09.45 " ' te tekrar hatırlat gibi.

 

[vardar07]

Bir şeyler yapmaya çalıştım. İkinci açılan kutuya 59 dakikaya kadar yazabilirsin.Eğer 10 dakikadan aşağı yazmak istersen örnek olarak 09 yazman lazım.
Aşağıdakini eskisi ile değiştirip denermisin.

Sub uyar()
For i = 2 To Sheets("ANASAYFA").Cells(Rows.Count, "H").End(3).Row
If CDate(Cells(i, "H").Value) = Date Then
 cevap = MsgBox("" & Cells(i, "B") & "  Bugün işbaşı yapacak")
End If
Next
cevap = MsgBox("Erteleme istermisiniz", vbYesNo, "MV")
If cevap = vbYes Then
ad = InputBox("mv:", "InputBox'ın başlığı", "Ertelenecek Dakika Giriniz", 1440, 1440)
b = TimeValue("00:" & ad & ":00")
Application.OnTime Now + b, "uyar"
End If
End Sub

 

[nOthinqs]

Mükemmel ötesi çok teşekkürler. Bu uyarılarda benim pcdemi ses çıkmıyor vbCritical şeklinde birşey koymadığımız için mi ?

 

[vardar07]

Onun için ayrı bir kod kullanmak gerekir. Akşam eve gidince bulabilirsem eklerim.

 

[nOthinqs]

Tekrardan çok teşekkür ediyorum; 3 problem kalmıştı 1'ini siz 1'i Hüseyin hocam çözdü. Fikir vermeniz açısından sizede şu konuyu sormak istiyorum. En azından olabilitesi yoksa diye direk projeyi bu şekilde kapatmam gerekicek.

http://www.excel.web.tr/f48/makro-ile-ilgili-soru-t147094/sayfa2.html

İncelermisiniz.

Tekrar buraya ekleyip kurallara aykırı davranmak istemiyorum.
Hakkınızı helal edin hocam

 

[vardar07]

Dosyayı incelermisin. Korhan beyin 2010 yılı çalışmasından alıntı ile yapılmıştır.

 

[nOthinqs]

Tamam hocam çok teşekkür ederim, vaktinizi ayırdınız.