Farklı Kaydet Butonu Ekleme

[Yesilyurtlu]

Değerli Uzmanlarım
Bir excel sayfasını
a ) Kayıt Edilecek Dosyayı soracak
b ) Kayıt Edildiği Tarihi Soracak
c ) Hangi ad ile Kayıt edileceğini soracak
d ) Mümkünse eğer formülsüz makrosuz ve değiştirilmesi mümkün olmayacak "tercihim PDF" şekilde Farklı Kaydetmek istiyorum yardımcı olabilir misiniz?

 

[Yesilyurtlu]

Değerli Uzmanlarım
Birinci mesajımdaki sıkıntımı gidermeniz hususunda tekrar rica edebilir miyim?

 

[halit3]

Değerli Uzmanlarım
Birinci mesajımdaki sıkıntımı gidermeniz hususunda tekrar rica edebilir miyim?

506 adet mesajınız olmuş dosya eklemeyi unutmuşsunuz dosyanız olmadan sorunuza nasıl cevap alacaksınız.


pdf kayıtları ofis 2007 de çalışıyor

 

[Yesilyurtlu]

ekli dosya bende ki yazı sayfası ile birebir aynısıdır.

a ) Kayıt Edilecek Dosyayı soracak
b ) Kayıt Edildiği Tarihi Soracak
c ) Hangi ad ile Kayıt edileceğini soracak
d ) Mümkünse eğer formülsüz makrosuz ve değiştirilmesi mümkün olmayacak
şekilde Yedek almayı istiyorum.

 

[halit3]

ekli dosyayı kontrol ediniz.

 

[Yesilyurtlu]

Halit Abi ;
farklı kayıt et excell düğmesine tıkladığım zaman sonunda yedek almıyor
"Run-tıme error 1004 Visual basıc Projesine Programlı olarak erişim güvenli değil"
uyarısı veriyor.Yardımcı olabilir misiniz?
Bir de ustam formül ve makrolar da duruyor.
Tekrar Bakabilir misiniz?

 

[halit3]

Halit Abi ;
farklı kayıt et excell düğmesine tıkladığım zaman sonunda yedek almıyor
"Run-tıme error 1004 Visual basıc Projesine Programlı olarak erişim güvenli değil"
uyarısı veriyor.Yardımcı olabilir misiniz?
Bir de ustam formül ve makrolar da duruyor.
Tekrar Bakabilir misiniz?

pdf kayıtı için ofis2007 de çalışması için aşağıdaki linkdeki eklentiyi yüklemeniz gerekiyor.

http://www.microsoft.com/downloads/d...displayLang=tr

 

[Yesilyurtlu]

Halit Abi
"Farklı Kayıt et PDF" ve "farklı kayıt et excell" diye iki tercih sunmuşsunuz.
"farklı kayıt et excell" düğmesi hata veriyor.

 

[halit3]

Halit Abi
"Farklı Kayıt et PDF" ve "farklı kayıt et excell" diye iki tercih sunmuşsunuz.
"farklı kayıt et excell" düğmesi hata veriyor.

ben deniyorum hata vermiyor kayıtı yapıyor

referenslarınızı kontrol ediniz.

 

[Yesilyurtlu]

For Each component In ActiveWorkbook.VBProject.VBComponents

Koddaki hata yeri burası Üstad

 

[halit3]

koddaki bu bölümü sil

ActiveSheet.DrawingObjects.Delete
For Each component In ActiveWorkbook.VBProject.VBComponents
If component.Type <> 100 Then
ActiveWorkbook.VBProject.VBComponents.Remove component
Else
Set modul = component.CodeModule
modul.DeleteLines 1, modul.CountOfLines
End If
Next

 

[halit3]

ActiveSheet.DrawingObjects.Delete

yada bu kodun hemen üstüne aşağıdaki kodu koyunuz.

On Error Resume Next

 

[Yesilyurtlu]

Halit Abi;
Kaydetme işi tamam. " On Error Resume Next " işlemini kullandım.

Eğer mümkünse Makroları ve Formülleride silebilir mi Yedek Alırken. Eğer yardımcı olabilirseniz tam istediğim gibi olacak vallaha

Ayrıca Ellerinize sağlık. Zahmet verdim Hakkınızı Helal Edin

 

[halit3]

Halit Abi;
Kaydetme işi tamam. " On Error Resume Next " işlemini kullandım.

Eğer mümkünse Makroları ve Formülleride silebilir mi Yedek Alırken. Eğer yardımcı olabilirseniz tam istediğim gibi olacak vallaha

Ayrıca Ellerinize sağlık. Zahmet verdim Hakkınızı Helal Edin

ekli dosyaya bir bakınız.

 

[Yesilyurtlu]

Halit Abi sayfanın kod bölümündeki Makrolarıda silinirse benim için mükemmel olacak.
Formüller silinmiş. Allah Razı Olsun

 

[Mahir64]

ekli dosyaya bir bakınız.

Halit bey teşekkürler.
Farklı kaydet seçenekleri çok kullanışlı elinize sağlık.

 

[halit3]

kodun içinde sayfanın içindeki kodları silen bölüm var zaten ama sizde çalışmıyor herhalde.


aşağıdaki kod söylediğiniz işi yapıyor zaten sizin referanslarla ilgili bir sorununuz var

For Each component In ActiveWorkbook.VBProject.VBComponents
If component.Type <> 100 Then
ActiveWorkbook.VBProject.VBComponents.Remove component
Else
Set modul = component.CodeModule
modul.DeleteLines 1, modul.CountOfLines
End If
Next

 

[halit3]

Halit bey teşekkürler.
Farklı kaydet seçenekleri çok kullanışlı elinize sağlık.

teşekkürler iyi çalışmalar

 

[halit3]

Halit Abi sayfanın kod bölümündeki Makrolarıda silinirse benim için mükemmel olacak.
Formüller silinmiş. Allah Razı Olsun

referenslarınızda bu bölüm varmı

Microsoft Visual basic Abplication Extensibility 5,3

 

[Yesilyurtlu]

Halit Abi;
Tuttuğun Altın Olsun
Ellerine Sağlık. Hakkınızı Helal Edin. Teşekkür Ederim. Benim için Harika Oldu
Tekrar Tekrar Teşekkür Ederim

Referansda Yoktur 'Microsoft Visual basic Abplication Extensibility 5,3'