Çalışma Kitabında Aktif Sayfayı İstenilen İsimle Farklı Kaydetme

[ultraslan38080]

Arkadaşlar benim içinde 10 tane sayfası bulunan .xls uzantılı bir excelim var.
Diyelimki bu kitaptaki sayfalardan birisinin adı İLKOKUL olsun.
İLKOKUL sayfasındaki A1 Hücresinin adı 4A ve A2 hücresinin adını da SOSYAL BİLİMLER olarak yazdık.

Bu İLKOKUL sayfasını A1 ve A2 hücrelerindeki isimlerle 4A SOS olarak farklı bir sayfada aynı çalışma kitabı içerisine kaydetmemiz mümkün müdür?

Aynı yöntemle sadece bu İLKOKUL da değil, aktif olan tüm çalışma kitaplarımda çalışmak istiyorum.

 

[hamitcan]

Sub FKaydet()
    Isim = [a1] & " " & Left([a2], 3)
    Sheets.Add
    ActiveSheet.Name = Isim
End Sub

 

[ultraslan38080]

Sub FKaydet()
    Isim = [a1] & " " & Left([a2], 3)
    Sheets.Add
    ActiveSheet.Name = Isim
End Sub

Çok teşekkür ederim. Çalıştı. 4A SOS isimli sayfa kaydetti. Ancak 4A SOS isimli sayfayı boş açtı. Yani İLKOKUL sayfasındaki verileri aktarmadı.

 

[hamitcan]

Bu şekilde deneyin.

Sub FKaydet()
    Isim = [a1] & " " & Left([a2], 3)
    ActiveSheet.Copy Before:=Sheets(1)
    ActiveSheet.Name = Isim
End Sub

 

[ultraslan38080]

Bu şekilde deneyin.

Sub FKaydet()
    Isim = [a1] & " " & Left([a2], 3)
    ActiveSheet.Copy Before:=Sheets(1)
    ActiveSheet.Name = Isim
End Sub

Evet oluşturdu bu sefer. Çok teşekkür ederim. Çok sağolun.