Aynı gün ve Aynı hafta içinde, aynı miktarlarda mükerrer çıkışı bulma hk

[dasdemir34]

Merhaba ;

Perakande market sektöründe çalışmaktayım. Her Pazartesi günü, biten haftanın bütün depolar arası sevk hareketlerini çekiyorum, depo ve mağazalar arası sevklerde mükerrer giriş/çıkış var mı diye kontrol ediyorum. Ekte örnek dosyam mevcuttur.

Ana veriyi pivot tabloya alıyorum ve say değerini kullanarak aynı üründen 2 ve üzeri olanları koşullu biçimlendirme yaparak renklendiriyorum.
Renklenen bütün hücreleri çift tıklayarak açıyor ve manuel olarak kontrol ediyorum. Buda malesef 15 mağazada çok zaman kaybettiriyor.

Burada yapmak istediğim,
"Aynı mağazaya ait, aynı gün, aynı miktarlarda mükerrer giriş var mı ?"
"Aynı mağazaya ait, farklı günlerde aynı miktarlarda mükerrer giriş var mı ? " diye daha kolay ve daha az zamanda kontrol edebilmek.

Konu hakkında nasıl yol izleyebilirim , desteğinizi rica ederim.

Şimdiden teşekkür ederim , iyi geceler.

Örnek Dosya Linki

 

[Ömer BARAN]

Merhaba.
Ürünlerden herhangi biri için, tespit edilmesi gereken ham veri satırlarını örneklendirir misiniz?
Bu örneklendirmeyi;
-- en az birinin "aynı mağazaya ait, aynı gün, aynı miktarlarda mükerrer giriş",
-- en az birinin "aynı mağazaya ait, farklı günlerde aynı miktarlarda mükerrer giriş ",
şeklinde yapabilir misiniz?
Diyelim, istediğiniz tespitler yapıldı.
Bunlara ilişkin nasıl bir nihai sonuç istiyorsunuz?
-- Ham veri sayfasında N sütununa bir işaret/sıra no (mükerrer olan herbir ürün çeşidi için farklı, mükerrerlerin herbiri için aynı olmak üzere) verilmesi gibi bir şey mi istediğiniz (o zaman sonucu N sütununda filtre uygulayarak görebilirsiniz).
-- Mükerrer olanlara ait bir liste mi istediğiniz (bu listede ham verinin hangi sütunlarındaki bilgileri görmek gerekiyor)
Yapacağınız örneklendirmeye göre görmek istediğiniz nihai sonucu belge üzerinde elle yazarak/kopyala yapıştır yaparak hazırlayarak yeni bir örnek belge yükleyin ki çözüm yolunda mesafe kat edilebilsin değil mi?

Ekteki belgede HAM VERİ sayfasına birkaç sütun ekledim.
Önce O, Q sütununda 2 veya daha büyük sayı şeklinde, R sütununda ise 3 veya daha büyük sayı şeklinde filtre uygulayın,
ardından da A sütununda filtre uygulayıp kalan satırları görün.
İstediğiniz nihai sonuç bakımından fikir verebilir.

Belgeye, fareyle BURAYA tıklayarak erişebilirsiniz.
.

 

[dasdemir34]

Ömer Bey ;

Yardımınız için çok teşekkür ederim. Bir şey daha sormak istiyorum. Gözden kaçmasın diye ürünler arasına bir satır boşluk eklemek istiyorum, nasıl yapabilirim ? ( Görsel ekleyemediğim için tekrar dosya olarak ekledim.)

Dosya

Yardımınız için teşekkür ederim.

 

[Ömer BARAN]

-- Ham verilerde, ürün kodunun her değişiminde, ham veri sayfasında mı bire boş satır istiyorsunuz,
yoksa filtre sonrasında kalan satırları başka bir sayfaya aktarırken, bu sayfada mı birer boş satır istiyorsunuz?

-- Kriteriniz sadece AYNI GÜN'de 2 ve daha fazla adette tekrarlananlar mıdır? Aynı hafta ile ilgili yapılacak bir işlem var mıdır?
Cevabınıza göre; hiç formül de kullanmadan bir makro ile istenilen sonuç/sonuçlar alınabilir.

Benim bir önceki cevapta verdiğim formüllü yapı, işlemin anlaşılmasına, nihai isteğin ne olabileceğine dair fikir vermesi bakımından idi.

 

[dasdemir34]

Ömer Bey ;

Ekli dosyanızda N, O ve P, Q hücreleri birleştirilmiş olmasına rağmen tüm hücrelerde filtre vardı , nasıl yapıldığını belirtme yada internette nasıl arama yapmam gerektiği hakkında yardımcı olabilir misiniz ?

 

[Ömer BARAN]

Bu işlem için özel bir şey yok.
Hücre birleştirme işleminden önce filtreyi uygularsanız istediğiniz olur. Yani önce filtre, sonra hücre birleştirme işlemini yapın.
.

 

[dasdemir34]

-- Ham verilerde, ürün kodunun her değişiminde, ham veri sayfasında mı bire boş satır istiyorsunuz,
yoksa filtre sonrasında kalan satırları başka bir sayfaya aktarırken, bu sayfada mı birer boş satır istiyorsunuz?

-- Kriteriniz sadece AYNI GÜN'de 2 ve daha fazla adette tekrarlananlar mıdır? Aynı hafta ile ilgili yapılacak bir işlem var mıdır?
Cevabınıza göre; hiç formül de kullanmadan bir makro ile istenilen sonuç/sonuçlar alınabilir.

Benim bir önceki cevapta verdiğim formüllü yapı, işlemin anlaşılmasına, nihai isteğin ne olabileceğine dair fikir vermesi bakımından idi.

Filtrelediğim 2 veya daha fazla tekrarlanan ürünlerde olması daha iyi olacaktır. Her ikisinde de tekrarlanması benim işimi baya kolaylaştıracaktır.

 

[Ömer BARAN]

Soru şu aslında, aynı gün tekrarlanma yok ama aynı hafta tekrarlanma var olanı yeni sayfaya aktarmak istiyor musunuz istemiyor musunuz?
Özetle siz, tam olarak durumu (gün ve hafta kriterine göre) nasıl olanların aktarılmasını istiyorsunuz?

 

[dasdemir34]

Günlük dosyayı her gün , haftalık dosyayı her pazartesi mağazalara göndereceğim

Bu yüzden, hem günlük dosyada, hemde haftalık dosyada mükerrer olanları yeni sayfaya aktarmak ve
a ürününden b ürününe geçerken arada bir satır boşluk bırakmak istiyorum.

 

[Ömer BARAN]

Uygun olduğumda bakarım, konu sayfasını takip ediniz.

 

[dasdemir34]

Takip ediyorum, teşekkür ederim.

 

[Ömer BARAN]

Bir şeyi daha sorayım; oluşacak yeni sayfada ham verideki tüm sütun verileri gerekli midir, değilse hangi sütun bilgilerinin listenmesi yeterli olur.

 

[veyselemre]

Örneğinizi inceleyin...

Sub gunlukRaporAl()
    Call mukerrerBul
End Sub
Sub haftalikRaporAl()
    Call mukerrerBul(True)
End Sub
Sub mukerrerBul(Optional haftalik = False)
    veri = Sheets("ham veri").Range("A1:M" & Sheets("ham veri").Cells(Rows.Count, 1).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(veri)
            tar = IIf(haftalik, WorksheetFunction.WeekNum(veri(i, 3), vbMonday), veri(i, 3))
            ky = tar & "|" & veri(i, 1) & "|" & veri(i, 10) & "|" & veri(i, 11) & "|" & veri(i, 12)
            .Item(ky) = .Item(ky) & "," & i & ":" & i
        Next i
        Sheets("raporCek").Range("a2:M" & Rows.Count).Clear
        For Each itm In .items
            If InStr(Mid(itm, 2), ",") Then Sheets("ham veri").Range(Mid(itm, 2)).Copy Sheets("raporCek").Cells(Rows.Count, 1).End(3).Offset(2)
        Next itm
    End With
    Sheets("raporCek").Columns.AutoFit
End Sub

 

[dasdemir34]

Bir şeyi daha sorayım; oluşacak yeni sayfada ham verideki tüm sütun verileri gerekli midir, değilse hangi sütun bilgilerinin listenmesi yeterli olur.

Ömer Bey, tüm verileri almam gerekiyor

 

[Ömer BARAN]

Sayın @veyselemre'nin verdiği kod istenileni gerçekleştiriyor durumda.

 

[dasdemir34]

Örneğinizi inceleyin...

Sub gunlukRaporAl()
    Call mukerrerBul
End Sub
Sub haftalikRaporAl()
    Call mukerrerBul(True)
End Sub
Sub mukerrerBul(Optional haftalik = False)
    veri = Sheets("ham veri").Range("A1:M" & Sheets("ham veri").Cells(Rows.Count, 1).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(veri)
            tar = IIf(haftalik, WorksheetFunction.WeekNum(veri(i, 3), vbMonday), veri(i, 3))
            ky = tar & "|" & veri(i, 1) & "|" & veri(i, 10) & "|" & veri(i, 11) & "|" & veri(i, 12)
            .Item(ky) = .Item(ky) & "," & i & ":" & i
        Next i
        Sheets("raporCek").Range("a2:M" & Rows.Count).Clear
        For Each itm In .items
            If InStr(Mid(itm, 2), ",") Then Sheets("ham veri").Range(Mid(itm, 2)).Copy Sheets("raporCek").Cells(Rows.Count, 1).End(3).Offset(2)
        Next itm
    End With
    Sheets("raporCek").Columns.AutoFit
End Sub

@veyselemre Bey , tek tıkla 1 saatlik iş, saniyelere düştü.
Emek verdiğiniz ve zamanınızı ayırdığınız için çok teşekkür ederim.

 

[dasdemir34]

Sayın @veyselemre'nin verdiği kod istenileni gerçekleştiriyor durumda.

@Ömer BARAN Bey , mesajı görmemiştim.
Emek verdiğiniz ve zamanınızı ayırdığınız için çok teşekkür ederim.