Excel'de kaydet butonu çalışmıyor.

[brkbkl]

Arkadaşlar merhaba,

Hatalı ürünleri takip etmek için bir excel dosyası oluşturdum.
Bu dosya çalışanların hatalı ürünlerin verisini girip kaydettikten sonra mail atmasını istiyorum fakat şöyle bir problemim var.
Kullandığım dosya bana mail atıyor fakat dosyaya veri girildiğinde manuel olarak kaydedilen veriler bana mail ile geliyor.
Eğer manuel bir şekilde dosya kaydedilmezse sanki içine hiç veri girilmemiş gibi boş bir şekilde geliyor. "ActiveWorkbook.Save" komutu çalışmıyor gibi sanki. Bunu nasıl çözebilirim.

Kullandığım kod bu şekilde;

Sub Hatalı_imalat()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = "mail adresi"
.Cc = "mail adresi"
.Subject = "Hatalı İmalat Formu"
.Body = "Merhaba, Hatalı bir imalat bulunmaktadır."
.Attachments.Add ActiveWorkbook.FullName
.Send
ActiveWorkbook.Save
ActiveWorkbook.Close
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[YUSUF44]

Kodlarda önce mail gönderiliyor sonra dosya kaydediliyor. Kaydetme satırını mail gönderme satırlarından önceye (en başa) alırsanız düzelir diye düşünüyorum.

 

[brkbkl]

Kodlarda önce mail gönderiliyor sonra dosya kaydediliyor. Kaydetme satırını mail gönderme satırlarından önceye (en başa) alırsanız düzelir diye düşünüyorum.

Çalıştı, çok basitmiş aslında teşekkür ederim.