Formülde geçen dosya adına göre Koşullu Biçimlendirme

[Amaxx]

Merhaba Arkadaşlar, C sütununda örneğin "Masalar.xls" dosyasından ve "Sandalyeler.xls" dosyasından birim fiyatlar gelmektedir. Bu
hücrelerde bulunan formüllü hücrelerin içerisinde örneğin "Masalar.xls" dosya adı geçen hücreleri farklı renklendirmek için ne yapmak gerekir?

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[Amaxx]

Örnek dosya ve sorularım Fİyat dosyası içindedir.

 

[hamitcan]

Ekli dosyanın içi boş.

 

[Amaxx]

Özür Dİlerim yeniden yolluyorum...

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?
Not:Kodlar ilk elli satır içindir.

Sub Boya()
    Columns(4).Interior.Pattern = xlNone
For i = 2 To 50 
10
    m = 0
    s = 0
    On Error Resume Next
    m = WorksheetFunction.Search("MASALAR", Cells(i, "d").Formula)
    s = WorksheetFunction.Search("SANDALYELER", Cells(i, "d").Formula)
    On Error GoTo 10
    If m > 0 Then
        Cells(i, "d").Interior.Color = vbRed
    ElseIf s > 0 Then
        Cells(i, "d").Interior.Color = vbBlue
    End If
Next
End Sub

 

[Amaxx]

Sn. Hamitcam çok teşekkürler yazdığınız kodu asıl dosyama uyarladım. Tam istediğim gibi oldu. AYrı ayrı sheetlerin satırlarını toplayınca aşağı yukarı 4500 satır ediyor. Ve bu dosyam 1' den fazla Elinize zihninize sağlık.....