Mükerrer Kayıtlar ayıklansın

[eraser]

Arkadaşlar Merhaba

Şöyle bir sorunum var.Herkesce bilinen bir sorun gerçi.
Excel sayfasındaki yazılı satırlarda mükerrer kayıtlar varsa bunları diğer sayfaya nasıl aktarabiliriz.Bunu nasıl mümkün kılarız.
Bu konuda yardımlarınızı rica edebilirmiyim.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları, standart bir Module sayfasına kopyalayınız ve bir butona atayarak çalıştırınız.

Sub Mukerrerleri_Ayir()
    Dim i As Integer
    Dim j As Integer
    Dim arr()
    Dim mtn As String
    Dim col As New Collection
    Dim isatir As Integer
    With Sheets("Veriler")
        For i = 2 To .Cells(65536, 1).End(xlUp).Row
            ReDim Preserve arr(1 To i - 1)
            For j = 1 To 5
                mtn = mtn & .Cells(i, j)
            Next j
            arr(i - 1) = mtn
            mtn = Empty
        Next i
    End With
    j = 0
    On Error Resume Next
    For i = 1 To UBound(arr)
        For j = i + 1 To UBound(arr)
            If Len(arr(j)) > 0 Then
                If arr(i) = arr(j) Then
                    col.Add CStr(i), CStr(i): col.Add CStr(j), CStr(j)
                End If
            End If
        Next j
    Next i
    On Error GoTo 0
    
    isatir = 2
    
    Sheets("mükerrer").Rows("2:500").ClearContents
    
    With Sheets("Veriler")
        For i = 1 To col.Count
            .Range(.Cells(col(i) + 1, "A"), .Cells(col(i) + 1, "E")).Copy Sheets("mükerrer").Cells(i + 1, "A")
        Next i
    End With
    
    Erase arr
            
End Sub

 

[eraser]

Mükerrer kayıtlar bulunsun

Ferhat Bey Merhabalar

Verdiğiniz çaba ve emeğinizden dolayı teşekkürlerimi sunuyorum.

Saygılarımla

 

[eraser]

Ferhat Bey Merhaba

Henüz yeni fark ettim.Bu tabloda 65536 Satırıda kullanmam gerekecek yeri geldiğinde. 65536 satırı açık halde kullanmam gerekiyor.

İlgili satırlar 65536 dahil olmak üzere çalışması gerekiyor.
Size zahmet çalışmada tekrar bir düzeltme yapabilirmisiniz.

Saygılarımla

 

[ersoyalan]

Merhaba,

Ekli doyayı incelermisiniz.

İyi çalışmalar.
E.ALAN

 

[Ferhat Pazarçevirdi]

Bunlar, Excel'de tuttuğunuz kayıtlar mı ? Yoksa, başka bir programdan mı çekip alıyorsunuz?

Excel'de, 65536 satırla işlem yapmak baya baya yorucu olur. Size verdiğim kodlar ve benzeri kodlar; bu işlemi göreceli olarak çok uzun bir zamanda tamamlayabilir.

Eğer, başka bir Veritabanından veriler alınıyorsa, bu veritabanına direkt sorgu gönderilebilir.

 

[eraser]

Ferhat Bey bu kayıtlar başka bir ortamda tutuluyor.Excel sayfasında ise yüklü miktar olmak üzere benzer kayıtlar araştırılıyor.
Kısacası Ms-Sql Tabanlı programda tutuluyor.(Netsis),(eta-Sql) ayrı ayrı da kullanılabiliyor.
Tabi Buralara direk sorgu nasıl gönderilir bilmiyorum doğrusu.

iyi çalışmalar