Döngü ile Toplam Alma

[captan]

Aşağıdaki kodlara topla.çarpım ın işlemini yaptırıyordum. Çünkü veriler çoğaldıkça Topla.Çarpım işimi görmemeye başlamıştı. Fakat Kodlarda

If s1.Cells(ç, 1) = Cells(ğ, 1)

kısmını

If s1.Cells(ç, 1) = Cells(ğ, 1) And s1.Cells(ç, 3) = [b1]

şeklinde yapınca toplamları alma işlemi iyice yavaşladı .

Private Sub ToplamlarıAl()
Set s1 = Sheets("Sayfa1")
son = s1.[a65536].End(3).Row

For ğ = 3 To 33
        For ç = 4500 To son
        If s1.Cells(ç, 1) = Cells(ğ, 1) And s1.Cells(ç, 3) = [b1] Then
          ilkAdet = ilkAdet * 1 + s1.Cells(ç, 6)
          ilkKg = ilkKg * 1 + s1.Cells(ç, 7)
          ilkTutar = ilkTutar * 1 + s1.Cells(ç, 8)
          End If
       
        If s1.Cells(ç, 1) = Cells(ğ, 1) And s1.Cells(ç, 3) = [e1] Then
         SonAdet = SonAdet * 1 + s1.Cells(ç, 6)
         SonKg = SonKg * 1 + s1.Cells(ç, 7)
         SonTutar = SonTutar * 1 + s1.Cells(ç, 8)
       End If
              Next
       
Cells(ğ, 2) = ilkAdet
Cells(ğ, 3) = ilkKg
Cells(ğ, 4) = ilkTutar
    
Cells(ğ, 5) = SonAdet
Cells(ğ, 6) = SonKg
Cells(ğ, 7) = SonTutar
    
 ilkAdet = Empty
 ilkKg = Empty
 ilkTutar = Empty
 
 SonAdet = Empty
 SonKg = Empty
 SonTutar = Empty
Next
End Sub

Sizce bu kodlarda hızılandırmak için ne yapılabilir veya başka Nasıl bir döngü Kullanılabilir. .

Çok teşekkür ederim !!

 

[emrexcel123]

sorgu değeri

arkadaşım sorgu şartları arttıkça inceleme çoğalacağından zaman alabilir ya da
şu kodu kullanablirsin
Application.ScreenUpdating = False
bir tavsiye >>
arkadaşım tanımlamalarda türkçe karakter kullanmamanı tavsiye ederim örneğin ğ yerine g veya ç yerine c gibi...

 

[captan]

Sayın emrexcel123, öncelikle ilgin için teşekkür ediyorum.

arkadaşım sorgu şartları arttıkça inceleme çoğalacağından zaman alabilir

Sorgu şartlarının bana zaman kaybettirdiğinin farkındayım. Önerdiğiniz kod ise hızlandırma ile ilgili çok fazla bişey yapamıyor.

Macrolardan ve Döngülerden çok fazla anlamıyorum Yardım edebilecek bir arkadaşın desteğini bekliyorum.

 

[Seyit Tiken]

Örnek dosya gönderilirse daha isabetli olur diye düşünüyorum. Kodlara bakıp çözüm geliştirmek zor gibi geliyor.