Mukerrerleri Boyama

Oncelikle araligimizdaki verilerin kacar tane oldugunu belirleyen bir kodumuz olmali bu durumda For each dongusunu kullanabiliriz.. Daha sonrada bu kodmuzu araligimiza uygulariz..

Sub Aynilari_Boya(Values As Range)

Dim Cell

For Each Cell In Values

If WorksheetFunction.CountIf(Values, Cell.Value) > 1 Then

Cell.Interior.ColorIndex = 15

End If

Next Cell

End Sub

Kodumuzda gordugunuz gibi Countif excel fonksiyonunu kullaniyoruz ve eger degerlerde birden fazla ayni veri var ise bunun renginin 15 yani gri olmasini sagliyoruz..

Renk kodlarini gormek icin ve onceki orneklerimize goz atmak icin daha onceki orneklerimizi paylasiyorum;

VBA Renk Kodlari

VBA Hücre Rengi Değiştirmek

Daha sonra ise bu kodumuzu calismasi gereken araliga ve bir butona entegre ediyoruz..

Private Sub CommandButton1_Click()

Aynilari_Boya (Sheets("Sheet1").Range("A2:D6"))

End Sub

Konuyla ilgili ornek dosyamizi inceleyiniz…

Mukerrer veriler ile ilgili calismalarimizi inceleyiniz ;

Listbox`larla Suzme Islemi

KTF – UDF – Mukerrer Olmayanlari Suz – Case Sensitive

KTF – UDF – Mukerrer Olmayan Degerleri Birlestirme/

Otomatik Sayfa Yaratma – Sayfa Ekleme

Aynilari Boya

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Mukerrerleri Boyama” için 4 yorum

Bir Cevap Yazın

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


9 + 4 =