• 24-02-2023, 16:26:05
    #1
    Merhabalar excelde 2 sayfa açtım data aayfasi ve ürün diye data sayfasında renkler var mavi sarı beyaz yesil vb. Ve urun dataları var. Ürün sayfasına örnek kılıf yazdığımda hemen onun karşısına açıklamaları vs ürün rengi vs geliyor hepsi tamam tek sorun ürün sayfasina ürün rengi nin ismini cekerken arka plan renginide çekmek istiyorum bunu nasıl yapabilirim.
  • 24-02-2023, 16:30:49
    #2
    Merhaba,
    Makro ile yapabilirsiniz. Makro kodu;

    Sub DüşeyaraRenklendir()
    For Each hücre In Selection
        If Left(hücre.Formula, 8) = "=VLOOKUP" Then
            değer = Split(Split(hücre.Formula, "(")(1), ",")(0)
            aralık = Split(Split(hücre.Formula, "(")(1), ",")(1)
            sütun = Split(Split(hücre.Formula, "(")(1), ",")(2)
        
            On Error GoTo hata:
            hücre.Interior.Color = Range(aralık).Find(Range(değer)).Offset(0, sütun - 1).Interior.Color
        End If
    sonraki:
    Next
    Exit Sub
    hata:
    değer = Replace(değer, """", "")
    hücre.Interior.Color = Range(aralık).Find(değer).Offset(0, sütun - 1).Interior.Color
    GoTo sonraki
    End Sub