Vba kodunun çalışma hızı hakkında

[bravo64]

Merhaba arkadaşlar
aşağıdaki kod çok yavaş çalışıyor..Hızlanması için ne yapmam gerekli?
Teşekkürler
Sub çıkışaktar()
Dim a As Integer
Dim b As Integer
Set s1 = Sheets("tabela sa-1")
Set s2 = Sheets("satilan")
For a = 14 To 56
For b = 2 To 100
If s1.Cells(a, 1) = s2.Cells(b, 2) And s1.Cells(a, 7) = s2.Cells(b, 1) Then
s2.Cells(b, 3) = s2.Cells(b, 3) + s1.Cells(a, 5)
End If
Next
Next
End Sub

 

[bravo64]

sumproduct yerine böyle bir şey yazdım..Doğrumu sizce..normal çalışıyor ama yavaş..

 

[Levent Menteşoğlu]

Kodunuzda herhangi bir hata yok, yavaş çalışmasıda doğal, kod 4257 adet hücreyi mukayese ediyor.

 

[bravo64]

teşekkür ederim sevgili Leventm,
bu arada for b=2 to 100 yerine for b=2 to s2.[b65536].end(3) şeklinde yazdım ve oldukça hızlandı şimdi..
tabi bunlar hep sizin öğrettiklerinizle gerçekleşti..