Tekrar eden verileri başka sheette gösterme

[Bwtunc]

Merhaba Arkadaşlar,

Belki sorum biraz zor olabilir ama şu anda tam olarak birazdan anlatacağım çözüme ihtiyacım olduğundan yardımcı olursanız çok sevinirim.

Durum: 16 farklı filitreleme başlığı olan bir tablo düşünün.

Örneğin

Bayikodu, bayi adı, ziyaret tarihi, durum, v.s v.s şeklinde...

Şimdi istediğim şu durum başlığından sadece "bitti" filitresini seçtikten sonra bayi kodunda tekrar eden verilerin başka bir çalışma sayfasına yazdırılmasını istiyorum. Eğer mümkünse tüm filitreleme başlıklarını kopyalayarak çalışma sayfasına yapıştırılmasını istiyorum.

Umarım anlatabilmişimdir. Ve umarım bunun bir çözümü vardır cünkü 10000 taneden fazla girdi var yeni girdilerle bu sayı gittikçe artacak eğer bunu çözümleyemessem iş gücünde ciddi sıkıntı yaratacaktır.

yardımcı olan ve olmaya çalışan tüm arkadaşlara canı gönülden teşekkürler.

Saygılarımla

 

[ZorBey_]

Merhaba Sayın Bwtunc
İyi çalışmalar.
Ek dosya ekleyebilirseniz
Size yardım edecek arkadaşa faydası olur.
http://s3.dosya.tc/
Birde kullanıdınız excel'in versiyonu nedir onuda yazarsanız
hızlı ve net bir yanıt alabilirsiniz.

 

[Bwtunc]

Merhaba Zor Bey,

Hızlı cevabınız için teşekkür ederim . Önerdiğiniz gibi örnek dosyayı update ettim.

Download linki : Örnek

Kullandığım excel 2013 exceldir.

Göndermiş olduğum dosyada Durum filitresinden bitti'yi seçtikten sonra (diğerleri seçilmeden) Bayi kodu sütununda tekrar edenleri bularak başka bir sheete yazdırmak. Bu şekilde o istasyonun ikinci defa bu işlemi yerine getirip getirmediğini göreceğim.

Saygılarımla.

 

[ZorBey_]

Sayın Bwtunc
Ekli dosyayı denermisiniz.
http://s3.dosya.tc/server19/Eqm2Jx/Bitti-01.rar.html

 

[Bwtunc]

Zorbey_ Öncelikle değerli zamanınızı ayırdığınız için minnettarım. .emeğiniz için uğraşmanız için ne kadar teşekkür etsem azdır.

Fakat tam anlamıyla aktaramadım kendimi. daha açıklayıcı olarak şöyle anlatmaya çalışayım. Benim update ettiğim dosyada durum bölümünden "Bitti" filitresini koyduğunuzda bayi kodu "112536" olan bayinin seçimler arasında 2 defa bitti değerini aldığını göreceksiniz. Benim için önemli olan durum bitti iken bayi kodunda tekrar eden verilere ulaşmak. yani ikinci sayfada şu andaki verilere göre sadece "112536" nolu bayinin olması lazım.

Yazarken emek harcadığınız için mahcubiyet yaşıyorum. Lütfen hakkınızı helal ediniz.

 

[ÖmerBey]

Aşağıdaki kod işinizi görür mü aceba?

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
deger = "BİTTİ"
x = 2
For i = 2 To s1.[D65500].End(3).Row
a = WorksheetFunction.CountIfs(Range("N2:N" & i), deger, Range("D2:D" & i), Cells(i, "D"))
    If a = 2 Then
        s2.Cells(x, "A") = s1.Cells(i, "D")
        x = x + 1
    End If
Next
End Sub

 

[Bwtunc]

Mucit Keşke yarasa ama bu kodu nasıl kullanacağımı bilemediğim için sorunuza tam yanıt veremiyorum. Makrolar bölümünü açtım kaydetmeyi denedim ama hata verdi.

 

[ZorBey_]

Ekli dosyayı denermisiniz.
http://s3.dosya.tc/server19/1HKkoE/Bitti-02.rar.html