Bulunan sayfada renklendirme

[filizcandan]

Merhabalar .
Forumda uzunca süre aramama rağmen sorumun cevabını bulamadım.
Benim bir excel dosyasında 4 adet sayfam var. 1 sayfam pivot raporu diğer sayfalarım başka excel sayfalarından veri alıyor. Pivot raporunda bir müşteriyi tıkladığımda diğer sayfalarda onunla ilgili bilgilere ulaşılıyor.

sorum ; Pivot raporunda müşteri tıkladığımda renkleniyor. Fakat diğer sayfalara gittiğinde oradada bulduğu bilgiyi nasıl renklendirebilirim.

Örnek dosya olarak gönderiyorum. Müşteriyi tıkladığınızda renkleniyor ama gittiğim sayfada renklenmedi.

Lütfen acil yardım...

 

[hamitcan]

Umarım doğru anlamışımdır.İligili kodu, aşağıdaki ile değiştirin.

Sub bull()
ind = UserForm1.ListBox1.ListIndex
ara = ActiveCell.Value
Set sh2 = Sheets(ind + 2)
Set rg2 = sh2.[b:b]
sh2.[b3:b1000].Interior.ColorIndex = xlNone
On Error GoTo f3
bul2 = Application.WorksheetFunction.Match(ara, rg2, 0)
sh2.Select
sh2.Cells(bul2, 2).Select
Selection.Interior.ColorIndex = 6
GoTo f4
f3: MsgBox "Bu sayfada " & ara & " adlı veri bulunmamakta", vbCritical, "UYARI"
f4:
Set sh2 = Nothing
Set rg2 = Nothing
End Sub

 

[filizcandan]

üzgünüm

üzgünüm olmadı ilk sayfanın kod kısmına yazdım ama ne arama yapıyor nede renklendir.

 

[hamitcan]

Bu kodu sayfanın içine eklemeyecektiniz. Userform içinde bulunan aynı isimli kodu, gönderdiğim kod ile değiştirmeniz gerekiyordu.
Bununla birlikte, anladığım kadarıyla, her sayfada aktif hücre seçildiğinde renklenmesini istiyorsun. Eğer son olarak yazdığım gibi bir şey ise istediğiniz, farklı bir uygulama yapmamız gerekecek.