Koşullu biçimlendirme

[Garuramon]

Selam,
Arkadaşlar ekteki örnek dosyada koşullu biçimlendirmede aynı gün 4 tane 8 nöbeti var ise renkli yeşil dolgu ile gösteriyor.
aynı gün 3 tane 7 nöbeti olduğu zaman kırmızı dolgu ile gösterilmesine ihtiyacım var Excel bilgim sınırlı olduğu için çözüm önerilerinize ihtiyacım var.

 

[ÖmerBey]

E15:AI25 aralığını seçiniz.
Koşullu biçimlendirmeye aşağıdaki formülü uygulayıp biçim ayarlarını yapınız.

=VE(EĞERSAY(E$15:E$25;7)=3;E15=7)

 

[Garuramon]

E15:AI25 aralığını seçiniz.
Koşullu biçimlendirmeye aşağıdaki formülü uygulayıp biçim ayarlarını yapınız.

=VE(EĞERSAY(E$15:E$25;7)=3;E15=7)

Teşekkürler sorunsuz çalıştı.

aynı dosyada E14:AI23 arasındaki bir şey yazılmamış beyaz hücrelere koşullu biçimlendirme ile H.T yazabilirmi,yani boş bıraktığım yerlere.

 

[ÖmerBey]

Adı üstünde: "Koşullu Biçimlendirme"
Koşullu biçimlendirme ile sadece hücrelerde biçimlendirme yapabilirsiniz. Veri ekleyemezsiniz. Bunun için makro kullanabilirsiniz.

Sub KOD()
For Each hücre In Range("E14:AI23")
    If hücre.Value = "" Then hücre.Value = "H.T"
Next
End Sub

 

[Garuramon]

selam

Adı üstünde: "Koşullu Biçimlendirme"
Koşullu biçimlendirme ile sadece hücrelerde biçimlendirme yapabilirsiniz. Veri ekleyemezsiniz. Bunun için makro kullanabilirsiniz.

Sub KOD()
For Each hücre In Range("E14:AI23")
    If hücre.Value = "" Then hücre.Value = "H.T"
Next
End Sub

Rica etsem örnek dosyaya ekleyebilirmisiniz.

 

[ÖmerBey]

Rica etsem örnek dosyaya ekleyebilirmisiniz.

Maalesef şu an için yapamam ama aşağıdaki linkler size yardımcı olacaktır.
http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t59436.html
http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t136979.html
http://www.excel.web.tr/f157/sayfada-commandbutton-olu-turmak-ve-makro-atamak-resimli-t68065.html
http://www.excel.web.tr/f157/modul-ekleme-resimli-anlatym-t73353.html

İyi çalışmalar...

 

[Garuramon]

Adı üstünde: "Koşullu Biçimlendirme"
Koşullu biçimlendirme ile sadece hücrelerde biçimlendirme yapabilirsiniz. Veri ekleyemezsiniz. Bunun için makro kullanabilirsiniz.

Sub KOD()
For Each hücre In Range("E14:AI23")
    If hücre.Value = "" Then hücre.Value = "H.T"
Next
End Sub

Rica etsem kodu örnek dosyaya uygulayabilecek olan varmı.

 

[Garuramon]

Rica etsem kodu örnek dosyaya uygulayabilecek olan varmı.

Sorun çözüldü teşekkürler konu kapatılabilir.

 

[Ömer BARAN]

Merhaba.
Belgenizi açın alt tarafta sayfa adına fareyle sağ tıklayın ve "Kod Görüntüle"yi seçin açılan ekranda sol tarafta sayfanın adına çift tıklayın, sonra sağ taraftaki boş alana aşağıdaki kodu yapıştırın.
Böylece bahsettiğiniz hücre aralığında herhangi bir hücreyi seçip (bir şey yazarak veya yazmadan) hücreden ayrıldığınızda (başka herhangi bir hücreyi seçtiğinizde) isteğiniz gerçekleşecektir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [E14:AI23]) Is Nothing Then Exit Sub

For Each hücre In Range("E14:AI23")
    If hücre.Value = "" Then hücre.Value = "H.T"
Next

End Sub

 

[Garuramon]

Merhaba.
Belgenizi açın alt tarafta sayfa adına fareyle sağ tıklayın ve "Kod Görüntüle"yi seçin açılan ekranda sol tarafta sayfanın adına çift tıklayın, sonra sağ taraftaki boş alana aşağıdaki kodu yapıştırın.
Böylece bahsettiğiniz hücre aralığında herhangi bir hücreyi seçip (bir şey yazarak veya yazmadan) hücreden ayrıldığınızda (başka herhangi bir hücreyi seçtiğinizde) isteğiniz gerçekleşecektir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [E14:AI23]) Is Nothing Then Exit Sub

For Each hücre In Range("E14:AI23")
    If hücre.Value = "" Then hücre.Value = "H.T"
Next

End Sub

Ömer Bey,

çözümünüz başarılı teşekkür ederim.

 

[Garuramon]

Konunun kilitlenmesini rica ediyorum.