Birbirinin aynı olan satırlar renklensin

[yunusxyz]

Merhaba,
A, B ve C sütünlarında müşterilerimizin adı, soyadı ve telefon numaraları var. Müşterilerimize SMS atıyoruz fakat bir kişiyi iki kez yazdığımızda ona 2 SMS gidiyor. Nasıl bir makro yazmalıyız ki birbirinin aynı olan numaralar kırmızı renk olsun.
Şimdiden Teşekkürler...

 

[AS3434]

Lütfen soru sormadan önce forum içinde ARAMA yapın.

Aşağıdaki konu başlığındaki mesajları ve uygulamaları inceleyin.

http://excel.web.tr/forumdisplay.php?f=120

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yazılacak.Csütununda aynı olan verilerin birden fazla olanını renklendirir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C10000]) Is Nothing Then Exit Sub
For SUT = 1 To [C65536].End(3).Row
Range("C" & SUT).Interior.ColorIndex = 0
If WorksheetFunction.CountIf(Range("C1:C" & SUT), Range("C" & SUT)) > 1 Then
Range("C" & SUT).Interior.ColorIndex = 3
End If
Next
End Sub

 

[Orion1]

Merhaba,
A, B ve C sütünlarında müşterilerimizin adı, soyadı ve telefon numaraları var. Müşterilerimize SMS atıyoruz fakat bir kişiyi iki kez yazdığımızda ona 2 SMS gidiyor. Nasıl bir makro yazmalıyız ki birbirinin aynı olan numaralar kırmızı renk olsun.
Şimdiden Teşekkürler...

Merhaba.
Ad ve soyadı ayni sütun (hücre) içine almanız problemin çözümünde rahatlık sağlayacaktır diye düşünüyorum.

 

[kombo]

Nasıl bir makro yazmalıyız ki birbirinin aynı olan numaralar kırmızı renk olsun.

Bence makroya gerek yok.
Numaralarınız C sütununda ise, C sütunundaki numaralarınızı seçin ve,

Koşullu Biçimlendirmeye

Formül seçip

=eğersay(c:c;c1)>1

yazın.
Biçimden renk Kırmızı seçin. Tamam deyin çıkın.