Tüm mükerrer kayıtların taşınması..

[quman]

Merhaba arkadaşlar,

3 saattir mükerrer kayıtlarla ilgili tüm örnekleri inceledim ama sorunumu çözemedim; yardımlarınızı rica ediyorum.

3 sütündan oluşan verilerim var. Sadece A sütunundaki verilere bakıp içlerinden mükerrer olanların tümünü kesip diğer sayfaya yapıştıracak. Ancak altını çizerek söylüyorum mükerrer olan kayıtların hepsi. Yani aynı hesap nosundan 2 tane varsa her ikisi de cut&copy olacak.. Örnek dosyam ektedir. Şimdiden teşekkür ederim. İyi çalışmalar.

Saygılarımla.

 

[parsley2]

bu işlemi diğer sayfaya aktarma yerine aynı sayfada sıralama yapsak, aynı durum olmaz mı?

 

[Necdet]

Merhaba,

Birçok yöntem olabilir, ekteki dosyayı inceleyiniz.

Public Sub Tum_Mukerrer_Kayitlari_Sil()
Application.ScreenUpdating = False
Set sk = Sheets("Kayıtlar")
Set sm = Sheets("Mükerrerler")
sm.Cells.ClearContents
sk.Select
SonSat = [A65536].End(3).Row
For i = 2 To SonSat
    Cells(i, "D") = Application.WorksheetFunction.CountIf(Range("A2:A" & SonSat), Cells(i, "A"))
Next i
Sat = 1
For i = SonSat To 2 Step -1
    If sk.Cells(i, "D") > 1 Then
        Sat = Sat + 1
        Range("A" & i & ":C" & i).Copy sm.Range("A" & Sat)
        Range("A" & i & ":D" & i).Delete Shift:=xlUp
    End If
Next i
Columns("D:D").ClearContents
Application.ScreenUpdating = True
MsgBox "Mükerrer Kayıtlar Aktarılmıştır..."
End Sub

 

[meslan]

sn.quman dosyanız ekte incelyiniz.

 

[parsley2]

sayın meslan sizin örnekte aktarımı yapıyor ancak, diğer sayfada kopyaları yine kalıyor.

 

[parsley2]

güzel

sayın Nejdet beyin, örneği gerçekten güzel olmuş.

 

[quman]

Sn.Necdet Bey çözümünüz için çok teşekkür ederim, sorunumla ilgilenen tüm arkadaşlara da teşekkür ederim. Herkese iyi çalışmalar.

 

[meslan]

sayın meslan sizin örnekte aktarımı yapıyor ancak, diğer sayfada kopyaları yine kalıyor.

Sn.parsley2. Bundan emin misiniz? Ben aktarınca kalmıyor. Hangimizde hata var.

 

[quman]

Sn.meslan sizin makronuz da çalışıyor, emeğinize sağlık, teşekkür ederim. Ancak örnek alacak başka arkadaşlar için de söylüyorum Sn.Necdet Bey'in makrosu çok daha hızlı yapıyor işlemi. Saygılar.