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

Katılım
20 Şubat 2006
Mesajlar
259
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...
 
Katılım
3 Eylül 2004
Mesajlar
174
Excel Vers. ve Dili
Excel-2002 Türkçe
Kod:
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.
 
Katılım
20 Şubat 2006
Mesajlar
259
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

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
"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
 
Katılım
20 Şubat 2006
Mesajlar
259
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
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
gecemavisi' Alıntı:
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.
 
Katılım
20 Şubat 2006
Mesajlar
259
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
 
Katılım
20 Şubat 2006
Mesajlar
259
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
 
Üst