Makrolu Etopla

[mbattal]

Arkadaşlar Merhaba,
Aşağıda verdiğim kodlar ETOPLA işlemini yapıyor fakat okadar yavaşki bilgisayar donuyor.Bu kodları nasıl hızlandırabiliriz.
Birde bu kodları butona bağlamasak kendisi otomatik hesaplasa olurmu

kodlar aşağıda

Private Sub CommandButton1_Click()
For i = 5 To 1100
Cells(i, "I").Value = WorksheetFunction.SumIf(Sheets("GİRİŞ").Range"B5:B60000"), Sheets("TAKİP").Cells(i, "A").Value, Sheets("GİRİŞ").Range("H5:H60000"))
Next
MsgBox "ETOPLA Yapıldı..", vbOKOnly
End Sub


Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızı eklermisiniz.

 

[mbattal]

Selamlar Sayın COST CONTROL
Ben bu dosyayı daha öncede gönderdim TAKİP SAYFASI olarak fakat cevap gelmediğinden (şimdi gelmiş çok sağolun) ben kendim birşeyler yapmaya çalıştım fakat olmadı
örnek dosya ektedir ilgilenirseniz sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz. (Kendi bilgisayarımda 2 saniye gibi bir sürede işlemi tamamladı.)

Private Sub CommandButton1_Click()
    Application.Calculation = xlCalculationManual
    For i = 5 To 1100
    Cells(i, "I").Value = WorksheetFunction.SumIf(Sheets("GİRİŞ").Range("B5:B60000"), Sheets("TAKİP").Cells(i, "A").Value, Sheets("GİRİŞ").Range("H5:H60000"))
    Next
    Application.Calculation = xlCalculationAutomatic
    MsgBox "ETOPLA Yapıldı..", vbOKOnly
End Sub