Soru fonksiyondaki aşırı yavaşlık

[incsoft]

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

 

[ÖmerFaruk]

Böyle bir işlem için Özel Fonksiyon tanımlamanızı biraz gereksiz buldum.
Sayfa sayınız ve işlem yapacağınız satır sayısı çok etkileyecektir.
Ayrıca 1500 satır gibi bir alanda işlem yapacaksanız For Next yerine FIND komutuyla çalışmanızı öneririm.

 

[incsoft]

Böyle bir işlem için Özel Fonksiyon tanımlamanızı biraz gereksiz buldum.
Sayfa sayınız ve işlem yapacağınız satır sayısı çok etkileyecektir.
Ayrıca 1500 satır gibi bir alanda işlem yapacaksanız For Next yerine FIND komutuyla çalışmanızı öneririm.

Örnek 1 dosya göndersem bakabilirmisiniz hocam?

 

[incsoft]

Böyle bir işlem için Özel Fonksiyon tanımlamanızı biraz gereksiz buldum.
Sayfa sayınız ve işlem yapacağınız satır sayısı çok etkileyecektir.
Ayrıca 1500 satır gibi bir alanda işlem yapacaksanız For Next yerine FIND komutuyla çalışmanızı öneririm.

ya da bu fonksiyonu o dediğinize uyarlama imkanınız varmıdır hocam?

 

[YUSUF44]

Bu KTF ile tüm sayfaların E sütununda 50 değil 1498 satır kontrol ediliyor. Dosyada 10 sayfa varsa 14980 satır demektir bu. Yavaşlık bundan kaynaklanıyor bence.

 

[YUSUF44]

Sayın NextLevel'in de belirttiği gibi dosyanıza uygun başka bir çözüm kullanmanız iyi olur. Örneğin Etopla formülü daha hızlı çözüm olur.

 

[incsoft]

Bu KTF ile tüm sayfaların E sütununda 50 değil 1498 satır kontrol ediliyor. Dosyada 10 sayfa varsa 14980 satır demektir bu. Yavaşlık bundan kaynaklanıyor bence.

E sütununda 163 sütun var hocam ancak birde gizli sayfa var orda da sütunda bulunan işemri numaralarının HAZİRAN AYI öncesi adet toplamları var ordada 1200 sütun var ondan dolayı yavaşlıyor sanırım. Öneriniz nedir bu konuda?

 

[incsoft]

Sayın NextLevel'in de belirttiği gibi dosyanıza uygun başka bir çözüm kullanmanız iyi olur. Örneğin Etopla formülü daha hızlı çözüm olur.

ETOPLA ile 1 ayda bulunan 31 günün sayfalarındaki işemri adetini toplama yaptırabilirmiyiz hocam?

 

[ÖmerFaruk]

Sayfa Adlarını ve toplam aralığınıı doğru şekilde içeren doğruya yakın örnek bir dosyayı eklermisiniz

 

[incsoft]

Sayfa Adlarını ve toplam aralığınıı doğru şekilde içeren doğruya yakın örnek bir dosyayı eklermisiniz

 

[incsoft]

Sayfa Adlarını ve toplam aralığınıı doğru şekilde içeren doğruya yakın örnek bir dosyayı eklermisiniz

Ekledim hocam

 

[ÖmerFaruk]

Hangi sayfalarda, Hangi aralıklar toplanacak? Sonuç nereye yazılacak

 

[Korhan Ayhan]

Ben bir fonksiyon hazırladım. Deneyin bakalım olmuş mu?

Option Explicit

Function K_TOPLA(Kriter As Variant) As Double
    Dim Sayfa As Worksheet, Son As Long, Veri As Variant, X As Long
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Son = Sayfa.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Veri = Sayfa.Range("E1:F" & Son).Value
        For X = LBound(Veri) To UBound(Veri)
            If Veri(X, 1) = Kriter Then
                If IsNumeric(Veri(X, 2)) Then K_TOPLA = K_TOPLA + Veri(X, 2)
            End If
        Next
    Next
End Function

 

[incsoft]

Hangi sayfalarda, Hangi aralıklar toplanacak? Sonuç nereye yazılacak

o ayda kaç gün varsa hepsi olacak hocam. Birde SİLME2 adlı sayfa

 

[incsoft]

Ben bir fonksiyon hazırladım. Deneyin bakalım olmuş mu?

Option Explicit

Function K_TOPLA(Kriter As Variant) As Double
    Dim Sayfa As Worksheet, Son As Long, Veri As Variant, X As Long
   
    For Each Sayfa In ThisWorkbook.Worksheets
        Son = Sayfa.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Veri = Sayfa.Range("E1:F" & Son).Value
        For X = LBound(Veri) To UBound(Veri)
            If Veri(X, 1) = Kriter Then
                If IsNumeric(Veri(X, 2)) Then K_TOPLA = K_TOPLA + Veri(X, 2)
            End If
        Next
    Next
End Function

dosya olarak ekleme imkanınız varmıdır hocam? K_TOPLA komutu ilemi yapacam şimdi?

 

[incsoft]

Ben bir fonksiyon hazırladım. Deneyin bakalım olmuş mu?

Option Explicit

Function K_TOPLA(Kriter As Variant) As Double
    Dim Sayfa As Worksheet, Son As Long, Veri As Variant, X As Long
   
    For Each Sayfa In ThisWorkbook.Worksheets
        Son = Sayfa.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Veri = Sayfa.Range("E1:F" & Son).Value
        For X = LBound(Veri) To UBound(Veri)
            If Veri(X, 1) = Kriter Then
                If IsNumeric(Veri(X, 2)) Then K_TOPLA = K_TOPLA + Veri(X, 2)
            End If
        Next
    Next
End Function

=EĞER(E37="";"";K_TOPLA(E37))

 

[Korhan Ayhan]

Önerdiğim kodu boş bir modüle ekleyin.

Daha sonra;

CTRL+H menüsünü açın.
Aranan değer bölümüne ay_uretim_adeti yazın.
Altındaki kutucuğa K_TOPLA yazıp tüm sayfalarda değiştir seçeneğini seçip tümünü değiştirin.

Son olarak eski yavaş çalışan fonksiyonu silebilirsiniz.

 

[incsoft]

Çok teşekkürler arkadaşlar allah razı olsun

 

[incsoft]

Ben bir fonksiyon hazırladım. Deneyin bakalım olmuş mu?

Option Explicit

Function K_TOPLA(Kriter As Variant) As Double
    Dim Sayfa As Worksheet, Son As Long, Veri As Variant, X As Long
   
    For Each Sayfa In ThisWorkbook.Worksheets
        Son = Sayfa.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Veri = Sayfa.Range("E1:F" & Son).Value
        For X = LBound(Veri) To UBound(Veri)
            If Veri(X, 1) = Kriter Then
                If IsNumeric(Veri(X, 2)) Then K_TOPLA = K_TOPLA + Veri(X, 2)
            End If
        Next
    Next
End Function

Çok teşekkürler hocam. Bu tür fonksiyon yazımlarını ne şekilde öğrenebiliriz acaba? Bunun için önereceğiniz bir eğitim seti varmıdır?

 

[Korhan Ayhan]

Dikkat ettiyseniz kod içinde döngü ve dizi yöntemleri bulunuyor. Bu tarz yöntemleri öğrenirseniz fonksiyona çevirmek hiç de zor değil.