• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan Amaxx
  • Başlangıç tarihi Başlangıç tarihi
Katılım
26 Kasım 2007
Mesajlar
308
Excel Vers. ve Dili
Excel 2003
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?
 
Örnek dosya ve sorularım Fİyat dosyası içindedir.
 

Ekli dosyalar

Aşağıdaki kodu dener misiniz ?
Not:Kodlar ilk elli satır içindir.
Kod:
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
 
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.....
 
Geri
Üst