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

Katılım
14 Kasım 2016
Mesajlar
170
Excel Vers. ve Dili
2016
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Bu şekilde deneyin.
Kod:
Sub FKaydet()
    Isim = [a1] & " " & Left([a2], 3)
    ActiveSheet.Copy Before:=Sheets(1)
    ActiveSheet.Name = Isim
End Sub
 
Üst