SAVE AS MAKROSU SADECE BELİRTİLEN SAYFAYI KAYDETSİN

[turkanet]

AŞAĞIDAKİ KODLA SAYFAYI BELİRTİLEN HÜC DEĞERİYLE FARKLI KAYDEDİYORUM. AMA ÇALIŞMA KİTABININ TAMAMINI KAYDETMESİN İSTİYORUM. YA O AN AKTİF SAYFA HANGİSİYSE ONU, YADA BELİRLİ BİR SAYFAYI (ÖRN:SAYFA1) KAYDETSİN İSTİYORUM. BU KODU NASIL DEĞİŞTİREBİLİRİM?

Private Sub CommandButton1_Click()
ChDir "C:\Documents and Settings\USER\Belgelerim\DENEME"
Dosya = Application.GetSaveAsFilename([E6].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub

 

[Kullanıcı_Adı]

Kodunu incelemedim ama ActiveWorkbook.SaveAs yerine ActiveSheet.SaveAs yazarsan düzelecek gibi :hihoho:

 

[turkanet]

O ŞEKİLDE OLMADI. ACABA HANGİ KODU EKLEMELİYİM?

 

[turkanet]

ARKADAŞLAR CEVABI BİLEN YOK MU?

 

[alipinar]

Merhaba ben aşağıdaki kodu tek bir sayfanın yedeğini almada kullanıyorum. Belki işine yarar. Önceden yedek dosyasını (yedek.xls) ve klasörü oluşturmak gerekiyor. Hangi sayfa aktif ise onun kopyalıyor.


Private Sub CommandButton2_Click()
ad = ActiveWorkbook.Name
adr = ActiveWorkbook.Path
Workbooks.Add
ad2 = ActiveWorkbook.Name
Set s1 = Workbooks(ad2)
Workbooks(ad).Activate
ActiveSheet.Copy after:=s1.Sheets(s1.Sheets.Count)
For a = 1 To s1.Sheets.Count - 1
Application.DisplayAlerts = False
s1.Sheets(1).Delete
Next
s1.SaveAs Filename:="D:\ali\yedek.xls"
s1.Close

End Sub

 

[turkanet]

SN.ALİPİNAR'IN VERDİĞİ KOD BELİRLİ BİR SAYFA İÇİNE KOPYALIYOR. BEN İSE, SADECE AKTİF SAYFAYI ALIP, FARKLI KAYDETSİN İSTİYORUM. ÇOK MU ZOR BİR ŞEY İSTİYORUM? EN AZINDAN CEVABI BİLEN BİRİ VARSA VE BU İMKANSIZSA SÖYLESİN DE, BAŞKA BİR YÖNTEM ARAYAYIM...

TEŞEKKÜRLER...

 

[turkanet]

YANİ ŞİMDİ KOSKOCA EXCEL'DE SADECE AKTİF SAYFAYI A1'DEKİ İSİMLE FARKLI KAYDEDECEK KODLAR YADA BU KODLARI BİLEN BİR ARKADAŞ YOK MU?

 

[turkanet]

arkadaşlar... sn.alipinar'ın kodunu şu şekilde değiştirdim:

Sub SAVEAS()
ad = ActiveWorkbook.Name
adr = ActiveWorkbook.Path
Workbooks.Add
ad2 = ActiveWorkbook.Name
Set s1 = Workbooks(ad2)
Workbooks(ad).Activate
ActiveSheet.Copy after:=s1.Sheets(s1.Sheets.Count)
For a = 1 To s1.Sheets.Count - 1
Application.DisplayAlerts = False
s1.Sheets(1).Delete
Next
s1.SAVEAS = "C:\Documents and Settings\user\Belgelerim" & [a1]
ActiveWorkbook.Close
End Sub

"workbook sınıfının SaveAs özelliği kurulamıyor" diyor ve
s1.SAVEAS = "C:\Documents and Settings\Cem\Belgelerim" & [a1] satırını sarıya boyuyor. bu satırdaki hata nerde? bu arada belgelerimin içine kaydediyor. ama adlandırma yapmıyor. bir de farklı kaydettikten sonra ana (ilk) kitabı kapatması lazım. farklı kaydettiğini açık tutması lazım.

değerli cevaplarınızı beklerim...

 

[turkanet]

arkadaşlar,

Sub SAVEAS()
ad = ActiveWorkbook.Name
adr = ActiveWorkbook.Path
Workbooks.Add
ad2 = ActiveWorkbook.Name
Set s1 = Workbooks(ad2)
Workbooks(ad).Activate
ActiveSheet.Copy after:=s1.Sheets(s1.Sheets.Count)
For a = 1 To s1.Sheets.Count - 1
Application.DisplayAlerts = False
s1.Sheets(1).Delete
Next
ChDir "C:\Documents and Settings\user\Belgelerim\deneme"
Dosya = Application.GetSaveAsFilename([A1].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SAVEAS (Dosya)
ActiveWorkbook.Close
End Sub

yapınca oldu. ama çok enteresan birşey var, ana kitap (farklı kaydetmeden önceki kitap) farklı kaydedince kapanmıyor. son istediğim, hem o, hem de farklı kaydettiğim kitap kapansın. çok az kaldı. bir bilen olsa...

 

[akd]

Merhaba sayın endorphinn
malesef excelde yalnızca bir sayfayı kaydet özelligi yok,
hangi türlü kaydet dersen de kitabın tamamını kaydeder.
Aynı soruyu bende diger arkadaşlarda defalarca sormuştuk çünkü.
iyi çalışmalar...

 

[abdi]

[vb:1:f031993190]Sub sayfayedekle()
Dim i As String
Dim b As String

i = ActiveSheet.Name
b = Format(Now, "dd mm yyyy hh mm nn")
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\yedek1\" & i & b & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True

Workbooks(i & b & ".xls").Activate
ActiveWorkbook.Close
ActiveWorkbook.Save
End Sub
[/vb:1:f031993190]
aynı soru bi başka arkadaş tarafından sorulmuştu link

http://www.excel.web.tr/viewtopic.php?t=16819&start=0
lütfen arama menüsünü de kullanalım
http://www.excel.web.tr/search.php

Saygılar Sevgiler
Çalışmalarınızda Başarılar Dilerim.

 

[turkanet]

verdiğiniz kodda

Workbooks(i & b & ".xls").Activate

satırı hatalı diyor. ayrıca ben tarih ve saat,vs değil, a1 hücresindeki değerle kaydetsin istiyorum.

 

[turkanet]

sn.abdi. hatalı satırı silince oldu. ama bir tek şu kaldı:
hem ana dosyayı kaydetmeden kapatsın hem de farklı kaydettiğini kapatsın. bu iki dosya da kapansın. ama eğer başka excel çalışmalarım varsa onlar kapanmadan olsun bu işlem. bu mümkün mü?
teşekkürler...

 

[abdi]

örnek dosyaya bakınız

 

[turkanet]

sn.abdi,
mükemmel olmuş. o halde bu çalışmanızdan saat ve tair fonksiyonunu çıkartıp, bir de ana dosyayı da kapatan kodları ekleyebilir misiniz? (özellikle farklı kaydet peneresi açmadan direk kaydetmesi çok güzel)
cevabınızı beklerim...

 

[abdi]

en son kodlama
[vb:1:d5564a24a2]
Sub yenisayfayedekle()
Dim i As String
If ActiveSheet.Range("a1").Value <> "" Then
i = ActiveSheet.Range("a1").Value
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\yedek1\" & i & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True

Workbooks(i & ".xls").Activate
ActiveWorkbook.Close

ThisWorkbook.Close
Else: Exit Sub
End If
End Sub

[/vb:1:d5564a24a2]

 

[turkanet]

TAMAMLANDI. MİNNETTARIM :bravo: :bravo: :bravo: :dua: :dua: :dua:

 

[abdi]

rica eder
Çalışmalarınızda Başarılar Dilerim.

 

[turkanet]

SN.ABDİ,
düğmeyi commandbuton yapmadan makroya nasıl bağladınız?

 

[abdi]

formlar menüsündeki command butonu ekleyerek