mükerrer kayıt bulma

[canserce]

tablo içerisinde aynı kayıttan iki yada daha fazla olup olmadığını nasıl bulabilirim

 

[İhsan Tank]

merhaba
bu kodu dener misiniz mükerrer olanları kırmızıya boyuyor

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

 

[Ali]

tablo içerisinde aynı kayıttan iki yada daha fazla olup olmadığını nasıl bulabilirim

Forumda arama yaparak.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[kar67970]

Çoklu Sütunlarda Mükerrer Kayıt Bulma

Hayırlı akşamlar. Ekte örneğini gönderdiğim çalışmamda bütün sütunlarda girilen verilerin mükerrer olup olmadıklarını görmek istiyorum. Bulduğum formüller ve makrolar ya yukarıdan aşağıya tek sütundaki mükerrer kayıtları veriyor, yada altta veri girilmemiş hazır boş sütunları tümüyle siliyor. Oysa ben özellikle satırları silmek istemiyorum, sadece mükerrer girilmiş verilerin bulunduğu satırların yazılarının renklendirilmesini ve mükerrer kayıtların toplam sayılarını versin istiyorum. Bu formül ve koşullu biçimlendirme de olabilir, makro da olabilir. Önemli olan bana isediğim sonucu verebilsin. Bana bu konuda yardımcı olursanız çok sevinirim. Saygılarımla. 19.07.2011

 

[onurcan1979]

Merhaba Arkadaşlar bu mükerrer kayıdı yan yana yazıldığındada aynı isim de olanlara mükerrer kayıt uyarısı versin bu konuda yardımcı olurmusunuz?

 

[İhsan Tank]

Hayırlı akşamlar. Ekte örneğini gönderdiğim çalışmamda bütün sütunlarda girilen verilerin mükerrer olup olmadıklarını görmek istiyorum. Bulduğum formüller ve makrolar ya yukarıdan aşağıya tek sütundaki mükerrer kayıtları veriyor, yada altta veri girilmemiş hazır boş sütunları tümüyle siliyor. Oysa ben özellikle satırları silmek istemiyorum, sadece mükerrer girilmiş verilerin bulunduğu satırların yazılarının renklendirilmesini ve mükerrer kayıtların toplam sayılarını versin istiyorum. Bu formül ve koşullu biçimlendirme de olabilir, makro da olabilir. Önemli olan bana isediğim sonucu verebilsin. Bana bu konuda yardımcı olursanız çok sevinirim. Saygılarımla. 19.07.2011

merhaba
Silmek için

Option Explicit
Sub mükerrer_sil()
Dim ts, kaplan, sıra, trabzonspor
trabzonspor = MsgBox("Mükerrerleri Siliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
For ts = 4 To Cells(65536, "B").End(xlUp).Row
Cells(ts, "I") = Cells(ts, "B") & Cells(ts, "C") & Cells(ts, "D") & _
Cells(ts, "E") & Cells(ts, "F") & Cells(ts, "G") & Cells(ts, "H")
Next
For kaplan = Cells(65536, "I").End(xlUp).Row To 4 Step -1
If WorksheetFunction.CountIf(Range("I4:I" & kaplan), Cells(kaplan, "I")) > 1 Then
Range("B" & kaplan & ":H" & kaplan).Delete
End If
Next
Range("I:I").ClearContents
sıra = Range("B65536").End(xlUp).Row
Range("A4") = 1
Range("A4:A" & sıra).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
MsgBox "Mükerrerleri Sildim", vbInformation, "Bitiş"
End Sub

boyamak için

Option Explicit
Sub mükerrer_boya()
Dim ts, kaplan, sıra, trabzonspor
trabzonspor = MsgBox("Mükerrerleri Boyuyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
For ts = 4 To Cells(65536, "B").End(xlUp).Row
Cells(ts, "I") = Cells(ts, "B") & Cells(ts, "C") & Cells(ts, "D") & _
Cells(ts, "E") & Cells(ts, "F") & Cells(ts, "G") & Cells(ts, "H")
Next
For kaplan = Cells(65536, "I").End(xlUp).Row To 4 Step -1
If WorksheetFunction.CountIf(Range("I4:I" & kaplan), Cells(kaplan, "I")) > 1 Then
Range("B" & kaplan & ":H" & kaplan).Interior.Color = vbRed
End If
Next
Range("I:I").ClearContents
sıra = Range("B65536").End(xlUp).Row
Range("A4") = 1
Range("A4:A" & sıra).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
MsgBox "Mükerrerleri Boyadım", vbInformation, "Bitiş"
End Sub

 

[kar67970]

Merhaba. Bu çoklu sütunlardaki mükerrer kayıt içeren satırları bulup yaszaı tipi rengini kırmızıya veya başka renge çevirerek beni uyarak bir formül bulamadım. En son verilen formülleri denedim ama olmadı. Ya ben formülleri düzenlemeyi bilmiyorum, ya da aldığım formüller benim çalışma sayfalarıma uygun değil. Bu arada ben Excel 2003 kullanıyorum. Bana bu konuda yardımcı olursanız çok memnun olacağım. Şimdiden çok teşekkür ederim. 25.07.2011
Şaban KARAGÖL Çaycuma / Zonguldak

 

[onurcan1979]

Arkadaşlar yatay mükerrer kayıt tespiti yapabileceğimiz bir sormül varmıdır acaba

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki formül 5. satırda ALİ verisini sayar varsa "MÜKERRER !" uyarısı verir, yoksa hücre boş görünür.

=EĞER(EĞERSAY(5:5;"ALİ")>0;"MÜKERRER !";"")

Arkadaşlar yatay mükerrer kayıt tespiti yapabileceğimiz bir sormül varmıdır acaba

 

[onurcan1979]

Merhaba,

Aşağıdaki formül 5. satırda ALİ verisini sayar varsa "MÜKERRER !" uyarısı verir, yoksa hücre boş görünür.

=EĞER(EĞERSAY(5:5;"ALİ")>0;"MÜKERRER !";"")

Teşekkür ederim Üstad peki bunun makro olanı varmıdır.

bu formül gibi yalınız bu aşağıya doğru bunun yatay şeklinde uygulama yapabilirmiyiz

say = WorksheetFunction.CountIf(Range("B2:B65536"), TextBox2.Text)
If say > 0 Then
MsgBox "Bu kayıt daha önce girilmiştir !" & vbNewLine & _
"Lütfen girdiğiniz bilgileri kontrol ediniz.", vbCritical, "Mükerrer Kayıt"
Exit Sub
End If

 

[İhsan Tank]

Teşekkür ederim Üstad peki bunun makro olanı varmıdır.

bu formül gibi yalınız bu aşağıya doğru bunun yatay şeklinde uygulama yapabilirmiyiz

say = WorksheetFunction.CountIf(Range("B2:B65536"), TextBox2.Text)
If say > 0 Then
MsgBox "Bu kayıt daha önce girilmiştir !" & vbNewLine & _
"Lütfen girdiğiniz bilgileri kontrol ediniz.", vbCritical, "Mükerrer Kayıt"
Exit Sub
End If

ne yapmak istediğiniz anlaşılmıyor
biraz daha açıklama ve dosya ekler misiniz_?

 

[gojjira]

Veriler A hücresinde olsun.A hücresini mausla komple seç.Ofice 2003'de Eke/Ad/Tanımla,office 2007'de Formüller/Ad tanımlaya örnek aa diye isim ver.koşullu biçimlendirmeye;=EĞER(EĞERSAY(aa;A1)>1;DOĞRU;YANLIŞ) yaz.Biçimden yazı tipini kırmızı seç.Şimdi A hücresine iki kere aynı ismi yaz.Aynı isim girince yazı tipi kırmızı olur.Birini silince eski haline döner.Kolay gelsin gojjira Çetin Selamlar

 

[ahmet60]

slm arkadaşlar 2007 ve 2010 için mükerrer kayıt bulma işlemi daha kolay olmuş.Menülerden giriş böülümden koşullu biçimlendirme seç hücre kurallarını vurgula oradan diğer kurallar ve yalnızca benzersiz veya yinelenen değerleri biçimlendir.