makroda tarih sorunu

[igultekin2000]

iyi günler;
iki tarih arası stok toplamı aldığımda hatalı sonuç çıkıyor. yıl bazında aldığımda sorun yok. sorunu çözemedim. anagiriş sayfasındaki verileri tablo sayfasında topluyorum.
http://s9.dosya.tc/server2/hmvhgm/STOK_TAKIBI.rar.html

 

[Ömer BARAN]

Merhaba.

Umarım yanlış anlamadım.
Belgenizdeki kodlarda küçük değişiklikler yaptım.
Sanırım istediğiniz gerçekleşiyor.

Belge ekte.
.

 

[igultekin2000]

sorun devam ediyor

Merhaba.

Umarım yanlış anlamadım.
Belgenizdeki kodlarda küçük değişiklikler yaptım.
Sanırım istediğiniz gerçekleşiyor.

Belge ekte.
.

bu şekilde daha pratik olmuş , yanız nerede sorun var çözemedim, 1.6.2016 - 30.6.2016 arası döküm isteyince hiç rakam çıkmıyor, normalde o tarihte işlem var. bunu çözemedim.

 

[vardar07]

Alt mesajda doğru sonuç olunca silindi.

 

[Ömer BARAN]

Tekrar merhaba.

Sanırım sorun tarihte değil EĞERSAY işleminde.
Eski hali ANAGİRİŞ sayfasında veriye ilk rastlandığında şeklinde idi,
oysa Tablo sayfasında YOKSA şeklinde olmalı.

Modül2'de yer alan KOD adlı makroda, aşağıdaki kırmızı kısmı silip onun yerine mavi kısmı kullanın.
.

[FONT="Arial Narrow"].........
    For i = 2 To SV.Cells(Rows.Count, "F").End(3).Row 'baz alınacak değer
       a = SV.Cells(i, "C") 'veri de tarih
[COLOR="Red"]If WorksheetFunction.CountIf([B]SV.Range("F2:F" & i[/B]), SV.Cells(i, "F")) = [B]1[/B] _
And a >= ST.Cells(1, "D") And a <= ST.Cells(1, "E") Then 'tarih aralığı[/COLOR]

[COLOR="Blue"]If WorksheetFunction.CountIf([B]ST.Range("B:B"[/B]), SV.Cells(i, "F")) = [B]0[/B] _
And a >= ST.Cells(1, "D") And a <= ST.Cells(1, "E") Then  'tarih aralığı[/COLOR][/FONT]

 

[igultekin2000]

sorun çözüldü

Tekrar merhaba.

Sanırım sorun tarihte değil EĞERSAY işleminde.
Eski hali ANAGİRİŞ sayfasında veriye ilk rastlandığında şeklinde idi,
oysa Tablo sayfasında YOKSA şeklinde olmalı.

Modül2'de yer alan KOD adlı makroda, aşağıdaki kırmızı kısmı silip onun yerine mavi kısmı kullanın.
.

[FONT="Arial Narrow"].........
    For i = 2 To SV.Cells(Rows.Count, "F").End(3).Row 'baz alınacak değer
       a = SV.Cells(i, "C") 'veri de tarih
[COLOR="Red"]If WorksheetFunction.CountIf([B]SV.Range("F2:F" & i[/B]), SV.Cells(i, "F")) = [B]1[/B] _
And a >= ST.Cells(1, "D") And a <= ST.Cells(1, "E") Then 'tarih aralığı[/COLOR]

[COLOR="Blue"]If WorksheetFunction.CountIf([B]ST.Range("B:B"[/B]), SV.Cells(i, "F")) = [B]0[/B] _
And a >= ST.Cells(1, "D") And a <= ST.Cells(1, "E") Then  'tarih aralığı[/COLOR][/FONT]

teşekkürler sorun çözüldü

 

[Ömer BARAN]

Bence sorun çözülmedi.
Belgenin önceki haliyle toplamlar, tarih ne seçilirse seçilsin aynı sonucu veriyor idi.

Yeni belgede ise; seçilen tarih aralığına göre toplamlar alınmaktadır.
Yeni belgeyi deneyiniz, listeleme sonrasında ANAGİRİŞ sayfasında tarih kriterine göre filtre uygulayarak sonuçları kontrol ediniz.

Eski belge üzerinden de aynı tarih aralığına göre işlem yapıp,
yeni belge sonuçlarıyla eski belge sonuçlarını ve farklılıkları karşılaştırın.
.

 

[igultekin2000]

test edildi

Bence sorun çözülmedi.
Belgenin önceki haliyle toplamlar, tarih ne seçilirse seçilsin aynı sonucu veriyor idi.

Yeni belgede ise; seçilen tarih aralığına göre toplamlar alınmaktadır.
Yeni belgeyi deneyiniz, listeleme sonrasında ANAGİRİŞ sayfasında tarih kriterine göre filtre uygulayarak sonuçları kontrol ediniz.

Eski belge üzerinden de aynı tarih aralığına göre işlem yapıp,
yeni belge sonuçlarıyla eski belge sonuçlarını ve farklılıkları karşılaştırın.
.

teşekkürler;
rakamlar değiştiği için düzeldi algılamıştım, yeni makro sorunsuz çalışıyor. yenisi profosyönelce olmuş, eskisi daha basitti başka uygulamalarda kullanırım diye düşünmüştüm, ama yenisi epey zor,

 

[Ömer BARAN]

Kodların, belirttiğiniz sıfata uygun olduğunu düşünmüyorum doğrusu.
Mevcut kodlarda değişiklik şeklinde düzenleme yapıldığından, biraz derme çatma oldu ve
aslında kodları yeniden tasarlamak yerine formül uygulayarak sonuca ulaşıldı.

Bu belgenizin evveliyatını da hatırlar gibiyim.
Belge, üzerinde çalıştıkça geliştiğinden, en baştaki tasarımından uzaklaşıyor zaman zaman.
Belgenin işleyişi/yapısı en baştan tam tasarlanırsa, daha kısa/daha hızlı/daha etkin kod da oluşturulabileceğini düşünüyorum.
Mevcut haliyle belgeniz, formül/makro karışımı bir yapıya sahip.

Fırsat bulursam kodları/formülleri yeniden tasarlarım ve konu sayfasına yazarım.
Tarz olarak belge sahibinin tasarımında değişiklik yapılmasını zorunlu olmadıkça önermiyorum.
En iyisini belge sahibi/kullanıcısı bilir diye düşünürüm.

Kolay gelsin.
.

 

[igultekin2000]

ilginize teşekkürler

Zaten işlemde kurgu bana ait olsada excell bilgim çok yüzeysel olduğu için derme çatma sıraladığım çoğu kodu siz düzenlediniz. Aynı kodlarla değişik işlemlerde kullanıyorum. İşlemleri detaylandırmak için zaman zaman
Üstadları uğraştırıyoruz. Foruma Katkısı olanlara teşekkür ediyorum.