Koşula göre uyarı

[attrd]

selamun aleyküm arkadaslar bana yardımcı olurmusunuz
exelde yenİyım
hastanede ılacları takıp ettıgım bır listem var(stok 112) (sayfa 1 de)ben bunu kosullu bıcımlendırme ıle düzenledim ilaçların son kullanma tarıhleri G1 hücresine uyuyorsa kırmızı H1 hücresine uyuyorsa sarı I1 stununa uyuyorsa hücre yesil oluyor yıne yantaraftakı ilaçlarda başka ambulansın onlarda uyuyorsa hucrelere gore renkelnıyor. benım sızden ıstedıgım son kullanma tarihi kırmızı oldugu hücrenin ilaç ismininde otomatık kırmızı olup yanıp sönerek alarm (ses) vermesi formda aradım fakat exelde yenı oldugum ıcın kendim yapamadım makro ıle yapılıyormuş galıba fakat ben uyarlayamadım bu listeme yardımcı olursanın cok tesekur ederım SADECE SON KULLANMA TARİHİ KIRMIZI OLAN HÜCRENİN KARSILIGINDAKI İLAÇ İSMİNİN ALARM VE IKAZ VERMESI YETERLİ OLACAK

 

[Milady Meriç]

Başlığınız çok yaratıcı ama maalesef forum kurallarını uymuyor.

Lütfen değiştirir misiniz ?

 

[snx111]

İstediğiniz Şey Exceli fazlasıyla kasacak ve durmasına Sebep olacaktır.!!!
bir formda listelenmiş görünüm Yeterli olurmu ?

 

[attrd]

Bana yatrdımcı olan yok mu

 

[snx111]

Sadece G hücresine eşitse mi ?

 

[snx111]

Ahanda dosyanız Hazır

Tarihler ve koşullu biçimlendirmeler karıştı gitti ona göre !!!!!!!

 

[attrd]

Evet sadece g1 hücresine esitse çünkü ilk yaklasan tarih o olacak digerleri sarı ve yesil bir sonrakı yaklasan tarıhler oılacak

 

[attrd]

Hocam eline sağlık teşekkür ederimm saolasın katkılarından dolayı 112 olarak tesekur edıyorum

 

[Murat OSMA]

Module1'de alternatif olarak şu kodları da kullanabilirsiniz;

Sub tarih_ara()
    Dim evn As Range
    For Each evn In Range("H8:H" & Range("H65536").End(3).Row)

        If Not IsEmpty(evn.Value) And evn.Value < Range("G1").Value Then
            UserForm1.ListBox1.AddItem evn.Address(0, 0)
        End If

        If Not IsEmpty(evn.Offset(0, 9).Value) And _
            evn.Offset(0, 9).Value < Range("P1").Value Then
            UserForm1.ListBox2.AddItem evn.Offset(0, 9).Address(0, 0)
        End If

    Next evn
End Sub

 

[snx111]

offset aklıma gelmemişti

 

[Murat OSMA]

Tahmin etmiştim..
Ben matbaacı olduğum için, ilk önce aklıma ofset geliyor.