• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Out of memory: Yetersiz hafıza Hatası.

  • Konbuyu başlatan Konbuyu başlatan cemilk
  • Başlangıç tarihi Başlangıç tarihi
Katılım
16 Eylül 2009
Mesajlar
166
Excel Vers. ve Dili
2010-2013
1) Out of memory: Yetersiz hafıza.

Sorunu neden dolayı verir nasıl aşılabilir. HDD RAM gibi mi yoksa VBA da çalışırken Farklı bir excel belleği mi kullanılıyor.

İyi Çalışmalar.
 
Merhaba,
Makro kod bloğunda kullandığınız değişkenleri tanımlamanızda fayda vardır. Çok sayıda değişken kullanıyorsanız kodlama içinde, değişkenlere bir daha ihtiyacınız olmadığında değerlerini boşaltmanız faydalı olabilir. Kodlamanızı buraya yazarsanız inceleyip yardımcı olmaya çalışırız.
 
“Out of Memory” Hatası aynısı bendede oluyor.Ama çözemedim ?

Sub raporla_()
Application.ScreenUpdating = True

On Error Resume Next
Sheets("GECİKTİRENLER").Range("A2:Q65536").ClearContents

Set s3 = ThisWorkbook.Worksheets("PERSONELLER")
Set s7 = ThisWorkbook.Worksheets("GECİKTİRENLER")

For I = 2 To s3.Range("AF150").End(xlUp).Row
If s3.Cells(I, 1) >= s7.Cells(1, "S") And s3.Cells(I, 1) <= s7.Cells(1, "T") _
And WorksheetFunction.CountIf(s7.Range("R1:R2"), s3.Cells(I, "AG")) >= 1 Then
sonsatir = s7.Range("A65536").End(xlUp).Row + 1



s7.Cells(sonsatir, 1) = s3.Cells(I, 1)
s7.Cells(sonsatir, 2) = s3.Cells(I, 2)
s7.Cells(sonsatir, 3) = s3.Cells(I, 3)
s7.Cells(sonsatir, 4) = s3.Cells(I, 4)
s7.Cells(sonsatir, 5) = s3.Cells(I, 5)
s7.Cells(sonsatir, 6) = s3.Cells(I, 6)
s7.Cells(sonsatir, 7) = s3.Cells(I, 7)
s7.Cells(sonsatir, 8) = s3.Cells(I, 8)
s7.Cells(sonsatir, 9) = s3.Cells(I, 9)
s7.Cells(sonsatir, 10) = s3.Cells(I, 10)

End If

Next I


End Sub


Merhaba,
Makro kod bloğunda kullandığınız değişkenleri tanımlamanızda fayda vardır. Çok sayıda değişken kullanıyorsanız kodlama içinde, değişkenlere bir daha ihtiyacınız olmadığında değerlerini boşaltmanız faydalı olabilir. Kodlamanızı buraya yazarsanız inceleyip yardımcı olmaya çalışırız.
 
Son düzenleme:
Geri
Üst