Bulunduğumuz sayfanın ismini bize soracak makro

[bezl]

Bir sayfada çalıştıktan sonra o sayfanın ismini değiştirmek için bur tuş kombinasyonuna basınca bize sayfaya istediğimiz ismi verdirecek makroyu nasıl yazabiliriz.

 

[mehmett]

Ekte bir örnek gönderiyorum sayın bezl.

 

[Serpily]

Daha güzel çözümler gelecektir ama ben şöyle yapabildim.

Ã?nce makro kaydet özelliği ile bir tuş kombinasyonuna rasgele bir makro kaydettim. Sonra makronun içeriğini şöyle değiştirdim.

Sub makro1()
eskiad = ActiveSheet.Name
yeniad = InputBox("Sayfanın yeni adını veriniz")
If yeniad = "" Then yeniad = eskiad
    Sheets(eskiad).Name = yeniad
End Sub