Farklı Kaydet Butonu Ekleme

[halit3]

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

iyi çalışmalar

 

[Yesilyurtlu]

Halit abi aşağıda ki kodu hangi araya kayıt edeceğim söyleyebilir misiniz?
Bende ki referans da yoktur da
"Microsoft Visual basic Abplication Extensibility 5,3"

 

[halit3]

Halit abi aşağıda ki kodu hangi araya kayıt edeceğim söyleyebilir misiniz?
Bende ki referans da yoktur da
"Microsoft Visual basic Abplication Extensibility 5,3"

Alt+F11 Tols/Refarences /Microsoft Visual basic Abplication Extensibility 5,3

işaretlenecektir.

 

[esrefilvan]

Sayın halit3 çalışmanız çok güzel olmuş fakat kaydederken sadece bir sayfayı kayıt ediyor. Benim çalışmamda çok sayfa var bunun için yardımcı olurmusunuz.
birde kaydedilen dosyayı açtığımızda uzantı hatası veriyor

 

[halit3]

Sayın halit3 çalışmanız çok güzel olmuş fakat kaydederken sadece bir sayfayı kayıt ediyor. Benim çalışmamda çok sayfa var bunun için yardımcı olurmusunuz.
birde kaydedilen dosyayı açtığımızda uzantı hatası veriyor

Pdf dosyası kayıtı için ofis 2007 kullanmanız gerekiyor.

Bu dosya yanlızca aktif sayfayı farklı kayıt ediyor.
aşağıdaki linkdeki dosyaya bir bakınız orada bir sürü uygulama mevcut

http://www.excel.web.tr/f133/klasor-ve-dosya-olu-turma-secenekleri-t68040.html

 

[esrefilvan]

sorun excel sayfasını açtığımda oluyor. Office 2007 kullanıyorum.

 

[halit3]

sorun excel sayfasını açtığımda oluyor. Office 2007 kullanıyorum.

dosyayı ofis2007 ye çevir ondan sonra deneyiniz.

 

[esrefilvan]

Selam Halit bey
bu kodlarla sadece sayfayı kaydediyor.Benim isteğim sayfaların tamamın tek kitap olarak makrosuz kaydetmek. size ait dosya uygulamaları örneğinizi inceledim ama yapamadım.

 

[halit3]

Selam Halit bey
bu kodlarla sadece sayfayı kaydediyor.Benim isteğim sayfaların tamamın tek kitap olarak makrosuz kaydetmek. size ait dosya uygulamaları örneğinizi inceledim ama yapamadım.

Hepsi var oradaki dosyada
1-yanlız aktif sayfayı çalışma kitabı yap
2-bütün sayfaları çalışma kitabı yap
3-dosyayı yedekle

bunları yapıyor dosya

 

[esrefilvan]

Size zahmet olmazsa örnek bir dosya eklesemde bir baksanız.

 

[halit3]

Size zahmet olmazsa örnek bir dosya eklesemde bir baksanız.

dosyanın içinde 8 adet sayfa var bu sayfaların hepsini ayrı ayrı dosyamı yapmak istiyorsunuz.

 

[esrefilvan]

Hayır tek dosya olarak kayıt etsin fakat içindeki makrolar ve formlar olmasın.
İlginiz için teşekkürler.

 

[halit3]

Dosyayı hangi sürücünün içindeki hangi klasörün içine kayıt yapacaksınız.Dosyanın adı değişecekmi

 

[halit3]

Bu kodu denermisiniz.

Sub farklıkaytet()
Sayfa_Adı = ActiveSheet.Name
Kayıt_Yeri = ThisWorkbook.Path & "\Yedek\"
On Error Resume Next
If Dir(Kayıt_Yeri) = "" Then MkDir Kayıt_Yeri
For i = Len(ThisWorkbook.Name) To 1 Step -1
If Mid(ThisWorkbook.Name, i, 1) = "." Then
yer = Mid(ThisWorkbook.Name, 1, i - 1)
Uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name))
Exit For
End If
Next
ThisWorkbook.Worksheets.Select
ThisWorkbook.Worksheets.Copy
ActiveWorkbook.SaveAs Filename:=Kayıt_Yeri & yer & Format(Now, " dd.mm.yyyy_hh/mm") & Uzanti
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.Save
ActiveWindow.Close
Sheets(Sayfa_Adı).Select
MsgBox "işlem tamam"
End Sub

 

[halit3]

Buda farklı bir uygulama

Sub farklıkaytet()
Sayfa_Adı = ActiveSheet.Name
Kayıt_Yeri = ThisWorkbook.Path & "\Yedek\"
On Error Resume Next
If Dir(Kayıt_Yeri) = "" Then MkDir Kayıt_Yeri
For i = Len(ThisWorkbook.Name) To 1 Step -1
If Mid(ThisWorkbook.Name, i, 1) = "." Then
yer = Mid(ThisWorkbook.Name, 1, i - 1)
Uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name))
Exit For
End If
Next
ThisWorkbook.Worksheets.Select
ThisWorkbook.Worksheets.Copy
ActiveWorkbook.SaveAs Filename:=Kayıt_Yeri & yer & Format(Now, " dd.mm.yyyy_hh/mm") & Uzanti
For i = ActiveWorkbook.Sheets.Count To 1 Step -1
Sheets(i).Select
ActiveSheet.DrawingObjects.Delete
Next i
For Each ModX In ActiveWorkbook.VBProject.VBComponents
Set VBComp = ActiveWorkbook.VBProject.VBComponents(ModX.Name)
ActiveWorkbook.VBProject.VBComponents.Remove VBComp
Set VBCodeMod = ActiveWorkbook.VBProject.VBComponents(ModX.Name).CodeModule
VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines
Next
ActiveWorkbook.Save
ActiveWindow.Close
Sheets(Sayfa_Adı).Select
MsgBox "işlem tamam"
End Sub

 

[esrefilvan]

Halit bey ilginiz ve yardımlarınız için çok teşekkür ederim.
Kodları yarın deneyeceğim. Ellerinize sağlık.

 

[esrefilvan]

Selamlar Halit bey kodlarınız çok güzel çalışıyor,harika olmuş elleriniz dert görmesin.
Yalnız bi sorunla karşılaştım. Makroların içinde açıklamaları yazdıran makroda var onuda silince açıklamaların gösterildiği yerde hata mesajı çıkıyor. bunu nasıl önlerim. Açıklamaları göstermenin başka bir yolu varmı,
veya sayfaları format şekli bozulmadan değer olarak kaydedebilirmiyiz. saygılarımla.

 

[halit3]

Selamlar Halit bey kodlarınız çok güzel çalışıyor,harika olmuş elleriniz dert görmesin.
Yalnız bi sorunla karşılaştım. Makroların içinde açıklamaları yazdıran makroda var onuda silince açıklamaların gösterildiği yerde hata mesajı çıkıyor. bunu nasıl önlerim. Açıklamaları göstermenin başka bir yolu varmı,
veya sayfaları format şekli bozulmadan değer olarak kaydedebilirmiyiz. saygılarımla.

Yukarıdaki mesajlarınızın birisinde;

Selam Halit bey
bu kodlarla sadece sayfayı kaydediyor.Benim isteğim sayfaların tamamın tek kitap olarak makrosuz kaydetmek. size ait dosya uygulamaları örneğinizi inceledim ama yapamadım.

Dosyayı makrosuz kayıt etmek istediğinizi belirtmişsiniz.

 

[esrefilvan]

Halit bey haklısınız dosyanın tamamını makrosuz kayıt istemiştim. Bu arada açıklamaları makro ile yazdırdığımı unutmuşum, sonradan farkına vardım, kusura bakmayın sizi meşgul ettim. Açıklamayı yan hücrede gösteme ile ilgili bir foksiyon varmı bilmiyorum, bunu başka türlü nasıl yapabilirim?

 

[esrefilvan]

Halit bey mesajı görmedi galiba.