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.
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.
Kod:
Sub makro1()
eskiad = ActiveSheet.Name
yeniad = InputBox("Sayfanın yeni adını veriniz")
If yeniad = "" Then yeniad = eskiad
Sheets(eskiad).Name = yeniad
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.