mükerrer kayıt

[agoksen]

Bir sütunda mükerrer olan kayıtları nasıl tespit edebilirim.
Yardımlarınız için teşekkür ederim

 

[Levent Menteşoğlu]

Tespit etmekten kastınız nedir, örneğin mükerrer olanlar nasıl işaretlenecektir. Ayrıca bu kayıtlar hangi sütundadır.

 

[agoksen]

A sütununda isim listesi olarak girilen kayıtlardan mükerrer olanları kırmızı ile tespit etmek.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a8dd3c937e]Sub mukerrer()
For a = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 1)) > 1 Then Cells(a, 1).Interior.ColorIndex = 3
Next
End Sub
[/vb:1:a8dd3c937e]

 

[agoksen]

formülü uyguladım." Next Without For" şeklinde olumsuzluk mesajı çıkıyor.

 

[Levent Menteşoğlu]

Buradaki sayfa üzerinden seçip kopyalayın ve kendi dosyanızdaki modül sayfasına yapıştırın. Muhtemelen kopyalarken veya yazarken bir hata yaptınız. Bu mesaj en baştaki For komutu yazılı değil anlamına geliyor.

 

[agoksen]

Evet, ben hatalı kayıt yapmışım. Formül çalıştı.
Çok teşekkür ediyorum.

 

[iggydarsa]

Sn levent,

Sub mukerrer()
For a = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 1)) > 1 Then Cells(a, 1).Interior.ColorIndex = 3
Next
End Sub

bu kodda Next yerine Next a olmasi gerekmezmi?

Saygilar.

 

[Levent Menteşoğlu]

Next a şeklinde belirtmeye gerek yoktur. Next satırına gelince kod otomatikman kendine ait for a geri dönecektir.