tekrar eden veriyi birbiri altına sıralama

[tuncayey]

Bir sütunda rakamsal olarak ifade edilen verilerden tekrar edenleri diğer verilerden ayırabilirmiyim

 

[Ömer]

Merhaba,

İmleç A1 hücresinde iken AZ sıralama butonunu kullanın.

.

 

[tuncayey]

Imleç a da iken sırala diyorum fakataynı olanları diğerlerinden ayırmıyor.16.000 rakam içinde 900 tane mükerreri tek tek bulmam gerekiyor

 

[Ömer]

Eki inceleyiniz. İsediğiniz bu değil mi?

Kullanılan kodları Module1 de görebilirsiniz.

Sub SartliSirala()
 
    Dim i As Long, son As Long
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    Range("A2:A" & son).Sort Range("A2")
 
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If WorksheetFunction.CountIf(Range("A2:A" & son), _
           Cells(i, "A")) = 1 Then
            Range("A" & i & ":D" & i).Cut
            Range("A" & son + 1).Insert Shift:=xlDown
        End If
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[tuncayey]

8. satırdaki nermin nin çıkması yani mükerrer olanlardan ayrılması gerekiyor

 

[Ömer]

A sütununda ID numarası tek olanlar tamamen silinecek mi?

.

 

[tuncayey]

Silinmeden en alta yada en üste alınacak.Ancak bu şekilde olmazsa son çare olarak silinecek

 

[Ömer]

#4 numaralı mesajı değiştirdim. Dosyayı açınca "Sırala" butonuna basınız.

.

 

[tuncayey]

Sırala dediğimde mükerrer olanları ard arda getiriyor ancak 16 bin satırda bu sıralananları tek tek bulup işaretlemem gerekiyor

 

[Ömer]

Sıralamada sorun yok sanırım.

İşaretlemek istediğimiz veri grubu hangisidir ? Mükerrer olanların ilki dışındakilermi yoksa ID leri tek olanları mı?

Daha detaylı açıklama yapmanızı rica ederim.

.

 

[tuncayey]

Sayfada hiçbir veriyi silmeden mükerrer olan veriler tek olanlardan ayrılacak.Dolayısıyla tek olanları da işaretlesek mükerrer olanları da işaretlesek fark etmayacek.Yani tek olanların tamamı alt alta gelecek,dolayısıyla mükerrer olanların da tamamı alt alta gelmiş olacak.

 

[Ömer]

Bunu kodlar zaten yapıyor. Sonuç itibariyle tek olanlar zaten alt kısıma geliyor, renklendirme ne için gerekiyor.

.

 

[tuncayey]

AZ sırala dediğimde tek olanlar arada kalıyor.Kodlar yapıyor demişsiniz ancak bu kodlar nedir. Biraz açabilirmisiniz.

 

[Ömer]

AZ sırala dediğimde tek olanlar arada kalıyor.Kodlar yapıyor demişsiniz ancak bu kodlar nedir. Biraz açabilirmisiniz.

#4 numaralı mesajda verdiğim kodlar. ( Alt + F11 / Module1 )

Kodları çalıştırıp dosyayı tekrar ekledim.

İstediğiniz sıralama bu şekilde değil mi?

Linkte kod ekleme ile ilgili konu mevcuttur.

http://www.excel.web.tr/# Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım

.

 

[tuncayey]

Aynen gönderdiğiniz "sırala.rar" örneğindeki gibi olacak.resimli anlatıma bakarak yapmaya çalışacağım.inşallah becerebilirim.çok teşekkür ederim