Kod Numarasına - Kimlik Numarasına göre Gruplandırma

[zaruri]

Ekte bulunan dökümün; "aslında; ürünlere ait grup adları var", ona göre filtre yapıyor, alt toplamlarını ve tüm analizlerini makro ile alıyorum.
Fakat; Ürünler çok sık kategorize ediliyor, çok sık grup değiştiriliyor ve benim makrolar işe yaramaz hale geliyor.
Değişmeyen tek şey, Kod Numaraları.
Ben Bu "kod numaralarını" gruplar haline getirip, bu değişmelerden etkilenmemek istiyorum.
Bir kaç yol denedim, fakat netice vermedi.
Kısaca Bilgim yeterli gelmedi.

Yardımcı olursanız sevinirim.

 

[zaruri]

Belli Numaraları, oluşturulacak olan gruplarda toplayacak,
Bu gruplara yenileri ilave edilebilecek veya o gruptan çıkartılıp, diğer gruba dahil edilebilecek.

KIRMIZILAR
MAVİLER
YEŞİLLER
SARILAR
MORLAR

Gibi!

 

[Tevfik_Kursun]

Merhaba,
Ürün kodunuz 10 basamaklı ve şimdilik 4 çeşit. Başına ekleyeceğiniz bir rakam sizin için ayırt edici özellik olabilir. Ekleyeceğiniz bir basamak size 10 farklı grup oluşturmanızı sağlar. Sanırım işiniz daha kolay görülür. Daha fazla grup oluşursa o durumda da iki basamak ekleyebilirsiniz.
İyi çalışmalar

 

[zaruri]

Kod numaralarına müdahale edemiyoruz, yeni ürünlerde "ICT9AY710, MQC000, MPW000, MRW000"

gibi kodlar geliyor.

Biz grubu oluşturup, ürünleri oraya tanıtacağız, taşıyacağız, sonrası analizleri yapacağız.

Fakat nasıl?

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

Bence gruplamada ister desen rengi, isterseniz font rengi kullanarak gruplayın.

Dosyanız ekte.

.

 

[zaruri]

Hocam Ellerinize sağlık, Bu çalışmanız birçok arkadaşın işine yarayacaktır elbet.
Ben satırları renklendirerek sizleri yanlış yönlendirmiş oldum.

Sizlerden özür dilerim.

Şimdi orijinal dosyayı gönderiyorum.

Biz hangi ürünün hangi guruba verileceğini kendimiz karar vereceğiz.
Burada en belirgin husus değişmeyen kod numaraları, kod numaralarına göre gruplar oluşturacağız.

Siz bir kaç örnek yaptığınızda biz gerisini getiririz.

Listedeki ürünlerin her biri bir gruba ait, fakat grupları değişebiliyor.

 

[Merhum İdris SERDAR]

.

Sorunuz yeterince açık değil.

Kod numaralarına göre grupları nasıl oluşturuyorsunuz? İlk 4 basamak mı, son 4 basamak mı? Nasıl?

.

 

[zaruri]

Kod numaraları belli bir kurala göre yapılmamış,
çok karışık, sadece harf olanı da var, 4 basamak olanı da, 10 basamak olanı da,
son gelen ürünlerde, sadece harf olanı da.

Soru oluşmadı farkındayım.

Önce grupları oluşturup, o gruplara bu kod numaralarını tanıtsak,
makro ile denedim çalıştı, fakat 7 bin civarında ürün tek tek elle yazmak, silmek, grup değiştirmek iş değil.

Benim bu konuda makrolarım var fakat, çok sık ürünler kategorize ediliyor,
grupları değiştiriliyor, yeni grup açılıp oraya atılıyor.

Durum bu Hocam,
Oldu Oldu, olmadı eski sistem devam.
Onu da zaten sayelerinizde yaptım.

Eksik olmayın.

Emeğinize, ilginize sağlık.

 

[Merhum İdris SERDAR]

.

Durumda çok belirsizlikler ve keyfilikler var. Biz anlamıyoruz ki; makinaya anlatalım.

Aklıma ilk gelen muhasebe sisteminizde muhakkak bir mantığa dayalı bir kodlamaları var. Onları kullanabilirsiniz.

.

 

[zaruri]

Örnekte otomatik filtre ile yapılan örnek makro çalışması var,
buradan ürün silmek, ilave etmek ve grup değiştirmek neredeyse imkansız.
kolay bir yol aramıştım.

İlginize Teşekkür ederim.

 

[cems]

Kod numarasına göre değil ama eşya cinsine göre basitçe eşyayı düz ad ve tanımlayan modelini METNİ SÜTUNLARA AYIR fonksiyonu ile ayırınca , peşinden de basitçe filteleme kullandığınızda aynı eşya türünün bütün modeli ve seri numarası ayrışarak geliyor. İkinci bir filtre ya da dahasını kullanarak uzun kalan özet listeyi daha da özetleyebilirsiniz.

Örnekte PC ayrıştırması var , ancak yazım hatası mı değil mi anlaşılmayan PCR gibi satırlar da geliyor. Bu şekilde, gelecek olan listenin önce eşya adını modelden ve kuyruk detaylarından ayırıp daha sonra filtrede eşya adı ile süzdüğünüzde sanırım iş görecek bir özet listelemeyi 5 dakika içinde elde edebilirsiniz . Belki PC PCR gibi ( eğer öyle ise ) hata yoklamasını birkere gözle yapar bunu da model kodunu sonraki sütuna uzaklaştırarak 1 ay kullanılır bir liste oluşturabilirsiniz.

Bu arada, listede eşya grup adı olmadığından , tuşlara bağlı eşya kategorize adı ile filtreleme yapmak kod ile imkansızdır.

Umarım aradığınız çözüme yakındır ...

 

[zaruri]

İlginize teşekkür ederim;

Ürün isimleri standart değil, birbirinden çok farklı,
ancak kod numaralarını gruplandırmamız gerekiyor.

 

[zaruri]

istenilen çalışma şeklinin makrosu.

Ürün kodlarını modülü açmadan müdahale şansı var mı?
-----------------------------------------------------------------

Sub SOĞUTUCU()
'
' SOĞUTUCU Makro
'

'
    ActiveSheet.Range("$A$5:$C$7335").AutoFilter Field:=1, Criteria1:=Array( _
        "10095693", "10097390", "10097391", "8808571200", "8808571600", "8808651100", _
        "8839021200", "8839031100", "8839031200", "8839121100", "8839131100", "8839141100", _
        "ZYF000", "ZYG000", "ZYX000"), Operator:=xlFilterValues
End Sub
Sub ÇAMAŞIR()
'
' ÇAMAŞIR Makro
'

'
    ActiveSheet.Range("$A$5:$C$7335").AutoFilter Field:=1
    ActiveSheet.Range("$A$5:$C$7335").AutoFilter Field:=1, Criteria1:=Array( _
        "6576201000", "6645701000", "6729101000", "7122070100", "7124870100", "7142860100", _
        "7144850100"), Operator:=xlFilterValues
End Sub
Sub KURUTMA()
'
' KURUTMA Makro
'

'
    Range("I7272").Select
    ActiveSheet.Range("$A$5:$C$7335").AutoFilter Field:=1
    ActiveSheet.Range("$A$5:$C$7335").AutoFilter Field:=1, Criteria1:=Array( _
        "8805121200", "8805131100", "8805141100", "8805541200", "8950641100", "8951701100", _
        "8951791100", "8951971100", "8951991100", "8953003600"), Operator:= _
        xlFilterValues
End Sub
Sub BULAŞIK()
'
' BULAŞIK Makro
'

'
    ActiveSheet.Range("$A$3:$C$7333").AutoFilter Field:=1, Criteria1:=Array( _
        "8830401100", "8830431100", "8830441100", "8830451100", "8830461100", "8830471200", _
        "8830481200", "8830571100", "8830591100", "8830601100", "8830611100", "8830621100", _
        "8830631100", "8830641100", "8830651100"), Operator:=xlFilterValues
End Sub
Sub HEPSİ()
'
' HEPSİ Makro
'

'
    Range("D7339").Select
    ActiveSheet.Range("$A$3:$C$7333").AutoFilter Field:=1
    Range("E8").Select
End Sub