bravo64
Altın Üye
- Katılım
- 21 Eylül 2005
- Mesajlar
- 184
- Excel Vers. ve Dili
- ofis 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 25-10-2024
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
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