Arkadaşlar Şöyle bir arşivim var uzunca benim istediğim buradaki aynı kayıtları bulup b sütununa yazdırmak.
Excel dosyası yapıp buraya koyabilirseniz çok memnun olacağım.

379290 379290
476889 261214
261214
221713
253379
261214
379290

Şimdiden Teşekkürler.

Açıklamalarınızı tam yapın lütfen.

Ben aşağıdaki arşivimdeki imaj numaralarını A Sütununa yazacağım.
379290
476889
261214
221713
253379
261214
379290

Excel Dosyasından İstediğim bu kayıtlardaki aynı numaraları bulup B Sütununa yazması.
379290
261214

Saygılarımla.

Yani A sütununda tekrarlanan kayıtları B sütununa yazdırmak istiyorsunuz sanırım.

Evet saygıdeğer adminim aynen o şekilde. Daha önceden bana yaptığınız örnek 2 dosya vardı onlarda bir butona basıyordum. İstediğimi yapıyordu.

Böyle bir şey olmaz mı? Cevap yazabilirseniz memnun olacağım?

Tekrarlanan kayıtları silmek için aşağıdaki kodu kullanabilirsiniz

Kod: Tümünü seç

Sub DelDups_OneList()
Dim iListCount As Integer
Dim iCtr As Integer

Application.ScreenUpdating = False

iListCount = Sheets("Sayfa1").Range("A1:A100").Rows.Count
Sheets("Sayfa1").Range("A1").Select
Do Until ActiveCell = ""
For iCtr = 1 To iListCount
If ActiveCell.Row <> Sheets("Sayfa1").Cells(iCtr, 1).Row Then
If ActiveCell.Value = Sheets("Sayfa1").Cells(iCtr, 1).Value Then
Sheets("Sayfa1").Cells(iCtr, 1).Delete xlShiftUp
iCtr = iCtr + 1
End If
End If
Next iCtr
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
MsgBox "Bitti!"
End Sub