Günü geleni uyarması

[sandokan]

istediğim şey su
dogum günü gelenin
alanının renklesmesini istiyorum mesala bugun 14.08.2009
14.08.2009 da dogum günü gelenı bugunden renklendirmesini UYARI BÖLÜMÜNE "DOGUM GÜNÜ" YAZMASINI İSTİYORUM
istiyorum yada uyarmasını
mesala aynur gkl dogum günü 14.08.2009 vb..

 

[Orion1]

Renklendirme için koşullu biçimlendirme ,Uyarı içinde formül kullandım.
Dosyanız ekte.

 

[sandokan]

Teşekkür ederim evren gizlen eline saglık cok güzel olmus

 

[Orion1]

Teşekkür ederim evren gizlen eline saglık cok güzel olmus

Rica ederim.
İyi çalışmalar.Eh artık bir İzmit pişmaniyesi yollarsınız.

 

[sandokan]

Lsiteye ek bişey ..istedgim şey su yandaki listede
dogumj günü olanları buraya süzerek getirmek
mümkünmü dosya ekte.

Telefonlar kısmındaki dogum günü yukardaki tarihe göre
buraya getirmek istiyorum

canın saolsun evren gizlen
ozel mesajla adresini gonderırsen gönderirim tabiki..yemeyen pişman zaten

 

[Orion1]

Teşekkür ederim.
Yemiş kadar oldum
Dosyanız ekte.

Sub dogumgunusuz()
Dim i As Long, sat As Long
Sheets("BUGÜN DOGANLAR").Select
If Not IsDate(Range("A1").Value) Then
    MsgBox "A1 Hücresinde geçerli bir tarih yok..", vbCritical, "UYARI"
    Range("A1").Select
    Exit Sub
End If
Application.ScreenUpdating = False
Range("A5:F65536").Clear
sat = 5
With Sheets("telefonlar")
    For i = 2 To .Cells(65536, "B").End(xlUp).Row
        If Month(.Cells(i, "D").Value) = Month(Range("A1").Value) And _
        Day(.Cells(i, "D").Value) = Day(Range("A1").Value) Then
            Cells(sat, "B").Value = sat - 4
            Cells(sat, "C").Value = .Cells(i, "B").Value
            Cells(sat, "D").Value = .Cells(i, "C").Value
            Cells(sat, "E").Value = .Cells(i, "E").Value
            sat = sat + 1
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "Doğum günleri çıkarıldı."
End Sub

 

[sandokan]

muhtesem bişey evren gizlen
teşekkür ederim..

ama konuyu actın adresini bekliyorum

 

[Orion1]

Koşullu biçimlendirmeyi A2:F11 aralğına kadar yaptım.Siz son satırı koyyalayıp istediğiniz kadar yer seçip sağ tıklayıp özel yapıştırda biçimleri seçip yapıştırmalısınız.