Yinelenenleri Kaldır

[metin_0606]

Değerli arkadaşlar çalışma sayfamın Sayfa1 inin A sütununda yinelenen veriler var. Ben makro ile Bu yinelenenleri kaldırıp Sayfa2 inin A sütununa kopyalıyorum. Ancak İBA İŞLETME verisi Sayfa2 kısmına tek gelmesi gerekirken 2 adet geliyor. Çok uğraştım ama sorunu çözemedim. Desteklerinizi beklemekteyim saygılar

 

[Korhan Ayhan]

Gelişmiş filtre ile işlem yapılıyor. En üst satırı başlık olarak dikkate alıyor. O satıra bir başlık eklerseniz sorun çözülecektir.

Alternatif;

Option Explicit

Sub Remove_Duplication()
    Sayfa1.Range("A:A").Copy Sayfa2.Range("A1")
    Sayfa2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

 

[metin_0606]

Gelişmiş filtre ile işlem yapılıyor. En üst satırı başlık olarak dikkate alıyor. O satıra bir başlık eklerseniz sorun çözülecektir.

Peki korhan hocam Başlık kısmını almadan Sayfa2 ye nasıl aktarabilirim Başlık Eklediğim zaman başlık kısmınıda Sayfa2 ye aktarıyor

 

[Korhan Ayhan]

Üstte kod paylaştım. Onu deneyiniz.

 

[metin_0606]

Üstte kod paylaştım. Onu deneyiniz.

Korhan hocam Başlığı Sayfa2 ye aktarmaması için bir şey yapabilirmiyiz çünkü bu makroyu başka bir makro içine entegre edeceğim Başlık kısmının gelmemesi lazım

 

[metin_0606]

Üstte kod paylaştım. Onu deneyiniz.

Tamam hocam A2 yapınca oldu teşekkür ederim

 

[Korhan Ayhan]

Eklediğiniz dosyanızda zaten başlık yoktu.

Filtre yönteminde başlık eklemeniz gerekir. Diğer sayfaya aktardıktan sonra başlık satırını sildirebilirsiniz.

Ya da hiç başlık eklemeden alternatif verdiğim kodu kullanabilirsiniz.