Çözüldü İstenilen harfi içeren hücrenin hemen altındaki hücreleri biçimlendirme

[covianus]

Merhaba, Excel'de bir sütunda aşağıdaki gibi alt alta verilerim var.
A
B
B
C
X
B
B
C
D
X
C
A
B
D
İstediğim, örnek olarak kalın ve renkli olarak işaretlediğim biçimde olacak şekilde sütunun ilk hücresini ve her "X" harfi içeren hücrenin hemen altındaki hücreleri renklendirmek istiyorum. Bunu koşullu biçimlendirme kullanarak nasıl bir formül ile yapabilirim yardımcı olur musunuz ?

 

[Bilgemen]

Formül olarak bilmiyorum fakat VBA olarak aşağıdaki gibi deneyebilirsiniz

 

[Bilgemen]

Sub UygulaKosulluBicimlendirme() Dim ws As Worksheet Dim cell As Range Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını buraya göre güncelleyin For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) If Left(cell.Value, 1) = "O" And cell.Offset(1, 0).Value Like "*X*" Then cell.Font.Color = RGB(255, 165, 0) ' Turuncu cell.Font.Bold = True End If Next cell End Sub

 

[Greenblacksea53]

A1 hücresine

=EĞER(A1<>"";1;0)

biçimlendirme kısmına yazıp biçiminizi ayarlayın
A3 hücresine

=EĞER(A2="X";1;0)

yazıp biçimlendirmenizi yazıp biçimini ayarlayın

 

[covianus]

Sub UygulaKosulluBicimlendirme() Dim ws As Worksheet Dim cell As Range Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını buraya göre güncelleyin For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) If Left(cell.Value, 1) = "O" And cell.Offset(1, 0).Value Like "*X*" Then cell.Font.Color = RGB(255, 165, 0) ' Turuncu cell.Font.Bold = True End If Next cell End Sub

Yanıtınız için teşekkür ederim, kodu denedim ama çalıştıramadım.

 

[covianus]

A1 hücresine

=EĞER(A1<>"";1;0)

biçimlendirme kısmına yazıp biçiminizi ayarlayın
A3 hücresine

=EĞER(A2="X";1;0)

yazıp biçimlendirmenizi yazıp biçimini ayarlayın

Yanıtınız için teşekkür ederim , formülü uyguladım ve X yazan hücreleri renklendirdim. Şimdi bunun nasıl X içeren hücrelerin hemen altındaki hücreyi renklendirmesini sağlayabilirim ?

 

[Greenblacksea53]

Dosyanızı yükleme sitelerine atarsanız yardımcı olalim, kod yazan yapacaktı,
A1 hücresini seçili iken biçimlendirmeye gelin Yeni Kural deyip
=EĞER(A1<>"";1;0) yazıp biçimlendirme renginizi ayarlayıp ok deyin
Geri kalan hücreleri seçin örnek A2 den A50 hücrelerini seçip iken biçimlendirmeye gelin yeni kural deyip
=EĞER(A1="X";1;0) yazın ve biçimlendirmenizi ayarlayın.