Farklı tablolardan eşleştirmeli koşullu biçimlendirme

[Busedo]

Merhabalar.
Örnek Dosya;

İndir Profil Takip Planı (28 22) Taslak

Dosyayı indir Profil Takip Planı (28 22) Taslak

dosya.co

Elimde 2 adet farklı tablo var. İlk tabloda excel'de bir şekil oluşturup, hücrelere isim verdiğim bir tablom var. Diğer sheette ise bunlardan kaç adet olduğunu tuttuğum başka bir tablom var. Burada benim yapmak istediğim şey;

Örneğin Listenin olduğu tablodan AL-B-Y-01 - 59 adet var. Toplam verilen kısmında bu yazan adet kadar, ana tablomda bu isimdeki tüm hücrelerin belli bir renge boyanmasını istiyorum. 59 adetten 40ı verilmiş ise 40 adet boyansın gibi.

yada bir şarta bağlı olarak yine örneğin;

59 adetin karşısına verildi, verilmedi bekliyor diye 3 senek koyup bu 3 seçeneğin de farklı renklerle ana tablodaki AL-B-Y-01 leri boyamasını istiyorum. Verildiyi işaretlediğimde mavi verilmediyi işaretlediğimde kırmızı bekliyorda sarı gibi.

ikisinide yapabilir miyim bilmiyorum ama 2.söylediğim benim için daha önemli, bunu nasıl yapabilirim acaba?

Ana tablo resmi


Liste Resmi

 

[Busedo]

Bu konuda yardımlarınızı bekliyorum

 

[Busedo]

Güncel

 

[ÖmerFaruk]

Yeni üyesiniz. O yüzden yazma gereği duydum.

Örnek dosyanız olunca çözüm için uğraşacak arkadaşa kolaylık sağlarsınız.

İstediğiniz 2.çözüm olan Verildi/Verilmedi/Bekliyor seçeneğinin de olduğu ÖRNEK EXCEL FORMATINDAKİ DOSYANIZI
harici dosya paylaşım sitesine yükleyip linkini buradan paylaşabilirsiniz.

 

[Busedo]

Öncelikle bilgilendirmeniz için teşekkür ederim. Dosyayı aşağıdaki linkten indirebilirsiniz.

İndir Profil Takip Planı (28 22) Taslak

Dosyayı indir Profil Takip Planı (28 22) Taslak

dosya.co

Yapmak istediğim şeyi tekrar anlatacak olursam;

Profiller sheetinde bir profil listesi var, en sağında da; İmalat Çizim, İmalat, Sevkiyat, Montaj olarak 4 sütun var. Benim burada yapmak istediğim. Örneğin İmalat Çizim'de verildi olarak seçtiğimde Profil adı olan AL-B-D-01'i diğer sheet'lerde bulup renklendirmesi. Aynı şekilde diğerlerininde seçildiğinde, örneğin imalat'ı yapıldı-yapılmadı seçtiğimde yine gidip diğer sheetlerde bulup renklendirmesi

Bunu koşullu biçimlendirme ile ben yatım ama bunu yaparken formulleri tek tek tüm hücrelere aşağıdaki gibi yazmam gerekiyor. Bunu daha kolay bir şekilde yapabilmenin yollarını arıyorum.

Şimdiden yardımlarınız için teşekkür ederim

Benim çalışmamın örneğim

 

[ÖmerFaruk]

Dosyanıza Renkler isimli bir sayfa ekleyin.
4 durum ve iki seçenek için renklerinizi elle seçerek belirleyin.
Ben aşağıdaki gibi denedim.


Excel dosyanızın KOD sayfasında boş bir modüle içine aşağıdaki kodu kopyalayın

Sub ProfilRenklendir()
    Dim Sh As Worksheet, Renkler As Range, Bul As Range
    Dim Veri, Name1 As String, Name2 As String
    Dim i As Integer, k As Integer
    For Each Sh In Worksheets
        If InStr(1, Sh.Name, "Cephe") > 1 Then Sh.Cells.Interior.Color = xlNone
    Next Sh
    Veri = Worksheets("Profiller").Range("A1").CurrentRegion.Value
    Set Renkler = Worksheets("Renkler").Range("A2:D3")
    Name1 = "B Blok "
    Name2 = " Cephe"
    For i = 2 To UBound(Veri) - 2
        For k = 0 To 3
            Set Bul = Renkler.Find(Veri(i, UBound(Veri, 2) - k), , xlValues)
            If Not Bul Is Nothing Then
                Set Sh = Worksheets(Name1 & Veri(i, 1) & Name2)
                Application.ReplaceFormat.Interior.Color = Bul.Interior.Color
                Sh.Cells.Replace What:=Veri(i, 2), Replacement:=Veri(i, 2), ReplaceFormat:=True
                Exit For
            End If
        Next k
    Next i
    Set Bul = Nothing: Set Sh = Nothing: Set Renkler = Nothing: Erase Veri
    Name1 = vbNullString: Name2 = vbNullString: i = Empty: k = Empty
End Sub

Profil sayfanıza bir Buton ekleyin.


Oluşturduğunuz bu butona Makro Ata diyerek verdiğim kodu seçin.
Dosyanızı Makro İçerebilen (xlsm) dosyası olarak kaydedip makrolarınızı etkinleştirin.

 

[Busedo]

Cevabınız için çok ama çok teşekkür ederim.

Sabah ilk işim dediklerinizi yapıp test etmek oldu ve çalıştığını görünce acayip mutlu oldum. Beni inanılmaz bir zahmetten ve dertten kurtardığınız için tekrar teşekkür ederim.
Bu kodu daha sonraki projelerde de kullanmak üzere zamanla değiştirmeye çalışacağım, umarım becerebilirim

Tekrardan ilginiz için teşekkür ederim,.