Out of memory: Yetersiz hafıza Hatası.

[cemilk]

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.

 

[Tarkan VURAL]

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.

 

[cemilk]

Teşekkür ederim.

 

[yenilik025]

“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.