topla carpım makrosu ihtiyacım var

seha efecik · 13 Mart 2008

kolay gelsin arkadaşlar
ekledigim dosyada rapor2 sayfasında topla carpımla sorunumu cözdüm fakat ürün sayısı ve data sayfasına veri işledikce makina cok yavaşladı
bende bunu makro ile çözmeyi düşündüm fakat bilgim olmadıgı için bi baka bilirmisiniz?aşagıdaki formül sorunlarımı cözüyor ama makina kasılıyor
(veri aralıgını tamsayfa vermenedenim devamlı kayıt yapıyoruz günde 4 defa malzme giriş cıkışı oluyor o yüzden böle geniş tuttum)
=TOPLA.ÇARPIM((DATA!$B$2:$B$65536>=$E$2)*(DATA!$B$2:$B$65536<=$E$3)*(DATA!$H$2:$H$65536=$B$4)*(DATA!
ilk tarih son tarih ürün adı
$J$2:$J$65536)):dua: :dua:
toplama alanı

hamitcan · 13 Mart 2008

Sitede, sorunuzun benzeri örnekler mevcut. Öncelikle onlara bir bakmanızı öneriyorum. Yine de çözemezseniz ben dahil, yardımcı olacak arkadaşlar çıkacaktır.

seha efecik · 13 Mart 2008

sayın hamitcan
inceledigim örnekleri tam olarak anlayamadım
zaten burda sadeece aysonu toplamında degil kitapdaki cari sayfalarında fanan kendim adapte edicem örnek makroyu zaten 2 tarih arası ve birde ürün adına göre toplam aldırma nedenimde o rapor2 deki B sütünü gibi
makro olayını daha tam hazmedemedim fonksiyon ve formül yazmada iyiyim ama makro daha tam oturmadı kafamda

hamitcan · 13 Mart 2008

Formüllerinizi inceledim bir yere kadar standart gidiyor bir yerden sonra değişiyor. Şu andaki durumu doğru mu acaba?

seha efecik · 13 Mart 2008

sayın hamitcan ben burda rapor2 sayfasında B sütünundaki malzeme adlarına göre ve yukardaki e2 e3 satırlarındaki tarihe göre toplatıyorum ve bu 7 aylık periyotta yan yana dizilip gidiyor mavi olan bölümde giren ürünlleri toplattım yeşil bölümdede kac ytl lik giriş olmuş cıkış olmuş onları toplattım(yani calıştıgımız sezon nisan 04 den başlayıp yanyana ekim 10 da bitiyor)
burda benim için önemli olan B sütunundaki malzeme bu yeni bi ürün gelince alt satıra yazdımmı direk raporda sorun olmadan raporu almak istiyorum buraya bir CommandButton ekleyip ordan calıştırıcam makroyu burda toplam 4 formül var bunlar:

DEPO GİREN 04 =TOPLA.ÇARPIM((DATA!$B$2:$B$65536>=$E$2)*(DATA!$B$2:$B$65536<=$E$3)*(DATA!$H$2:$H$65536=$B$4)*(DATA!$J$2:$J$65536))
BARA CIKAN 04 =TOPLA.ÇARPIM((DATA!$B$2:$B$65536>=$F$2)*(DATA!$B$2:$B$65536<=$F$3)*(DATA!$H$2:$H$65536=B4)*(DATA!$K$2:$K$65536))
F.ALIŞ 04 =TOPLA.ÇARPIM((DATA!$B2:B$65536>=$O$2)*(DATA!$B2:B$65536<=$O$3)*(DATA!$H2:H$65536=$B$4)*(DATA!$L2:L$65536))
İRSALİYELİ ALIŞ 04 =TOPLA.ÇARPIM((DATA!$B2:B$65536>=$T$2)*(DATA!$B2:B$65536<=$T$3)*(DATA!$H2:H$65536=$B$4)*(DATA!$M2:M$65536))

hamitcan · 14 Mart 2008

Aşağıdaki kodu dener misiniz?
Not:Cevabı sınayabilmeniz için, toplamlar, önceki satırın altında görünecektir.

Kod:

Sub ww()
    For t = 5 To 18
       Cells(7, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(4, 2).Address & ")*(DATA!j2:j65000))")
       t = t + 1
       Cells(7, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(4, 2).Address & ")*(DATA!k2:k65000))")
    Next
    For t = 19 To 32 
       Cells(7, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(4, 2).Address & ")*(DATA!L2:L65000))")
       t = t + 1
       Cells(7, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(4, 2).Address & ")*(DATA!M2:M65000))")
    Next
End Sub

seha efecik · 14 Mart 2008

sayın hamitcan öncelikle cok teşekkür ediyorum.
sayfadaki tüm ürünler için bunu nasıl degiştirebiliriz?
yani B sütunuda şuanda 168 ürün var bunlar içinde bu makroyu nasıl uygulata biliriz ? teksatırda şuanda makro dogru calışıyor öbür dolu olan satırlada uygulamamız lazım

hamitcan · 14 Mart 2008

Böyle olunca da kodun çalışması uzayacak. Bence yine olayı formüllerle halletmek daha doğrusu gibi geliyor.
Şöyle bir öneride bulunayım; sayfa kapandığında formüller değere dönüşsün, açıldığında da tekrar formüller oluşsun.

Kod:

Sub ww()
For tt = 4 To [a65536].End(3).Row
    For t = 5 To 18
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(tt, 2).Address & ")*(DATA!j2:j65000))")
       t = t + 1
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(tt, 2).Address & ")*(DATA!k2:k65000))")
    Next
    For t = 19 To 32 
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(tt, 2).Address & ")*(DATA!L2:L65000))")
       t = t + 1
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B65000>=" & Cells(2, t).Address & ")*(DATA!b2:b65000<=" & Cells(3, t).Address & ")*(DATA!h2:h65000=" & Cells(tt, 2).Address & ")*(DATA!M2:M65000))")
    Next
Next
End Sub

seha efecik · 14 Mart 2008

normalde formüllen ben de halletmek üzereydimki dogrumu diye bikayıt eklemeye calıştım baya bi bekletti beni kayıt makrosunun calışma süresi benim tolere edecegimden fazla sürdü youn bi tempoda calışıyoruz sezonda
fakat rapor sayfasını devamlı kontrol etmiyoruz sadece ihtiyacımız olunca kontrol ediyoruz
şuandaki makrodan memnunum hızlandırmak için sadece dolu hücrelere bakıp bitirse olurmu ? yani direk 65000 hüçreyi incelemeden şuanda mesela 30 hüçre dolu kayıt arttıkca burakam da artsa olabilirmi? birde bana harcadıgınız emek ve zaman için
tekrar tekrar teşekkür ediyorum

hamitcan · 14 Mart 2008

seha efecik' Alıntı:
şuandaki makrodan memnunum hızlandırmak için sadece dolu hücrelere bakıp bitirse olurmu ?

Zaten makronun şimdiki çalışma şeklide bu şekilde.

hamitcan · 14 Mart 2008

Şimdi farkettim,

Kod:

DATA!B2:B65000

satırını

Kod:

DATA!B2:B6100

şeklinde değiştirirseniz, makro oldukça hızlanıyor.

seha efecik · 14 Mart 2008

sayın hamitcan degiştirmeden hızı 7 dakika sürdü core2 duo 1.66 mhz 1 gb ram de şuanda ben elle dediginiz gibi degiştire bilirim bunu ama
bunu otomatikleştirme imkanımız varmı makro içerisinde yoksa eger önemli degil benim için gercekten cok güzel bi calışma oldu aldıgım rapor sayfasını sayenizde bitirdim allah razı olsun

hamitcan · 14 Mart 2008

Ortalama veri sayınızdan biraz fazla tutmanız, makronuzun hızını arttıracaktır.
Örneğin veri sayısı 2000 ise

Kod:

DATA!B2:B65000

satırını

Kod:

DATA!B2:B63000

şeklinde değiştirmeniz yeterli olacaktır. Yada bu sayıyı makroda ufak bir değişiklikle dinamik hale sokmakta mümkün tabii ki.

seha efecik · 14 Mart 2008

peki dinamik hale getirmeye yardımcı olabilirmisiniz?

hamitcan · 14 Mart 2008

Not: Yalnız kontrol etmedim.

Kod:

Sub ww()
son = Sheets("DATA").[a65536].End(3).Row
For tt = 4 To [a65536].End(3).Row
    For t = 5 To 18
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B" & son & ">=" & Cells(2, t).Address & ")*(DATA!b2:b" & son & "<=" & Cells(3, t).Address & ")*(DATA!h2:h" & son & "=" & Cells(tt, 2).Address & ")*(DATA!j2:j" & son & "))")
       t = t + 1
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B" & son & ">=" & Cells(2, t).Address & ")*(DATA!b2:b" & son & "<=" & Cells(3, t).Address & ")*(DATA!h2:h" & son & "=" & Cells(tt, 2).Address & ")*(DATA!k2:k" & son & "))")

    Next
    For t = 19 To 32 
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B" & son & ">=" & Cells(2, t).Address & ")*(DATA!b2:b" & son & "<=" & Cells(3, t).Address & ")*(DATA!h2:h" & son & "=" & Cells(tt, 2).Address & ")*(DATA!l2:l" & son & "))")
       t = t + 1
       Cells(tt, t) = Evaluate("=SumProduct((DATA!B2:B" & son & ">=" & Cells(2, t).Address & ")*(DATA!b2:b" & son & "<=" & Cells(3, t).Address & ")*(DATA!h2:h" & son & "=" & Cells(tt, 2).Address & ")*(DATA!m2:m" & son & "))")
    Next
Next
End Sub

seha efecik · 14 Mart 2008

sayın hamitcan ilk makro ile yaptıgım deneme 42 ürünle 3 dakka fakat son yolladıgınız makro gene aynı 42 ürünle yaptıgımda 10 saniyenin altında
süper bi calışma oldu
cok teşekkür ediyorum bu yardımlarınız için

topla carpım makrosu ihtiyacım var

seha efecik

hamitcan

Uzman

seha efecik

hamitcan

Uzman

seha efecik

hamitcan

Uzman

seha efecik

hamitcan

Uzman

seha efecik

hamitcan

Uzman

hamitcan

Uzman

seha efecik

hamitcan

Uzman

seha efecik

hamitcan

Uzman

seha efecik