Kopyala Taşı hatası

[ozgurpeh]

Bu hatanın sebebi hakkında bilgisi olan var mı ? Sayfada formüller var ondan olabilir mi ? Aşağıdaki kodu çalıştırırken haya veriyor

Sub S_Form()
Dim olApp As Object
Dim olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
ThisWorkbook.Sheets("Form").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Dosya.xlsx"

 

[Muzaffer Ali]

Evet'e yada Hayır'a tıkladığınızda ne oluyor?

 

[ozgurpeh]

evete tıklayınca devam ediyor, ama dosyayı aşınca dosya kurtarıldı diyor hayırı tıklayınca alttaki seçenek açılıyor.

 

[Muzaffer Ali]

"Form" sayfası açıkken F5 tuşuna basın, açılan pencerede ad verilmiş hücre adları çıkacak.
Listede "kod1" i bulup tıklatın.
"kod1" adı verilmiş hücre seçili hale gelecek.
Seçilen hücrenin adresini, hücreleri seçtiğimiz zaman hücre adresinin gösterildiği kutucuğa(formül çubuğunun solunda) yazın entere basın.

Yapamazsanız dosyanızı ekleyin ben düzelteyim.

 

[Muzaffer Ali]

Şöyle de yapabilirsiniz.
Formüller tabını açın.
Ad Yöneticisini tıklatın.
Listeden "kod" adını bulup seçip silin.