Çözüldü VBA İLE SERİ NUMARASI SAYMA TOPLAMA

@Recete

Aşağıdaki kodu bir deneyin bakalım.

Sayın Ömer Hocam,
İlginiz ve desteğiniz için çok teşekkür ederim. Hakkınızı helal ediniz.
Örnek belgede istediğimiz gibi çalışıyor. Sorun yok gibi görünüyor. Tamamdır.
Ancak gerçek belgede çalışıtırınca aşağıdaki satırda hata veriyor. Gerçek belgede Sütun sayısı, sütun başlıkları herşey örnek dosya ile aynıdır. Bir de gerçek belgede VBA çalıştırınca H kolonuna yeni veri yazıyor, A, B, C... kolonlarının adlarını değiştiriyor.
Nerede hata yapıyor olabilirim?
Saygılarımla

@Recete

Önceki cevabımda verdiğim kodda küçük bir düzenleme yaptım.
Her FİŞ NO için en az 1 adet ÜRETİMDEN GİRİŞ satırının olacağını varsaymıştım.

Sayfayı yenileyerek, önceki cevabımdaki kodun yeni halini alıp, hata aldığınız belgeye uygulayarak tekrar deneyin.

.

Merhaba,
Tamamdır, kodları çalıştırmayı başardım. Gayet güzel, elinize sağlık
İlk başta gördüğüm; toplama yapmıyor. Bir ürün farklı aylarda üretmiş ise ayrı ayrı satırlarda yazıyor. Tek satırda toplamasını sağlayabilir misiniz?
Dilerseniz ekteki örneği inceleyebilirsiniz.

İyi de Sayın @Recete .

Belgenizde, mevcut verilere göre olması gerekeni elle hazırlarsanız, sonuçta ulaşılmak istenilen sonuç görülmüş,
kodlama da ona göre hazırlanmış olur. Belgenizi buna göre yeniden düzenler misiniz?

.

Saygıdeğer [COLOR=rgb(132, 53, 52)]Ömer BARAN[/COLOR] hocam,

Veri sayfasını yukarıda eklemiştim. Şimdi hem veri hem de sonuç sayfasını ekliyorum.
Özetlemek gerekir ise ilk mesajdaki örnek dosyada yazdığımız gibi benzersizleri bulduktan sonra toplayarak gitmesi önem arz etmektedir.
Örnek olarak: KM76 ürünü Ocak ayında KM0087 Ürününe çevrilmiş arkasından sarf olmadan sadece üretimden giriş KM0087 olarak üretime devam etmiştir.
Hürmetlerimle bilgilerinize arz ederim.

@Recete
Mevcut kodu aşağıdakiyle değiştirin.
Kodun ilk satırındaki sayfa isimlerinin doğruluğundan emin olduktan sonra çalıştırın.

Saygıdeğer [COLOR=rgb(132, 53, 52)]Ömer BARAN[/COLOR] hocam,
Sorunumuz bu hali ile çözülmüştür. Emeğinize sağlık, hakkınızı helal ediniz.
Yalnız bu hassas bir raporlama olduğu için yapacağımız derin analizlerde farklı sorular çıkabilecektir.
Konuyu kilitlemeden evvel bize bir hafta müsaade ederseniz sevinirim.
Anlayışınız için teşekkür ederim.


Not:
Bu formülü halen kullanıyoruz. Büyük verilerde sorun çıkartıyor. Kasıyor, yavaş çalışıyor...
Daha da hızlandırılabilir mi?

Recete' Alıntı:

Saygıdeğer [COLOR=rgb(132, 53, 52)]Ömer BARAN[/COLOR] hocam,
Sorunumuz bu hali ile çözülmüştür. ........Konuyu kilitlemeden evvel bize bir hafta müsaade ederseniz sevinirim.

Not:
Bu formülü halen kullanıyoruz. Büyük verilerde sorun çıkartıyor. Kasıyor, yavaş çalışıyor...
Daha da hızlandırılabilir mi?

https://www.exceldestek.com/konu/seri-numara-kontrol-formulu-hesaplama.4438/

Genişletmek için tıklayın ...

Estağfurullah @Recete

Bağlantı adresini verdiğiniz ve Sayın 52779 tarafından önerilen formülle çözüldüğünü belirttiğiniz konuyla ilgili bir şeyler sorayım.
-- Yavaş derken, tahmini bir süre belirtir misiniz kaç saniye/kaç dakika gibi.
-- Veri satır sayısı ne civarda olabilir?
-- Size gerekli olan, çözüm olarak önerilen TOPLA.ÇARPIM formülünün sonuçları mıdır?
-- Tekrarlanan verilerin listelenmesini mi istiyorsunuz.
-- Tekrar sayılarının kaç olduğu mu önemli yoksa tekrarlanma olup olmadığı mı?
-- Bir veri için en fazla tekrarlanma sayısı sizce kaç olabilir?
Yani formül sonuçlarını aldıktan sonra, boş olmayan formül sonuçlarına göre yaptığınız işlem nedir?

.

Kıymetdeğer [COLOR=rgb(132, 53, 52)]Ömer BARAN[/COLOR] hocam,
Rabbim ebeden razı olsun.
Sayın 52279 hocamız bize birçok konuda destek ve yardımcı oldu. Kendisine müteşekkirim.

Suallerinize maddeler halinde yanıtlar verelim.

-- Yavaş derken, tahmini bir süre belirtir misiniz kaç saniye/kaç dakika gibi.
Bilgisayarımızda başka uygulama yok. 8 GB Ram, İ5 işlemci ve SSD disk kullanmamıza rağmen bir seri numarası girdiğimizde bize yanıtı vermesi 25-30 saniye sürüyor

-- Veri satır sayısı ne civarda olabilir?
415 Satırdır. Hergün artarak devam etmektedir.

-- Size gerekli olan, çözüm olarak önerilen TOPLA.ÇARPIM formülünün sonuçları mıdır?
Doğrudur. Başka bir alternatif formül de olabilir.

-- Tekrarlanan verilerin listelenmesini mi istiyorsunuz?
Doğrudur. Ayrıca bir diğer alternatif koşullu biçimlendirme "Yinelenen" fonksiyonu işimizi görmemektedir.

-- Tekrar sayılarının kaç olduğu mu önemli yoksa tekrarlanma olup olmadığı mı?
Tekrar sayılarının kaç olduğu önemli değildir. Bir seri numarası tekrar ediyor mu? Etmiyor mu? Sadece bunu bilmek istiyoruz.

-- Bir veri için en fazla tekrarlanma sayısı sizce kaç olabilir?
Bir seri numarası mutlaka benzersiz olmalıdır. Tekrarlanma oranı uygunsuzluğa bağlı iki veya üçtür.

Yani formül sonuçlarını aldıktan sonra, boş olmayan formül sonuçlarına göre yaptığınız işlem nedir?
Formül sonuçlarına göre yaptığımız işlem sadece bilgi mahiyetindedir. Daha sonra derhal düzeltme işlemine geçiyoruz. Veya tekrar ettiği gibi "şartlı kabul" ediyoruz. Yani bir seri numarası benzersiz olmalı ama düzeltme imkanımız da yok, bu şekilde bırakalım diyoruz. Elbette Excel sayfasında da tekrar sayısını görmek istiyoruz.

Selam ve saygılarımla

@Recete
Diğer konu sayfasına cevap yazıyorum.
Verdiğim kodu denersiniz.

Ömer BARAN' Alıntı:

@Recete
Mevcut kodu aşağıdakiyle değiştirin.
Kodun ilk satırındaki sayfa isimlerinin doğruluğundan emin olduktan sonra çalıştırın.

Genişletmek için tıklayın ...

Kıymetdeğer [COLOR=rgb(132, 53, 52)]Ömer BARAN[/COLOR] hocam,

Yukarıdaki konuda;

VBA Kodlarını hangi sayfada yazmak daha uygun olur?

VBA kodları, Rapor sayfasında mı? Veri sayfasında mı olmalıdır?

VBA kodları, Visual Basic içerisinde bir modülde mi olmalı? Yoksa direk sayfa içerisine yazabilir miyiz?

İşlem tamamlandığında, veri sayfasında kolon başlıkları en alta gidiyor. Tekrar manuel sıralanmıyor. Düzeltebilir misiniz?

İşlem tamamlandığında rapor sayfasında ürün koduna göre sıralama yapılsa güzel olur.

İşlem tamamlandığında rapor sayfasında kolon ve satır toplamlarını "TOPLAM" yazısı ile birlikte yazsa harika olur.

*/*/*

Bu rapordan türeterek yeni bir rapor daha yapabilir miyiz?

Bu yaptığımız ürün kodlarına göre idi, ürün guruplarına göre de oluşturabilir miyiz?

En son yaptığımız uygulamaya göre veri sayfasında en sağa GURUP adında yeni kolon ekledik.

Daha evvel belirttiğimiz koşullar aynen geçerli olmak üzere yeni bir rapor sayfası oluşturabilir miyiz?

İşlem tamamlandığında rapor sayfasında "GURUP" adına göre sıralama yapılsa güzel olur.

İşlem tamamlandığında rapor sayfasında kolon ve satır toplamlarını "TOPLAM" yazısı ile birlikte yazsa harika olur.

Bu konudaki örnek dosya aşağıdadır.

@Recete
Önce şu GURUP kelimesiyle ilgili düzeltmeyi yapayım. Gurup değil GRUP olmalı. GURUP kelimesinin anlamı apayrı bir şey.
TDK'dan alıntı >> "Git bu mevsimde gurup vakti Cihangir'den bak." - Yahya Kemal Beyatlı

Bir'den fazla sayfada işlem (okuma-yazma) yapıldığına göre doğrusu kodların MODULe yazılması.

Her neyse; 8 numaralı cevaptaki kodu güncelledim. Sayfayı yenileyerek kodun yeni halini deneyin.
En alta toplam alma, sıralama ve başka birkaç değişiklik yaptım (İlk kod satırındaki sayfa isimlerine dikkat)

Aynı kodu, koddaki ilgili satırları aşağıdaki gibi değiştirerek GRUP adına göre tablo oluşturmak için de kullanabilirsiniz.

Ömer Hocam,
Hatamı düzelttiğiniz için müteşekkirim.
Yıllardır öyle kullanıyordum. Hiç dikkat etmemişim
İzel, denizleri aşta gel şarkısında şöyle diyordu:

Hani bir nefesle çekersin ya
Beni de öyle çek hasretim aşk kokan yıldızlara
Hani bakar dalarsın ya guruba
Bana da öyle bak kulun

Eyvallah üstad

Kodları Pazartesi dener bilgi veririm inşa Allah

@Recete

Bir seçenek de şöyle olabilir. İki ayrı kodlama yerine;
-- Rapor sayfası C4 (başlık) hücresine VERİ DOĞRULAMA >> Liste özelliğine SERİ NO;GRUP yazıp işlemi onayladıktan sonra,
-- Rapor sayfasının kod bölümüne aşağıdaki kodu ekleyip,
-- 8 numaralı cevaptaki kodu tamamen silmek
en doğrusu.

Böylece Rapor sayfası C4 hücresinden SERİ NO seçilince ona göre listeleme, GRUP seçilince ona göre listeme sağlanmış olur.

Kıymetdeğer [COLOR=rgb(132, 53, 52)]Ömer BARAN[/COLOR] hocam,

Daha evvel böyle bir şey denemediğim için bu husus epey karmaşık geldi... 16 Numaralı mesajınıza örnek bir dosya ekleme imkanınız var mıdır?

Pazartesi günü sabah ilk iş olarak test eder, size yazarım inşa ALLAH

Selam ve saygılarımla

@Recete
Önce 8 ve 14 numaralı cevaba göre, GRUP adı kriterli listeleme olayını test edin.
Sorun yok ise, son önerime göre işlemi denersiniz. Sorun yaşarsanız dosya oluşturup iletirim.

.

Merhaba,

Ürün koduna göre rapor sayfası tamamdır. Çok teşekkür ederim.

Yalnız halen daha Bilgi sayfasında işlem tamamlandığında kolon başlıkları en alta gitmektedir.

Bunu düzeltebilir misiniz?

Satır ve sütun toplamları almakta ve ürün koduna göre sıralama yapmaktadır.

Hatta 4. ayda bir ürün diğer raporda eksik gelmişti. Yeni raporda doğru bir şekilde gelmektedir.

Ancak GRUP sayfasında düzeltme yapılması gerekmektedir.

If Not oXD = Empty Then satırından sonra 14 numaralı mesajdaki kodlar ile değiştirdim

Mart ve Nisan aylarını yanlış hesapladı

kontrol edebilir misiniz?

Not: 16. Mesajınızdaki veri doğrulama seçeneğini denedim. Yaklaşık 120 ürün eksik hesaplıyor.
Ayrıca tek Excel hücresine iki ayrı veri doğrulama kısmını başaramadım.

Saygılarımla

@Recete

Yazdıklarınızı örnek belge üzerinden görmek lazım.
Bir tane belgenizin ilk hali, bir tane de kodun uygulandığı olmak üzere iki örnek belge ekleyin, uygun vakit bakarım.

.