BİR SAYFADA YAZILAN, DİĞER SAYFALARDA VAR MI?

BİR SAYFADA YAZILAN, DİĞER SAYFALARDA VAR MI?

Örnek; Ankara, İzmir, Adana, Konya, Bursa  gibi herhangi bir sayfada yazılan bir değer diğer sayfaların herhangi birisinde yer alıyorsa, hücre sarı renkli olsun.

Sayfa adlarını yazdırmak için aşağıda kodları verilen KTF ( Kullanıcı Tanımlı Fonksiyon) dan yararlanılır.

Function syf(syfno As Integer) As String

Application.Volatile

If syfno <= Worksheets.Count Then

 syf = Worksheets(syfno).Name

Else

 syf = “”

End If

End Function

İGiriş sayfasında  “sht” adlı bir dinamik alan oluşturulur. Formülü:

=OFFSET(Giriş!$A$2;0;0;COUNTA(Giriş!$A:$A)-COUNTIF(Giriş!$A$2:$A$12;””)-1;1)

Diğer sayfaların her birisnin tablosu için  aşağıdaki formülle koşullu biçimlendirme oluşturulur.

=SUMPRODUCT(COUNTIF(INDIRECT(“‘”&sht&”‘!B2:F15″);B2))>1

 

Dosya:

diğersayfalardavarsa

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>