Başvurulan hücrenin biçimini formülün bulunduğu hücreye uygulama

[dhakan]

Merhaba


B3 hücresindeki formül sonucu bulunan değerin başvurduğu hücrenin dolgu renginde olmasını nasıl sağlarım.

 

[Ömer]

Merhaba,

Bu işlem için makro gerekir.

Makro dışında çözüm veri düzeninize bağlıdır.

Örneğin tabloda kullanılan renklerin toplamı 3 müdür?

Renklerin yeri sabit midir?

Gelecek cevabınıza göre gerekli düzenlemeyi yapıp size geri dönüş yaparım.

.

 

[dhakan]

Merhaba

Renklerin yerleri sabit tabloda olduğu gibi , teşekkürler

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

B1,B2,B3 hücreleri üzerinde gezindiğinizde kod çalışacaktır.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Hücre As Range, BUL As Range, ADRES As String
    On Error GoTo Son
    If Intersect(Target, Range("B1:B3")) Is Nothing Then Exit Sub
    If Application.CutCopyMode = xlCopy Then Exit Sub
    Set Hücre = Target
    If Range("B3") <> "" Then
        Range("IV1").Copy
        Range("B3").PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
        Application.EnableEvents = False
        Set BUL = Cells.Find(Range("B3").Value, , , xlWhole)
        If Not BUL Is Nothing Then
        ADRES = BUL.Address
            Do
                If Cells(2, BUL.Column) = Range("B1") Then
                    If Cells(BUL.Row, "E") = Range("B2") Then
                        BUL.Copy
                        Range("B3").PasteSpecial Paste:=xlPasteFormats
                        Application.CutCopyMode = False
                        Hücre.Select
                    End If
                End If
            Set BUL = Cells.FindNext(BUL)
            Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
    End If
Son: Application.EnableEvents = True
End Sub

 

[Merhum İdris SERDAR]

Merhaba


B3 hücresindeki formül sonucu bulunan değerin başvurduğu hücrenin dolgu renginde olmasını nasıl sağlarım.

.

Dosyanız ekte.

.

 

[dhakan]

Merhaba

Desteğiniz için teşekkürler , mükemmel çalışıyor.

 

[İhsan Tank]

Merhaba


B3 hücresindeki formül sonucu bulunan değerin başvurduğu hücrenin dolgu renginde olmasını nasıl sağlarım.

benden de iki alternatif
sayfanın kod bölümüne kopyalayın

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
Range("B3") = WorksheetFunction.Index(Range("F3:Z22"), _
WorksheetFunction.Match(Range("B2"), Range("E3:E22"), 0), _
WorksheetFunction.Match(Range("B1"), Range("F2:Z2"), 0))
Range("B3").Interior.Color = WorksheetFunction.Index(Range("F3:Z22"), _
WorksheetFunction.Match(Range("B2"), Range("E3:E22"), 0), _
WorksheetFunction.Match(Range("B1"), Range("F2:Z2"), 0)).Interior.Color
End Sub

bu kod formülü de hücreye yazmadan sonuç verir

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
Range("B3").Interior.Color = WorksheetFunction.Index(Range("F3:Z22"), _
WorksheetFunction.Match(Range("B2"), Range("E3:E22"), 0), _
WorksheetFunction.Match(Range("B1"), Range("F2:Z2"), 0)).Interior.Color
End Sub

bu ise formül hücrede olsa bile boyama yapar

 

[dhakan]

Merhaba

Verdiğiniz kodlar için teşekkürler , hepsini denedim ve istediğim sonucu veriyor.

 

[İhsan Tank]

Merhaba

Verdiğiniz kodlar için teşekkürler , hepsini denedim ve istediğim sonucu veriyor.

rica ederim
:yazici:

 

[Ömer]

Merhaba

Renklerin yerleri sabit tabloda olduğu gibi , teşekkürler

Bir alternatif de benden olsun.

Dosyada renklerin yeri değil, renkler sabit tutulmuştur.

.