Mükerrer kayıtları diğer sayfaya süzme

[ridvan2111]

Selam arkadaşlar Sayfa2 a4:a65000 de birbiriyle aynı olan birçok kayıt var
bu kayıtları sayfa1 k4:k65000 aralıgına her bir veriyi 1 kere olacak şekilde aktarsın.

bu konuda yardımcı olabilirseniz cok sevinirim.
Şimdiden teşekkürler

 

[mancubus]

merhaba.

makro gerekli mi?

ingilizce excel'de aşağıdaki gibi yapılıyor.
data (veri)
filter (süz)
advanced filter (gelişmiş süz)
copy to another location (başka yere kopyala) (kayıtların kopyalanacağı yer)

list range (liste aralığı) (verilerin bulunduğu aralık)
copy to (kopyala) (kayıtların kopyalanacağı yer)
unique records only (sadece benzemez kayıtlar)

seçeneği ile aynı sayfa içinde tekrar edenleri 1 veri olarak kopyalayabilirsiniz.

 

[ridvan2111]

Bu şekilde halloldu çok teşekkür ederim.

Düzeltiyorum tam olarak işimi görmedi
yeni eklediğim veriler çıkmıyor her yeni veri girişinde bu işlemi yapmammı gerekir?

 

[ridvan2111]

Sanırım makro ile olabilirse daha iyi olacak

 

[mancubus]

sürekli veri girişi yapılacaksa çözüm makro olur evet.

eğer kayıtların girişi gerekli değilse, yani mükerrer veri girişi yapılmasın istiyorsanız data validation "veri doğrulama" yapmalısınız.

ama tüm mükerrerler gerekli, özetini ayrı bir sayfada göreyim istiyorsanız makro lazım.

gelişmiş süz işinize yaradığına göre, mükerrerlikten kasıt bütün sütunlardaki veriler eşit olması.

gerçekten öyle mi? öesela aşağıdaki tabloda sizin için mükerrer olanlar hangileri

aa 1 2 3 4
aa 5 2 e 4
ac 1 2 3 4
ac 1 2 3 4

 

[mancubus]

şu linkte ihtiyacınızı karşılayacak bir örnek vardır düşüncesindeyim.

http://www.excel.web.tr/f120/mukerrer-ift-kayyt-engelleme-sayma-rnekleri-t17185.html

 

[ridvan2111]

sürekli veri girişi yapılacaksa çözüm makro olur evet.

eğer kayıtların girişi gerekli değilse, yani mükerrer veri girişi yapılmasın istiyorsanız data validation "veri doğrulama" yapmalısınız.

ama tüm mükerrerler gerekli, özetini ayrı bir sayfada göreyim istiyorsanız makro lazım.

gelişmiş süz işinize yaradığına göre, mükerrerlikten kasıt bütün sütunlardaki veriler eşit olması.

gerçekten öyle mi? öesela aşağıdaki tabloda sizin için mükerrer olanlar hangileri

aa 1 2 3 4
aa 5 2 e 4
ac 1 2 3 4
ac 1 2 3 4

Ne istediğim daha iyi anlatabilmek için Ben dosyayı ekledim.
Veri arama sayfasına ham depo girişi ve ham depo çıkışı sayfalarından hesaplama yaptırarak kalan miktarı görüyorum.

Benim istediğim
ham "depo girişi a4:a1000" aralığındaki veriler
"veri arama k4:k500" aralığına her veri 1 kere olarak gelsin.bende "veri arama a:a1000" de k4:k500 deki verilerden istediklerimi görüyorum

 

[mancubus]

verdiğim linkteki örnek dosya mutluka işinize yarar.

ben 10 saniyede kayıt makrosu yaptım. aralıkları son dolu satırı seçecek şekilde yeniden yazmaya 1 dakika harcadım. aşağıdaki çıktı.

bir düğmeye atayınız.

Sub tekrarsız_kopyala()

Worksheets("ham depo çıkış").Range("K3:K" & Range("K65536").End(xlUp).Row).Clear
Range("A3:A" & Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("K3"), Unique:=True
Worksheets("ham depo giriş").Range("K3:K" & Range("K65536").End(xlUp).Row).Copy _
    Destination:=Worksheets("ham depo çıkış").Range("K3")
Worksheets("ham depo giriş").Range("K3:K" & Range("K65536").End(xlUp).Row).Clear

End Sub

 

[Mahir64]

Merhaba
Sayın mancubus cevap vermiş
Ama bu işlemin benzeri verdiği linkte mevcut
Bu işlemi kendiniz Gelişmiş filtre kullanarak benzersizleri elde edebilirsiniz.

 

[ridvan2111]

verdiğim linkteki örnek dosya mutluka işinize yarar.

ben 10 saniyede kayıt makrosu yaptım. aralıkları son dolu satırı seçecek şekilde yeniden yazmaya 1 dakika harcadım. aşağıdaki çıktı.

bir düğmeye atayınız.

Sub tekrarsız_kopyala()

Worksheets("ham depo çıkış").Range("K3:K" & Range("K65536").End(xlUp).Row).Clear
Range("A3:A" & Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("K3"), Unique:=True
Worksheets("ham depo giriş").Range("K3:K" & Range("K65536").End(xlUp).Row).Copy _
    Destination:=Worksheets("ham depo çıkış").Range("K3")
Worksheets("ham depo giriş").Range("K3:K" & Range("K65536").End(xlUp).Row).Clear

End Sub

Çok teşekkür ediyorum.
Sayfa isimlerinde problem vardı onuda hallettim kod aşağıdaki gibi çalışıyor.

Sub tekrarsız_kopyala()
Sheets("ham depo giriş").Select
Worksheets("veri arama").Range("K4:K" & Range("K65536").End(xlUp).Row).Clear
Range("A4:A" & Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("K4"), Unique:=True
Worksheets("ham depo giriş").Range("K4:K" & Range("K65536").End(xlUp).Row).Copy _
Destination:=Worksheets("veri arama").Range("K4")
Worksheets("ham depo giriş").Range("K4:K" & Range("K65536").End(xlUp).Row).Clear
Sheets("veri arama").Select
End Sub