• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tarih Yaklaştığında Uyarı Penceresi

M

maverick_tr

Katılım
13 Temmuz 2006
Mesajlar
3
Excel Vers. ve Dili
2010 tr
Merhaba
Excelde yapmam gereken bir tabloda sıkıntı yaşamaktayım.

Ekteki Tabloda yer alan Q sutunundaki tarihlerden herhangi birilerinden günümüz tarihine 5 ve 10 gün kala B sutunundaki kodları içeren uyarı kutucuğu verebilen bir kod yafa formulaşsyon oluşturmak istiyorum bu konuda yardımlarınızı beklemekteyim.

Şimdiden teşekkür ederim.
 

Ekli dosyalar

merhaba
şöyle bişey olabilir mi?

Kod: 
Sub auto_Open()
With Application
.Visible = True
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("UYARISISTEMI").Range("q65536").End(3).Row
If tarih + 5 <= Format(Cells(i, 17), "dd.mm") Then
mesaj = "KALIBRASYON GUNU GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj
.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub

not:
çalışma sayfanızın adını değiştiriniz!
Sheets("UYARISISTEMI")
 
Selamlar,
hocam ben formülü uygulamaya çalıştım fakat hata veriyor.
tabloya uygulayabilirmisiniz.

teşekkür ederim
 
Oldu hocam eline sağlık

teşekkür ederim
 
yanlız listenin hepsini veriyor
sadece 1 hafta kalanlar ve günü geçenleri listeletebilirmiyiz.
teşekkür ederim
 
Makrosuz Takip

Merhabalar,
Çalıştığım yerde kalibrasyon takibini ben yapıyorum. Kendi kullandığım dosyayı ekliyorum, umarım işinize yarar. Makrosuz bir çözüm olsa da gayet kullanışlı diye düşünüyorum. İstediğiniz gibi, kalibrasyon süresinin bitimine 7 gün ve daha kısa zamanı olanlar ile süresi geçenleri listenin sonunda görebilirsiniz. Ayrıca, "O1" hücresine yazacağınız farklı bir rakam ile süre bitimine kaç gün kala uyarı vermesini istiyorsanız onu ayarlayabilirsiniz. Farklı sürelerde haber vermesini isterseniz "O" sütununda yer alan hücrelerdeki formülleri de değiştirebilirsiniz.
 

Ekli dosyalar

Son düzenleme:
seismic' Alıntı:
Merhabalar,
Çalıştığım yerde kalibrasyon takibini ben yapıyorum. Kendi kullandığım dosyayı ekliyorum, umarım işinize yarar. Makrosuz bir çözüm olsa da gayet kullanışlı diye düşünüyorum. İstediğiniz gibi, kalibrasyon süresinin bitimine 7 gün ve daha kısa zamanı olanlar ile süresi geçenleri listenin sonunda görebilirsiniz. Ayrıca, "O1" hücresine yazacağınız farklı bir rakam ile süre bitimine kaç gün kala uyarı vermesini istiyorsanız onu ayarlayabilirsiniz. Farklı sürelerde haber vermesini isterseniz "O" sütununda yer alan hücrelerdeki formülleri de değiştirebilirsiniz.
Genişletmek için tıkla ...

farklı bir hatırlatma için ben de kullanacağım.emeğine sağlık.yalnız "KAL. GÖNDER" mesajını değiştirdiğimde kırmızı renk gidiyor.örnekteki gibi renkli olmasını istiyorum.yardımlarınız için teşekkürler
 
Koşullu Biçimlendirme

64kare' Alıntı:
farklı bir hatırlatma için ben de kullanacağım.emeğine sağlık.yalnız "KAL. GÖNDER" mesajını değiştirdiğimde kırmızı renk gidiyor.örnekteki gibi renkli olmasını istiyorum.yardımlarınız için teşekkürler
Genişletmek için tıkla ...

Merhaba,
Kullanabildiğinize sevindim. Bahsetmiş olduğunuz sorun koşullu biçimlendirmeden dolayı meydana geliyor. Hücrelerdeki koşullu biçimlendirmede istediğiniz şeyi yazarsanız eski haline dönecektir.
 
seismic' Alıntı:
Merhaba,
Kullanabildiğinize sevindim. Bahsetmiş olduğunuz sorun koşullu biçimlendirmeden dolayı meydana geliyor. Hücrelerdeki koşullu biçimlendirmede istediğiniz şeyi yazarsanız eski haline dönecektir.[/QUOT
teşekkürler.
Genişletmek için tıkla ...
 
Hatırlatma Menüsü Ekrana sığmıyor

uzmanamele' Alıntı:
merhaba
şöyle bişey olabilir mi?

Kod: 
Sub auto_Open()
With Application
.Visible = True
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("UYARISISTEMI").Range("q65536").End(3).Row
If tarih + 5 <= Format(Cells(i, 17), "dd.mm") Then
mesaj = "KALIBRASYON GUNU GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj
.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub

sayın hocam yukarıda vermiş olduğunuz komutlar güzel çalışıyor,Ancak sayfadaki bilgiler çok uzun olunca hatırlatma menüsü ekrana sığmıyor,Bu menüyü ekrana sığacak şekilde 2 veya 3 sıralı yazdırmak mümkün mü? Şimdiden teşekürler....
Genişletmek için tıkla ...
 
yukarıdaki kodu başka bi excele eklediğimde 2. satırdaki tüm isimleri veriyor.Yani exceli açınca çalışıyor ama tüm 2.sütundakileri çalıştırıyor.5 gün süresi önemsemiyor. Elfgnr bi deneyin isterseniz
 
Merhaba,

Tarih yaklaştığında uyarı ekranı vermesi makrosunu çalıştıramadım.
 
Son düzenleme:
Aşağıdaki kodları kullanabilirsiniz. "C" sütununa göre yaptım.
Kod: 
Sub auto_Open()
Dim SonSatir As Long
With Application
.Visible = True
tarih = Format(Now, "dd.mm")
SonSatir = Sheets("Hasta Takip").Range("B65536").End(3).Row
For i = 1 To SonSatir
If tarih + 5 <= Format(Cells(i, "C"), "dd.mm") Then 'Farklı sütun ise C harfini değiştirin.
mesaj = "RAPOR TARİHİ GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj
.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub
 
askm' Alıntı:
Aşağıdaki kodları kullanabilirsiniz. "C" sütununa göre yaptım.
Kod: 
Sub auto_Open()
Dim SonSatir As Long
With Application
.Visible = True
tarih = Format(Now, "dd.mm")
SonSatir = Sheets("Hasta Takip").Range("B65536").End(3).Row
For i = 1 To SonSatir
If tarih + 5 <= Format(Cells(i, "C"), "dd.mm") Then 'Farklı sütun ise C harfini değiştirin.
mesaj = "RAPOR TARİHİ GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj
.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub
Genişletmek için tıkla ...


Hocam Merhaba,
Kodu çalıştıramadım dosyanın son halini ekliyorum.

1-) C sutununda "bugünün tarihine" göre 7 gün kala uyarı ekranı açılacak

Tarihi yaklaşan isimin olduğu ilgili satırın tamamını koyu kırmızı yapması.


2-) ı sutununda "bugünün tarihine" göre 7 gün kala uyarı ekranı açılacak

Tarihi yaklaşan isimin olduğu ilgili satırın tamamını koyu morı yapması.
 
Son düzenleme:
Sayın canbey6161
Boş bir modüle kopyalayıp çalıştırdığın zaman RAPOR TARİHİ GELENLER diye uyarı peneresi geliyor.
Sayın askm' nin de eline sağlık
 
sirkülasyon' Alıntı:
Sayın canbey6161
Boş bir modüle kopyalayıp çalıştırdığın zaman RAPOR TARİHİ GELENLER diye uyarı peneresi geliyor.
Sayın askm' nin de eline sağlık
Genişletmek için tıkla ...

Merhaba
boş bir modülde çalıştığını biliyorum fakat tüm isimler yer almakta tarihi gelenler değil. ve dosya açılırken otomatik çalışması ve yukardaki mesajda bahsettiğim gibi 2 madde şeklinde işime yaramakta.

Sayın askm' nin da tabikide eline ve ilgisine sağlık
 
Aşağıdaki kod ile ilk işlemi yaparsınız. Ama hem 1. hem 2 renk nasıl olacak.
Kod: 
Sub auto_Open()
Dim SonSatir As Long
With Application
.Visible = True
Range("A1:J65000").Interior.Color = xlNone
tarih = CDate(Format(Now, "dd.mm.yyyy"))
SonSatir = Sheets("Hasta Takip").Range("A65536").End(3).Row
For i = 3 To SonSatir
tarih1 = CDate(Cells(i, "C") + 7)
If Cells(i, 2) <> emp And tarih <= tarih1 Then 'Farklı sütun ise C harfini değiştirin.
mesaj = "RAPOR TARİHİ GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
Range("A" & i & ":J" & i).Interior.Color = 255
End If
Next i
MsgBox mesaj & vbCr & msj


.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub
 
askm' Alıntı:
Aşağıdaki kod ile ilk işlemi yaparsınız. Ama hem 1. hem 2 renk nasıl olacak.
Kod: 
Sub auto_Open()
Dim SonSatir As Long
With Application
.Visible = True
Range("A1:J65000").Interior.Color = xlNone
tarih = CDate(Format(Now, "dd.mm.yyyy"))
SonSatir = Sheets("Hasta Takip").Range("A65536").End(3).Row
For i = 3 To SonSatir
tarih1 = CDate(Cells(i, "C") + 7)
If Cells(i, 2) <> emp And tarih <= tarih1 Then 'Farklı sütun ise C harfini değiştirin.
mesaj = "RAPOR TARİHİ GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
Range("A" & i & ":J" & i).Interior.Color = 255
End If
Next i
MsgBox mesaj & vbCr & msj


.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub
Genişletmek için tıkla ...


hocam tek renk olsun tamam ama sizden ricam "C" ile birlikte "I" sutununuda ilave edip #15 nolu mesajdaki dosyada yapıp ekleyebilir misiniz açılışta çalıştıramadım.
 
Sizin hatanız sanırım kodları sayfaya ekliyorsunuz. Module eklemeniz gerek.
Örnek ekte.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst