KOŞULLU YAZI RENGİ DEĞİŞTİRME

[ekremmk]

Herkese iyi günler. Bir sorunum var umarım yardımcı olabileceğiniz bir durumdur.
Örneğin A1 hücresi doluysa B8 hücresinin yazı rengini siyah yap eğer boşsa beyaz yap gibi bir kod yazılabilir mi?

 

[Orion1]

Sayfa modülüne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target.Value <> "" Then
    Range("B8").Font.Color = vbBlack
    Else
    Range("B8").Font.Color = VBA.vbWhite
End If
    
End Sub

 

[ekremmk]

Teşekkür ederim ilginiz için

 

[anemis]

B8 hücresine koşullu biçimlendirme uygulayabilirsiniz. makro ihtiyacınız olmaz.

 

[ekremmk]

aynı sayfada birden fazla kez bu işlemi yapmam lazım kendim gerisini ayarlarım diye düşünmüştüm ama beceremedim. aynı sayfada örneğin A9 B5 arasında da benzer bir ilişki kurmam gerekiyor. İki kere yorduğum için kusura bakmayın

 

[ekremmk]

B8 hücresine koşullu biçimlendirme uygulayabilirsiniz. makro ihtiyacınız olmaz.

Denedim ancak başka bir hücreyle bağlantısını kuramadım

 

[Orion1]

aynı sayfada birden fazla kez bu işlemi yapmam lazım kendim gerisini ayarlarım diye düşünmüştüm ama beceremedim. aynı sayfada örneğin A9 B5 arasında da benzer bir ilişki kurmam gerekiyor. İki kere yorduğum için kusura bakmayın

Buradan bir şey anlaşılmıyor.Örnek dosya eklerseniz bakabilirim.

 

[ekremmk]

Ekledim hocam

 

[Orion1]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value <> "" Then
    Range("B" & Target.Row & ":I" & Target.Row).Font.Color = vbBlack
    Else
    Range("B" & Target.Row & ":I" & Target.Row).Font.Color = VBA.vbWhite
End If
    
End Sub

 

[ekremmk]

teşekkür ederim hocam ^_^

 

[hardewil]

benim sorumda benzer bir durum ama sayfa ile ilgili
somut hali öğrenci listesi var. Öğrencilerin kendine ait sayfaları var. İhtiyacım olan öğrenci sayfalarındaki belirli hücreler doldurulmamış ise öğrenci listesinde sarı ile gözüksün
BUNU
=EĞER(VE('ahmet'!$A10:$L24="";'ahmet'!$A27:$L41="";'ahmet'!$A44:$L58="";'ahmet'!$A61:$L75="");"DOĞRU";"YANLIŞ")
bu formülle koşullu biçimlendirme yapabiliyorum.
ARTI MAKRO İLE
Cells.Find(What:="ahmet", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=EĞER(VE('ahmet'!$A10:$L24="""";'ahmet'!$A27:$L41="""";'ahmet'!$A44:$L58="""";'ahmet'!$A61:$L75="""");""DOĞRU"";""YANLIŞ"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select

bu şekilde yapabiliyorum. Ancak sadece ahmet'e koşullu biçimlendirme eklemiş oluyorum. Bu durumda bir sürü öğrenci ve sayfası var. sadece ahmet değilde öğrenci listesinde B sütununda yazan her öğrenci ismine sayfa adıyla eşleştirip koşullu biçimlendirme atasın
yardım ederseniz sevinirim