BİR SAYFADA YAZILAN, DİĞER SAYFALARDA VAR MI? – 2
BİR SAYFADA YAZILAN, DİĞER SAYFALARDA VAR MI? – 2
Örnek; Ankara, İzmir, Adana, Konya, Bursa gibi herhangi bir sayfada yazılan bir değer diğer sayfaların herhangi birisinde yer alıyorsa, 2 kez geçiyorsa hücre sarı renkli, 3 kez geçiyorsa hücre yeşil renkli, 4 kez geçiyorsa hcre mavi renkli, 4’ten fazla geçiyorsa hücre kırmızı renkli olsun.
Geçen sayıların adetleri de bulunsun
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 birisinin tablosu için koşullu biçimlendirme oluşturulmuştur.
Dosya:
Son Yorumlar