Böyle bir fonk. var mı?

[AJ0303]

Merhaba foruma ilk mesajım; herkese selamlar.

Elimde 3000 satırlık bir malzeme listesi var; bu listede bazı kodlar 1 den çok yazılmış ( mesela 30 satır alt alta aynı malzeme) bunların içinden tekrarlananları çıkartıp her koddan 1 er tane alan bir excel fonksiyonu var mmı acaba?? böyle birşey varsa işlerimi çok kolaylaştıracak.

Teşekkür ederim.

 

[Erdal]

merhaba
forumda mükerrer kayıtlarla ilgili birçok örnek var mükerrer kayıt diye forumda arama yaptırınız

 

[ECYavuz]

Selam;
1.Kod mükerrer kayıtları kırmızıya çeviriyor.

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

2.Kod sayfa 1 de bulunan mükerrer kayıtları hem ikaz eder heme siler...

Dim A As Integer
Sheets("Sayfa1").Select
For A = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(A, 1)) > 1 Then
ListBox2.ListIndex = A - 1
MsgBox Sheets("Sayfa1").Cells(A, "a"): Sheets("Sayfa1").Rows(A).Delete
End If
Next

 

[AJ0303]

Teşekkürler.