incsoft
Yeni Üye
- Katılım
- 28 Ocak 2019
- Mesajlar
- 234
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 43
- Konum
- Ankara
- Ad Soyad
- Ufuk İNCE
- Office Vers.
- Office 2019 Professional
Aşağıdaki fonksiyona bağımlı çalışan ekteki dosya örneğiyle sistem çok aşırı yavaş çalışmaktadır. Sebebi ne olabilir arkadaşlar?
Option Explicit
Public Function ay_uretim_adeti(ie_no As Long) As Long
', Optional VolatileParameter As Variant
ActiveWorkbook.ForceFullCalculation = True
Dim hesap As Long
Dim i, j As Integer
For i = 1 To Sheets.Count
For j = 3 To 1500 'yukarıdan aşağıya 50 satıra bakacak
If Sheets(i).Range("E" & j).Value = ie_no Then
hesap = hesap + Sheets(i).Range("F" & j).Value
End If
Next j
Next i
ay_uretim_adeti = hesap
End Function
Option Explicit
Public Function ay_uretim_adeti(ie_no As Long) As Long
', Optional VolatileParameter As Variant
ActiveWorkbook.ForceFullCalculation = True
Dim hesap As Long
Dim i, j As Integer
For i = 1 To Sheets.Count
For j = 3 To 1500 'yukarıdan aşağıya 50 satıra bakacak
If Sheets(i).Range("E" & j).Value = ie_no Then
hesap = hesap + Sheets(i).Range("F" & j).Value
End If
Next j
Next i
ay_uretim_adeti = hesap
End Function