-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
mükerrer kayıt bulma
- Konbuyu başlatan canserce
- Başlangıç tarihi
İ
İhsan Tank
Misafir
merhaba
bu kodu dener misiniz mükerrer olanları kırmızıya boyuyor
bu kodu dener misiniz mükerrer olanları kırmızıya boyuyor
Kod:
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
Özel Üye
- Katılım
- 21 Temmuz 2005
- Mesajlar
- 8,021
- Excel Vers. ve Dili
- Office 365 Türkçe
- Katılım
- 27 Ocak 2011
- Mesajlar
- 43
- Excel Vers. ve Dili
- bazen 2010 TR, bazen de 2016 TR kullanıyorum. Şu an 2010 TR yüklü
Ç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
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
- Katılım
- 29 Mayıs 2010
- Mesajlar
- 186
- Excel Vers. ve Dili
- 2003 tr
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
Misafir
merhaba
Silmek için
Kod:
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
Kod:
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- Katılım
- 27 Ocak 2011
- Mesajlar
- 43
- Excel Vers. ve Dili
- bazen 2010 TR, bazen de 2016 TR kullanıyorum. Şu an 2010 TR yüklü
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
Şaban KARAGÖL Çaycuma / Zonguldak
- Katılım
- 29 Mayıs 2010
- Mesajlar
- 186
- Excel Vers. ve Dili
- 2003 tr
Arkadaşlar yatay mükerrer kayıt tespiti yapabileceğimiz bir sormül varmıdır acaba
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,779
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
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.
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.
Kod:
=EĞER(EĞERSAY(5:5;"ALİ")>0;"MÜKERRER !";"")- Katılım
- 29 Mayıs 2010
- Mesajlar
- 186
- Excel Vers. ve Dili
- 2003 tr
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
Misafir
ne yapmak istediğiniz anlaşılmıyor
biraz daha açıklama ve dosya ekler misiniz_?
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
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.