Sayfa isimlerine göre koşullu Biçimlendirme

[hasankardas]

Merhabalar,
Var olan sayfaları koşullu biçimlendirme ile nasıl belirtebilirim. Tablo örnektir.
sayfa isimlerini alıp eşleştirme yolu ile yapmaya çalıştım ama çözüme ulaşamadım.
Teşekkürler iyi çalışmalar

 

[AdemCan]

Merhaba, örnek kod.
A sütunundaki verilerden sayfa isimlerine eşit olan varsa, hücreyi sarı renk ile işaretler.
Sayfalar isimli sekmenin kod bölümüne ekleyip çalıştırınız.

Sub test()
Dim sayfa As Worksheet, son As Long
Cells.Interior.Color = xlNone
son = Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To son
    For Each sayfa In Worksheets
        If Cells(x, 1) = sayfa.Name Then
            Cells(x, 1).Interior.Color = vbYellow
        End If
    Next
Next x
End Sub

 

[hasankardas]

Merhaba, örnek kod.
A sütunundaki verilerden sayfa isimlerine eşit olan varsa, hücreyi sarı renk ile işaretler.
Sayfalar isimli sekmenin kod bölümüne ekleyip çalıştırınız.

Sub test()
Dim sayfa As Worksheet, son As Long
Cells.Interior.Color = xlNone
son = Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To son
    For Each sayfa In Worksheets
        If Cells(x, 1) = sayfa.Name Then
            Cells(x, 1).Interior.Color = vbYellow
        End If
    Next
Next x
End Sub

teşekkür ederim

 

[AdemCan]

Rica ederim.

 

[Levent Menteşoğlu]

Bu istediğiniz formüllerle de yapılabilir. Koşullu biçimlendirmeye aşağıdaki formülü yazarsanız olmayan sayfaları kırmızı ile renklendirir.

=EHATALIYSA(DOLAYLI(A2&"!A1"))