Arka Plan Rengi İle Beraber yazdırmak

[Murat_00]

Merhaba arkadaşlar ekli bir dosya ile anlatmaya çalıştım yapmak istediğim kısaca şu indis kaçıncı formülü ile veriye karşılık gelen değeri buluyoruz ben o bulduğu verinin arka plandaki dolgu rengi ile bulabilmesi için nasıl bir formül yazmalıyım yada böyle bir şey mümkünmü acaba yardım ederseniz sevinirim?

 

[hamitcan]

Aşağıdaki kodu "Sayfa2" nin kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    s = WorksheetFunction.Match(Target, Sayfa1.[a1:a10], 0)
    Target.Offset(0, 1).Interior.ColorIndex = Sayfa1.Cells(s, 1).Interior.ColorIndex
End Sub

 

[Murat_00]

Hocam Çok teşekkür ederim yanlız bunu kod ile değilde indis kaçıncı yada topla.çarpım formülleri ile yapabilmemizin bir yolu varmı acaba?

 

[hamitcan]

Formülle yapılabileceğini zannetmiyorum.

 

[Murat_00]

teşekkürler hocam