a1 hucresinde yazan sayfa ismi olsun

[kneehot]

selamlar arkadaslar arama yaptım hep tersını buldım sayfa ısmı a1 e yazsın seklıyle. benım ıstedıgım a1 de yazan sayfa ısmı olsun ama macro tek sayfa ıcın degıl tum sayfalar ıcın calıssın.tek bır tıklama ıle tum sayfaların ısımlerı kendı a1 lerınde yazan olsun.tum yardımlara tesekkurler.

 

[İhsan Tank]

selamlar arkadaslar arama yaptım hep tersını buldım sayfa ısmı a1 e yazsın seklıyle. benım ıstedıgım a1 de yazan sayfa ısmı olsun ama macro tek sayfa ıcın degıl tum sayfalar ıcın calıssın.tek bır tıklama ıle tum sayfaların ısımlerı kendı a1 lerınde yazan olsun.tum yardımlara tesekkurler.

merhaba
boş bir module

Sub Düğme3_Tıklat()
ActiveSheet.Name = Range("A1").Value
End Sub

bu kodu yapıştırınız.

 

[kneehot]

merhaba
boş bir module

Sub Düğme3_Tıklat()
ActiveSheet.Name = Range("A1").Value
End Sub

bu kodu yapıştırınız.

sayın İhsan Tank ılgınıze tesekkur ederım bu formul tek sayfa ıcın calısıyor tek tıklama ıle tum sayfalara uygulama sansımız varmıdır.

 

[İhsan Tank]

sayın İhsan Tank ılgınıze tesekkur ederım bu formul tek sayfa ıcın calısıyor tek tıklama ıle tum sayfalara uygulama sansımız varmıdır.

merhaba

Sub Hücreden_Sekmeye()
For i = 1 To Sheets.Count
With Sheets(i)
.Select
.Name = [A1]
End With
Next i
MsgBox "Sayfa İsimlerine A1 Hücresindeki Değer Yazılmıştır.", , "İhsan Tank"
End Sub

bu kodu deneyiniz
a1 hücresindeki değerleri atacak. a1 hücresi boş ise hata verecektir.

 

[kneehot]

Cok tesekkurler

 

[İhsan Tank]

Cok tesekkurler

rica ederim
iyi çalışmalar :mutlu: