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

Katılım
30 Aralık 2022
Mesajlar
5
Excel Vers. ve Dili
Türkçe
Merhabalar.
Örnek Dosya;


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
 
Son düzenleme:

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.
 
Katılım
30 Aralık 2022
Mesajlar
5
Excel Vers. ve Dili
Türkçe
Öncelikle bilgilendirmeniz için teşekkür ederim. Dosyayı aşağıdaki linkten indirebilirsiniz.


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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.
242089

Excel dosyanızın KOD sayfasında boş bir modüle içine aşağıdaki kodu kopyalayın
C++:
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.
242090

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.
 
Katılım
30 Aralık 2022
Mesajlar
5
Excel Vers. ve Dili
Türkçe
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,.
 
Üst