Arkadaşlar merhaba excel de 378 adet userform oluşturdum içlerine kodları yazarken 75 - 80 e geldiğimde memory end hatası aldım. sanırım hafıza doldu. bu sorunu nasıl çözerim. userformlara yazdığım kodları yazımın devamına ekliyorum, aslında çözüm bulabilmek amacı ile böyle biryola başvurdum, her güne bir userform uyarladım. bu sorunuma çözüm olursanız tek userformlada halledebilirim aslında mesela tarihe göre koddaki sayfa isimleri ve hücreler değişse. dosya yükleyemedim altın üyelik aldım ama daha aktifleşmedi. yardımcı olursanız sevinirim.
Private Sub ListBox6_Click()
End Sub
Private Sub TextBox1_AfterUpdate()
If TextBox1 <> "" Then
sonsatır = WorksheetFunction.CountA(Worksheets("HAZİRAN").Range("AG:AG")) + 1
Worksheets("HAZİRAN").Cells(sonsatır, 34) = TextBox1.Value
Worksheets("HAZİRAN").Cells(sonsatır, 33) = ComboBox1.Value
TextBox1.Value = ""
Else
End If
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub ListBox6_Click()
End Sub
Private Sub TextBox1_AfterUpdate()
If TextBox1 <> "" Then
sonsatır = WorksheetFunction.CountA(Worksheets("HAZİRAN").Range("AG:AG")) + 1
Worksheets("HAZİRAN").Cells(sonsatır, 34) = TextBox1.Value
Worksheets("HAZİRAN").Cells(sonsatır, 33) = ComboBox1.Value
TextBox1.Value = ""
Else
End If
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub