Mükerrer Yazı Tabloda Nasıl Bulunur

[yilmazmehmet]

Merhabalar

Benim excel taplomda 6000 den fazla ürün var ve burada gırılen 1 urun 3 defa girilmiş bunları nasıl bulabilirm. yardımlarınızı bekliyorum.

 

[1Al2Ver]

Merhaba,

Bilgi Bankası--Mükerrer Kayıt Uygulamaları'na bakabilirsiniz...

 

[ozgretmen]

Diyelimki verileriniz A1 den A6000 e kadar olsun.Aşağıdaki formül ile bu aralıkta tekrar edilen değerler sarı renge boyanır.Umarım bu size bir fikir verebilir.

Sub isaretle()
For i = 1 To [A65536].End(3).Row
If WorksheetFunction.CountIf(Range("A1:A" & [A65536].End(3).Row), Cells(i, 1)) > 1 Then
Cells(i, 1).Select
Selection.Interior.ColorIndex = 6
Else
End If
Next i
End Sub

 

[yilmazmehmet]

teşekkür ederim

ama excelden hiç anlamam bu kodu nereye nasıl yazacagım 2007 kullanıyorum

 

[ozgretmen]

Dosya ekte...

 

[yilmazmehmet]

çok teşekkür ederim

sorunum çözüldü

son olarak mesela a satırı degılde b olursa nereyi düzeltmek gerekir.

 

[ozgretmen]

çok teşekkür ederim
sorunum çözüldü
son olarak mesela a satırı degılde b olursa nereyi düzeltmek gerekir.

a satırından kastınız galiba a sütunu olsa gerek.Eğer öyle ise;aşağıdaki şekilde kodu değiştiriniz.

Sub isaretle()
For i = 1 To [[COLOR="Red"]B[/COLOR]65536].End(3).Row
If WorksheetFunction.CountIf(Range("[COLOR="#ff0000"]B[/COLOR]1:[COLOR="#ff0000"]B[/COLOR]" & [[COLOR="Red"]B[/COLOR]65536].End(3).Row), Cells(i, 1)) > 1 Then
Cells(i, 1).Select
Selection.Interior.ColorIndex = 6
Else
End If
Next i
End Sub

 

[hayyam46]

teşekkürler. bende faydalandım bu çalışmanızdan ve bir de şu prp lemi çözerseniz ayrıca müteşekkür olurum. bir excell tablosunda yinelemeyi engellemek için nasıl kod yazarız. yani aynı veriyi mükerrer olarak kaydetmemek için. sayğılar

 

[1Al2Ver]

teşekkürler. bende faydalandım bu çalışmanızdan ve bir de şu prp lemi çözerseniz ayrıca müteşekkür olurum. bir excell tablosunda yinelemeyi engellemek için nasıl kod yazarız. yani aynı veriyi mükerrer olarak kaydetmemek için. sayğılar

Merhaba

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target) Then
If WorksheetFunction.CountIf([A:A], Target) > 1 Then
ONAY = MsgBox("Mükerrer kayıt !" & vbCrLf & "Silmek istiyor musunuz ?", vbYesNo + vbDefaultButton2 + vbCritical, "DİKKAT !")
If ONAY = vbYes Then
Target.Clear
Target.Select
Else
Exit Sub
End If
End If
End If
End Sub

A sütununda mükerrerleri kontrol eder, arzuya bağlı olarak işlem yapar.

Kod'u sayın Korhan Ayhan yazmıştır.

 

[sokrates11]

B7:Z20 Mükerrer kayıtları renlendirme

Sub isaretle()
For i = 1 To [A65536].End(3).Row
If WorksheetFunction.CountIf(Range("A1:A" & [A65536].End(3).Row), Cells(i, 1)) > 1 Then
Cells(i, 1).Select
Selection.Interior.ColorIndex = 6
Else
End If
Next i
End Sub


B7:Z20 hücre aralığındaki mükerrer kayıtları renklendirirken nasıl yapmalıyım?Uğraştım yapamadım
teşekkürler.