Hücre ile Sekme ismini değiştirme

[ercan_bora]

Selamlar Arkadaşlar,

Türkçe ve İngilizce tek bir fiyat listesi hazırlıyorum.Türkçe radyo butonuna bastığımda tüm yazılar türkçe oluyor ingilizceye basıncada ingilizce.

Yapmak istediğim şey:
Fiyat listemde yaklaşık 10 sekme var. Türkçe fiyat listesinden ingilizceye geçerken bu sekme isimlerinde değişmesini istiyorum.
Mümkün mü böyle bişey ?

Yardımlarınız için şimdiden Allah razı olsun.

Örnek çalışma burada yüklü.
http://s3.dosya.tc/server14/3j33zy/Kitap1.xlsx.html

 

[Muzaffer Ali]

Aşağıdaki şekilde yapabilirsiniz.

Sub SayfaIsmiTurkce()
    Worksheets("Page1").Name = "Sayfa1"
    Worksheets("Page2").Name = "Sayfa2"
End Sub

Sub SayfaIsmiIngilizce()
    Worksheets("Sayfa1").Name = "Page1"
    Worksheets("Sayfa2").Name = "Page2"
End Sub

 

[ercan_bora]

Aşağıdaki şekilde yapabilirsiniz.

Sub SayfaIsmiTurkce()
    Worksheets("Page1").Name = "Sayfa1"
    Worksheets("Page2").Name = "Sayfa2"
End Sub

Sub SayfaIsmiIngilizce()
    Worksheets("Sayfa1").Name = "Page1"
    Worksheets("Sayfa2").Name = "Page2"
End Sub

Selamlar....

çalışma üzerine Alt+F11 ile yapıştırdım fakat end hatası veriyor. nasıl adapta edicez bunu farklı bir yolu mu var acaba ?

 

[Muzaffer Ali]

Dosya
http://s3.dosya.tc/server14/d24l8m/Kitap1.zip.html

 

[ercan_bora]

Dosya
http://s3.dosya.tc/server14/d24l8m/Kitap1.zip.html

Allah razı olsun....

 

[ercan_bora]

Fiyat listesinde Türkçe İngilizce ve Rusça olarak.

TR : Fiyat Listesi
EN : Price List
RU : Worksheets("??????? ??????????")

rusçayı yazamıyorum makroya neden ????

mesela başka bir kelime bu : "ТАБЛИЦА ВЫЧИСЛЕНИЯ"