Kopyala Taşı hatası

ozgurpeh

Altın Üye
Katılım
30 Eylül 2007
Mesajlar
383
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
04-01-2027
1543298743151.png

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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Evet'e yada Hayır'a tıkladığınızda ne oluyor?
 

ozgurpeh

Altın Üye
Katılım
30 Eylül 2007
Mesajlar
383
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
04-01-2027
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.

1543302378679.png
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
"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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Şöyle de yapabilirsiniz.
Formüller tabını açın.
Ad Yöneticisini tıklatın.
Listeden "kod" adını bulup seçip silin.
 
Üst