Tekrarlanan Kayıtları Bulma

[quantum32]

Merhabalar,
2 ayrı sorum olacak;

1. A sütununda bulunan veriler arasında tekrarlananlar var ise macro-1 çalıştığı zaman ilk kayıt normal kalacak ve tekrarlanan verilerin hepsini tek bir renk ( hücre rengini ) yapabilir mi?

2. B sütununda bulunan veriler arasında tekrarlananlar var ise macro-2 çalıştığı zaman ilk kayıt normal kalacak ve tekrarlanan verilerin hepsini tek bir renk ( hücre rengi olmayacak sadece metin rengi değişecek) yapabilir mi?

( Renk verme işini ilgili sütundaki tüm kayıtlar için yapacak, ve hepsi için renk aynı olmalıdır.)

Teşekkürler.

 

[Ayşavkı]

Merhaba !!! makro ile nasıl yapılır? herhangi bir fikrim olmamakla beraber koşullu biçimlendirme ile sorununuz çözülebilir.dosya eklemenizi öneririm.saygılar

 

[Huseyinkis]

Merhabalar,
2 ayrı sorum olacak;

1. A sütununda bulunan veriler arasında tekrarlananlar var ise macro-1 çalıştığı zaman ilk kayıt normal kalacak ve tekrarlanan verilerin hepsini tek bir renk ( hücre rengini ) yapabilir mi?

2. B sütununda bulunan veriler arasında tekrarlananlar var ise macro-2 çalıştığı zaman ilk kayıt normal kalacak ve tekrarlanan verilerin hepsini tek bir renk ( hücre rengi olmayacak sadece metin rengi değişecek) yapabilir mi?

( Renk verme işini ilgili sütundaki tüm kayıtlar için yapacak, ve hepsi için renk aynı olmalıdır.)

Teşekkürler.

Merhaba 1.soru için cevap

Sub Makro1()
Set s1 = Sheets("Sayfa1")
For i = 2 To s1.Range("A65536").End(3).Row
deger = WorksheetFunction.CountIf(s1.Range("A1:A" & i), s1.Cells(i, "A"))
If deger > 1 Then
Cells(i, "a").Select
Selection.Interior.Color = vbYellow
End If
Next
End Sub

 

[Huseyinkis]

2.soru cevap

Sub Makro2()
Set s1 = Sheets("Sayfa1")
For i = 2 To s1.Range("B65536").End(3).Row
deger = WorksheetFunction.CountIf(s1.Range("B1:B" & i), s1.Cells(i, "B"))
If deger > 1 Then
Cells(i, "B").Font.Color = vbRed
End If
Next
End Sub