Out Of Memory hatası

[sdegirmenci]

Merhaba;
Ekteki örnek dosyam VBA ya girip çıktıktan sonra, kaydetmeden çıkıldığında "Out Of Memory" hatası hatası vermeye başladı, bayağı uğraştıktan sonra sebebin UserForm6 üzerinde olduğunu anladım. Çünkü UserForm6 yı kaldırdığım zaman hata vermiyor. Ama UserForm6 da hatanın tam nerede olduğunu yine bulamadım. Yalnızca kod sayısı biraz fazla, bu işi fazla bilmediğimden kodları tek tek yazdım. Sürekli tekrar eden kodları tek bir isim vererek hep sadece o kodun adını yazmak mümkünmü ? Yardımlarınız için şimdiden çok teşekkür ediyorum. Örnek :

çarpan = ""
tutar = ""
toplam = ""
adet1 = ""
adet2 = ""
adet3 = ""
adet4 = ""
ekaçıklama1 = ""
ekaçıklama2 = ""
ekaçıklama3 = ""
ekaçıklama4 = ""

XXXXXXXXXX
ekaçıklama1.BackColor = &H8000000F
ekaçıklama2.BackColor = &H8000000F
ekaçıklama3.BackColor = &H8000000F
ekaçıklama4.BackColor = &H8000000F

tarih1.BackColor = &H8000000F
tarih2.BackColor = &H8000000F
tarih3.BackColor = &H8000000F
tarih4.BackColor = &H8000000F
tarih5.BackColor = &H8000000F

 

[Zeki Gürsoy]

Merhaba,

Userform6 içinde "TextBox4" adında bir nesne yok. Adını değiştirdiğiniz o nesne her ne ise, "Change" olayının altına aşağıdaki kodu değiştiriniz. Veya o nesneyi(textbox4) silmiş de olabilirsiniz; kontrol edin.

Private Sub TextBox4_Change()
Set FŞM = Sheets("Fiş Mahsup")

FŞM.[AV22] = tarih1
tutar1 = Format(tutar1, "#,##0.00")

Set FŞM = Nothing
End Sub

 

[sdegirmenci]

Merhaba;
Sayın Zeki Gürsoy Hocam, size çok teşekkür ederim, iki gündür defalarca baştan sona baktım , o hatayı bulamadım, hemen gerekli düzeltmeyi yaptım . Ancak yine hata verdi.