Çözüldü verileri teke düşürme

[mustafa070707]

verilerin teke düşürülmesini istiyorum yardım ederseniz sevinirim.

 

[Alpi]

Merhaba.
A,B,C,D sütunlarını seçin
Veri tabında bulunan Yinelenenleri kaldır tıklatın.
Açılan pencerede Sütunlar listesinin tamamının ve verilerimde üst bilgi var seçili yapın Tamamı tıklatın.

 

[mustafa070707]

bunun makro ile diğer sayfaya aktarılması lazım

 

[excelcan]

Dener misiniz.
Kolay gelsin.

 

[Alpi]

bunun makro ile diğer sayfaya aktarılması lazım

Aşağıdaki kodu herhangi bir modüle kopyalayıp çalıştırın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mustafa070707]

a-Z ye sıralama yapıyor ya onu istemiyorum nasıl yapabilirim.

 

[Alpi]

a-Z ye sıralama yapıyor ya onu istemiyorum nasıl yapabilirim.

Benim yazdığım kod sıralama yapmıyor.

 

[excelcan]

Sayfa2 de yazdığınız not bu.
"verilerin teke düşürülüp sırayla buraya kayıt edilmisini istiyorum"

Sıralama istemiyorsanız 4 nolu mesajdaki dosyada buton kodlarında
S2.Range("A2", S2.Range("D" & Rows.Count).End(xlUp)).Sort S2.[A2], xlAscending
satırını pasife alın. Ya da silin.
Pasife almak için satırın başına kesme işareti koyun.
Sonuç aşağıdaki gibi olacak.
'S2.Range("A2", S2.Range("D" & Rows.Count).End(xlUp)).Sort S2.[A2], xlAscending

 

[mustafa070707]

Aşağıdaki kodu herhangi bir modüle kopyalayıp çalıştırın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

boşluk olan satırlarıda alıyor mesela boşlukları almadan yapayormuyuz

 

[mustafa070707]

hepinize teşekkürler.

 

[atoykan]

Kodu aşağıdaki gibi düzenlerseniz sanırım ihtiyacınızı görecektir. Mümkün olduğunca yorum satırları ile açıklamaya çalıştım.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[excelcan]

boşluk olan satırlarıda alıyor mesela boşlukları almadan yapayormuyuz

Siz nasıl denediniz anlamadım.
Ama ben denediğimde benim yazdığım makro da boşlukları aldı.
Yeniden düzenlenmiş hali ekte.
Kolay gelsin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mustafa070707]

Hallettim hocam benden kaynaklı hepinizin eline sağlık