Save Problemi

[Skorpiyon]

Arkadaşlar konular arasında aradığım probleme uygun bir çözüm bulamadım. Yardımcı olursanız sevinirim.

Yapmış olduğum programda, "Çıkış" butonuna aktif çalışma sayfasını kaydedip, Çık diyorum .

Yani;
ActiveWorkbook.Save
Application.Quit
diyorum.

İşin ilginci program ilk çalıştığında hiç hatasız istenileni yapıyor. + çıkış butonuna tıkladığımda kaydı da gerçekleştirip, excel'den çıkıyor ve asıl problem burda başlıyor.

Programa tekrar girmek istediğimde Excel hata mesajı veriyor.
"Microsoft Office Excel bir sorunla karşılaştı ve kapatılması gerekiyor..."

Bu problemin asıl sebebi ne olabilir ?
Yardımlarınızı bekliyorum... Saygılar, Skorpi.

 

[Skorpiyon]

Bu arada sunu da eklemek isterim ki;

Formda 1 adet combobox nesnesi var.
------------------
Private Sub ComboBox1_Change()
Dim a As Integer
Dim kod As Range
Sheets("deneme").Select

On Error Resume Next
Set kod = Range("B1:B65536").Find(ComboBox1.Value, searchdirection:=xlNext, MatchCase:=False)
If kod Is Nothing Then
MsgBox "Kayıtlı Müşteri Bulunamamıştır.", , "MÜŞTERİ HESAP NO"
Exit Sub
ElseIf kod = Range("B1:B65536").Find(ComboBox1.Value, searchdirection:=xlNext, MatchCase:=False) Then
kod.Select
End If

If ComboBox1.Value = ActiveCell.Value Then
ActiveCell.Offset(0, -1).Activate
TextBox1.Value = ActiveCell.Offset(0, 0).Value
For a = 2 To 176
Controls("TextBox" & a).Value = ActiveCell.Offset(0, a - 1).Value
Next a
CommandButton1.Enabled = False
End If
End Sub
--------------------
Private Sub UserForm_Initialize()
ComboBox1.ListRows = 20
ComboBox1.ListWidth = 350
ComboBox1.ListStyle = 1
ComboBox1.Style = fmStyleDropDownCombo
ComboBox1.RowSource = "deneme!b1:b" & WorksheetFunction.CountA(Range("b1:b1000")) + 1
End Sub

Programın tekrar açılmasında bu satırlar hataya neden olur mu ? Zira ben burdan bir yerin hataya neden olduğunu zannediyorum.
Tekrar teşekkürler...

 

[Levent Menteşoğlu]

Programın tekrar açılmasında bu satırlar hataya neden olur mu ? Zira ben burdan bir yerin hataya neden olduğunu zannediyorum.

Verdiğiniz kodlarda hata verecek bir durum ben göremedim.

 

[Skorpiyon]

Sn. Levent,
işin ilginci bence de bir problem olmaması lazım. Ama neden kayıt yapıp çıktıktan sonra programı tekrar çalıştırmak istediğimde excel hata veriyor ?

Sizce sebebi ne olabilir ? Kısaca ne yapmalıyım :S ?

 

[Levent Menteşoğlu]

Net cevap vermek için dosyanızı eklermisiniz.

 

[Levent Menteşoğlu]

Gerekirse excelinizi onarın yada yeniden yükleyin.

 

[Skorpiyon]

Dosya icin tesekkürler, office programını yeniden yükleyip denedim ama bir sonuç vermedi...

İlginiz içinde ayrıyeten teşekkürler...

Saygılar, Skorpi.

 

[Skorpiyon]

Sayın Levent, save problemi (kodlarda bir hata olmadı halde) hakkında en son olarak Office programını tekrar yüklememi tavsiye etmiştiniz.

Ben problemin nerden kaynaklandığını buldum. Aynı durumda sıkıntı yaşayacak arkadaşlar icin de buraya cözümü yazmak istedim.

Ben formun üzerine 150 adet kadar "Frame" nesnesi eklemiştim. Bunları kaldırdığımda ilginc bir sekilde 2,4 Mb. lık dosya 240 Kb. a kadar düstü ve save problemi ortadan kalktı.

Burası doğru yer olur mu bilemiyorum ama, bunun akabinde sizlere baska bir soru daha sormak istiyorum. Yapmıs olduğum form üzerine 2 adet Combobox nesnesi eklemiştim. Forma yeni bir bilgi girisi yaptıgımda, yeni bilgiler combobox nesnesine (programı tekrar kapatıp acana kadar) dahil olmuyor. Bu konuda yardımlarınızı beklerim.

Saygılar, Skorpi...

 

[Levent Menteşoğlu]

Bunun için veri kaydettiğiniz kodlara comboboxtaki verileri silip yeniden yükleyen satırlar eklemelisiniz. Net cevap için dosyanızı ekleyebilirsiniz.