Benzerleri Sil

[ANTALYA 01]

Merhabalar

Ekteki Tabloyu Logodan exele aktarım yapıyorum.Makro kaydet ile istediklerimi yaptım.MAKRO 1 de Görebilirsiniz.Sizlerden ricam Makro Görevini bitirdiğinde E Sütununda Çift ve Benzer Kayıtları Teke indiren makroya ihtiyacım var .E sütunundaki Veriler Tek olduğunda Aşağıda exel özelliklerinden SAY Seçtiğimde Teke inen kayıtları seçtiğimde Bana Toplam Sayı adedi verecek.
Örnekte Makro çalıştığında E Sütunda 8 adet STAR MARKET var Teke inmesini istiyorum.E Sütununda her kayıt teke insin.

 

[hamitcan]

Gelişmiş filtreleme içinden yapabilirsiniz.
1.Aralığı seçin.
2.Yalnızca benzersiz kayıtları seçin.
3.Başka yere kopyalayı seçin.

 

[ANTALYA 01]

f

Merhaba

Cevabınız için tşk ederim.Lİstedeki makroya çalıştırıyorum.E Sütunun seçiyorum.Veri gelişmiş süzgeçi seçiyorum.Liste aralığınında E Sütunu seçik.Başka bir yere kopyalamayı seçtim.Yalnızca benzersiz kayıtları tıkladım.
Hedefi Sayfa 2 de A Sütununu işaretledim.

Etkin Sayfaya sadece süzülen veriler kopyalanabilir hatası veriyor.Nasıl yapacağımı sırayla anlatabilirmisiniz.nerde hata yapıyorum.

 

[hamitcan]

Sorunu makro yardımıyla çözebilirsiniz.

Sub Makro3()
    Range("E2:E35").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sayfa2.Range( _
        "A1"), Unique:=True
End Sub

 

[ANTALYA 01]

V

Tşk ederim.İsteğim gibi olmuş.

 

[yst10]

Selamlar,
Konuyu inceledim, bir sorum olacak, bu makro ile, süzülen verinin kaç tane olduğunu hemen yandaki satırda görmek imkanı varmı acaba?
Şimdiden teşekkürler.

 

[hamitcan]

Verdiğim kodun altına alttaki satırı ekleyerek yapabilirsiniz.

Sayfa2.[b1] = WorksheetFunction.CountA(Sayfa2.Columns(1))

 

[yst10]

Sn. Hamitcan,
Teşekkür ederim. İyi çalışmalar, saygılar.
Yavuz Tümer