Sheetin 2. sayfasını farklı kaydetme

[vBlue]

Bir sheette birincisi veri girişi ikincisi form olmak üzere 2 tane sayfa var. 2. sayfa bir buton ile ve belli bir isimle masaüsütüne farklı kaydedilecek. yani farklı kaydedilen excel dosyasında sadece 2. sayfa bulunacak.
ilginiz için şimdiden teşekkürler !

 

[dEdE]

Bir sheette birincisi veri girişi ikincisi form olmak üzere 2 tane sayfa var. 2. sayfa bir buton ile ve belli bir isimle masaüsütüne farklı kaydedilecek. yani farklı kaydedilen excel dosyasında sadece 2. sayfa bulunacak.ilginiz için şimdiden teşekkürler !

Merhaba, dosyanızda,

"formu kaydet" tuşuna basılınca home sheetinin 2. sayfası "c12 c2" ismi ile farklı kaydedilecek.

diyorsunuz , yukarıda ise "birincisi veri girişi ikincisi form olmak üzere 2 tane sayfa var" diyorsunuz ama dosyanızda sadece bir sayfa var.
Sanırım terminolojide anlaşmamız gerekecek. Sheet zaten Sayfa demek ve bir sayfalı Çalışma kitabı (Workbook) eklemişsiniz. Ne veri girişi ne de form sayfası var.????

 

[vBlue]

sayın dEdE !
"home" isimli çalışma sayfasını önizleme yaparsanız, karşınıza 2 tane sayfa gelecektir. işte "FORM" diye başlayan 2. sayfanın farklı kaydedilmesinden bahsediyorum.
teşekkürler !

 

[dEdE]

sayın dEdE !
"home" isimli çalışma sayfasını önizleme yaparsanız, karşınıza 2 tane sayfa gelecektir. işte "FORM" diye başlayan 2. sayfanın farklı kaydedilmesinden bahsediyorum.teşekkürler !

Merhaba,
Örnek dosyalarda ön izleme yapılması gerektiğini bilmiyordum !

Neyse, dosyanızı aşağıya ekledim.

Sub Yedek_Al()
Set s1 = Sheets("Home")
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
  s2.Visible = True
  s2.Select
  s2.Cells.ClearContents
  s2.Range("A1:D32").Value = s1.Range("A31:D63").Value
  Sheets("Sayfa2").Copy
  ActiveWorkbook.SaveCopyAs Filename:="C:\Users\toshıba\Desktop" & Application.PathSeparator & "c12c2.xls"
    ActiveWorkbook.Close 0
    s2.Visible = False
    s1.Select
Application.ScreenUpdating = True
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[vBlue]

çok teşekkürler !
tam istediğim gibi olmuş.
sanırım benim yanlış tanımlamamdan dolayı farklı kaydedilen dosya adında sorun var.
c12 c2 derken o hücrelerde var olan verilere göre isim alacak demek istemiştim.
ama o da sorun değil. onu sanırım ben tanımlayabilirim.

 

[dEdE]

Merhaba,

Aşağıdaki mavi satırı koddaki satırın yerine yazmanız yeterli.

Sheets("Sayfa2").Copy
  [COLOR="Blue"]ActiveWorkbook.SaveCopyAs Filename:="C:\Users\toshıba\Desktop" & Application.PathSeparator & s1.[B21].Value & ".xls"[/COLOR]    
ActiveWorkbook.Close 0

 

[vBlue]

şimdi herşey tamam oldu.
teşekkürler !

 

[dEdE]

şimdi herşey tamam oldu.teşekkürler !

Rica ederim.
Güle güle kullanın.

 

[CaSpi]

Sub Yedek_Al()
Set s1 = Sheets("Home")
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
s2.Visible = True
s2.Select
s2.Cells.ClearContents
s2.Range("A132").Value = s1.Range("A3163").Value
Sheets("Sayfa2").Copy
ActiveWorkbook.SaveCopyAs Filename:="C:\archive\" & Application.PathSeparator & s1.[B21].Value & ".xls"
ActiveWorkbook.Close 0
s2.Visible = False
s1.Select
Application.ScreenUpdating = True
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub


Bu kodlar hata veriyor. vBlue kardeş bu kodlar sende çalışıyormu?

 

[dEdE]

Bu kodlar hata veriyor. vBlue kardeş bu kodlar sende çalışıyormu?

Merhaba,
Verdiği hata nedir? Hata mesajını yazarsanız çözüm bulunur.
Tahmin yoluyla söyleyeyim. Dosyanızda Sayfa2 isimli sayfa yoksa hata verir. 4 nolu mesaja ekli dosyayı incelerseniz dosyada gizli Sayfa2 isimli sayfa olduğunu göreceksiniz.
Hoşçakalın.

 

[CaSpi]

Beyler sorun hall oldu. Tam isediyim bişey. Teşekkürler.

 

[turkuaz81]

Ben dosya adını hücreye bağlayamadım yardımcı olurmusunuz?

 

[dEdE]

Ben dosya adını hücreye bağlayamadım yardımcı olurmusunuz?

Merhaba,
6 numaralı mesajımda dosya adını hücreden alan kod satırı mavi olarak işaretlenmiştir. Dosya adı B21 hücresinden alınmaktadır.