Out Of Memory Hatası - Hafıza Sorunu

Katılım
16 Kasım 2022
Mesajlar
3
Excel Vers. ve Dili
2022
Arkadaşlar herkese merhaba aşağıda yazmış olduğum for döngümdeki kodlarım verilerim 6 satır iken sorunsuz bir şekilde ve süratli bir şekilde çalışıyordu. Fakat verilerimi 472 satıra çıkarmak zorunda kaldım. Ve kodlarımda yaşadığım ilk problem out of memory hatası almak oldu. Daha sonrasında ise programım çalıştı ancak çok yavaş bir şekilde çalıştı. Yardımcı olabilecek kimse var mıdır? Kodlarım bu şekilde... Ne yapmalıyım?

Private Sub BarkodTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then BarkodTextBox_Change
End Sub
Private Sub BarkodTextBox_Change()

Dim urunVar As Label
Dim x As Long
Dim i As Long
For x = 2 To 6
' Burayı 6 yerine 472 ile değiştirdiğimde hata alıyorum ve programım yavaşlıyor
For i = 2 To 6
' Burayı 6 yerine 472 ile değiştirdiğimde hata alıyorum ve programım yavaşlıyor
If Worksheets("StokTakip").Range("a" & x) = "" Then Exit Sub

If BarkodTextBox.Value = Worksheets("StokTakip").Range("a" & x).Value Then
Range("c" & x) = Range("c" & x) - 1
Range("d" & x) = Date
urunVar:
TxtUrunAdi.Value = Worksheets("StokTakip").Range("b" & x).Value
TxtKalanStok.Value = Worksheets("StokTakip").Range("c" & x).Value
TxtUrunSKU.Value = Worksheets("StokTakip").Range("j" & x).Value
Exit For


End If
Next i
Next x

End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Değişkenleriniz LONG olarak tanımlanmış. 472 satırda bu hatayı vermemesi gerekir. Dosyanızda başka sorun olabilir.
 
Üst