Hücredeki bilgileri sayfa (sekme) adında görmek

[3dmaster]

Merhaba,

Hücreye yazacağım bilgileri sayfa (sekme) adına otomatik olarak yazılmasını istiyorum.

Private Sub Worksheet_Activate()
ActiveSheet.Name = "D10"
End Sub

ve

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("D10")
End Sub

olarak kodu yazdım fakat bi sonuç alamadım. Yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

Yanıt

B u şekil deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Name = Range("D10")
End Sub

 

[3dmaster]

B u şekil deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Name = Range("D10")
End Sub

Malesef olmadı.

Bu formülü hazırladığım bir excell şablonunda kullanmak istiyorum. Daha önce buna benzer bi formül işe yaramıştı. fakat sonradan uyguladığım formüller işe yaramıyor. Acaba bu formüllerin aktif olmasını engellemiş olabilir miyim?

 

[3dmaster]

Yardımcı olacak yok mu?

 

[gezgin-49]

Sayın 3dmaster N.Ziya Hiçdurmaz hocamızın göndermiş olduğu kodlar çalışıyor, dosyanız büyük ise küçük bir kısmını gönderirseniz daha iyi olur.

 

[3dmaster]

Sayın 3dmaster N.Ziya Hiçdurmaz hocamızın göndermiş olduğu kodlar çalışıyor, dosyanız büyük ise küçük bir kısmını gönderirseniz daha iyi olur.

Örnek bir dosya hazırladım. Bakarsanız sevinirim. Teşekkür Ederim.

 

[Ayhan Ercan]

Örnek bir dosya hazırladım. Bakarsanız sevinirim. Teşekkür Ederim.

Selam
Yollamış olduğunuz ek dosyada istediğiniz şey çalışmaktadır...

D10 hücresinin biçimlendirmesni tarih olarak belirlemişsiniz.
D10 hücresine yazdığınız tarih, sayfanın ismi olarak değişmektedir...

Yapmak istediğiniz başka bişeymidir? sorunuz anlaşılmadı..

 

[Ömer]

Merhaba,

Araçlar / Makro / Güvenlik ayarlarınızdan Düşük önerilmez işaretli olup olmadığını kontrol edermisiniz..

 

[gezgin-49]

sayın 3dmaster göndermiş olduğunuz dosyada D10 hücresine herhangi bir tarih yazdım ve sayfa adı D10 hücresine yazdığım tarihin ismini aldı, yani anlayacağınız kodlar düzgün çalışıyor.

 

[3dmaster]

Hepinize teşekkür ederim. Macro ayarlarında macrolar kapalıymış. Sıkıntı bundan kaynaklanıyormuş. Yardımlarınız için tekrar teşekkür ederim.