Çalışma Sayfasının İçindeki Belirtilen Sayfayı Farklı Kaydet

[gecemavisi]

Saygıdeğer Arkadaşlar;
Çalışma Sayfamızın içindeki sadece sayfa 3'ü yeni bir exel kitabına farklı isim vererek kaydedebilir miyiz?
Yardımınız ve ilginiz için teşekkürler...
Saygılarımla...

 

[excelman]

Cevabı makro ile mi istiyorsunuz?

 

[gecemavisi]

Evet

 

[excelman]

Sub Sayfa3kopyala()
Application.DisplayAlerts = False
Dim kitap As Workbook, sayfa As Worksheet
Set sayfa = Sheets("Sayfa3")
sayfa.Copy
Set kitap = ActiveWorkbook
sayfaadi = Range("a1").Value
kitap.SaveAs sayfaadi & ".xls"
Application.DisplayAlerts = True
MsgBox "tamam"
End Sub

Sayfaadını Sayfa3 te A1 satırından alıyor.Siz kendinize göre ayarlarsınız.

Kodlar forumdan alınmıştır.

 

[gecemavisi]

Saygıdeğer arkadaşlar;
Saygıdeğer exelman;
Yardımınız için teşekkürler, yalnız ufak bi sorunum var

Burda
sayfaadi = Range("a1").Value
değerini "deneme" sayfasının "n9" hücresindeki değeri almasını nasıl sağlarız.

 

[Ali]

"deneme" sayfasının "n9" hücresindeki değeri almasını nasıl sağlarız

sayfaadi = Worksheets("deneme").Range("N9") olarak değiştirin

 

[gecemavisi]

Hata Veriyor Sn Fructose
Private Sub CommandButton1_Click()
Sheets("deneme").[N19] = TextBox1.Text
Application.DisplayAlerts = False
Dim kitap As Workbook, sayfa As Worksheet
Set sayfa = Sheets("sayfa3")
sayfa.Copy
Set kitap = ActiveWorkbook
sayfaadi = Worksheets("deneme").Range("N19")
kitap.SaveAs sayfaadi & ".xls"
Application.DisplayAlerts = True
Unload Me
MsgBox "İş Bitti"
UserForm1.Show
End Sub

 

[abdi]

Hata Veriyor Sn Fructose
Private Sub CommandButton1_Click()
Sheets("deneme").[N19] = TextBox1.Text
Application.DisplayAlerts = False
Dim kitap As Workbook, sayfa As Worksheet
Set sayfa = Sheets("sayfa3")
sayfa.Copy
Set kitap = ActiveWorkbook
sayfaadi = Worksheets("deneme").Range("N19")
kitap.SaveAs sayfaadi & ".xls"
Application.DisplayAlerts = True
Unload Me
MsgBox "İş Bitti"
UserForm1.Show
End Sub

Dim sayfaadi as string
Şeklinde Tanımlama yaptıktan sonra denermisiniz.

 

[gecemavisi]

Gene Hata veriyor Sn Abdi Bey;

Hata Veriyor Sn Fructose
Private Sub CommandButton1_Click()
Sheets("deneme").[N19] = TextBox1.Text
Application.DisplayAlerts = False
Dim kitap As Workbook, sayfa As Worksheet
Set sayfa = Sheets("sayfa3")
sayfa.Copy
Set kitap = ActiveWorkbook
sayfaadi = Worksheets("deneme").Range("N19")
kitap.SaveAs sayfaadi & ".xls"
Application.DisplayAlerts = True
Unload Me
MsgBox "İş Bitti"
UserForm1.Show
End Sub

 

[abdi]

Tam olarak hangi satırda hata verdiğini
kodu f8 ile adımlayıp hata veren kod bloğunu yazabilirsiniz.
Hatta ekleyebilirseniz küçük bir çalışma dosyası ekleyin onun üzerinden bakalım.

EDİT : Bu konu ile ilgili olarak Aşağıdaki linke bakmanızı da rica edeceğim

http://www.excel.web.tr/viewtopic.php?t=17011&postdays=0&postorder=asc&start=0

 

[gecemavisi]

Valla sonun da hallettim Arkadaşlar,
Sorun meğerse N19 da imiş, içindeki değeri silince çalıştı,
İlginiz ve yardımlarınız için teşekkürler