Hücre içindeki değeri sayfa adına yazsın

[bendiler]

A1 Hücresi içindeki değeri sayfa adına yazacak bir makro arıyorum değiştirdiğimde otomatikman değişmeli yardımınız için teşekkürler

 

[uzmanamele]

merhaba
bu kod işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = [a1]
End Sub

 

[bendiler]

yapamadım bir dosya ile eklermisiniz bunu makro olarak mı kaydetmeliyim
her sayfada geçerli olacakmı

 

[bendiler]

planlama günlükleri var ve a1 hücresinde o günün tarihi yazıyo hücrede değerin sekme adına her sayfada yazmasını istiyorum yardımınız için teşekkürler

 

[bendiler]

yardımcı olacak kimse yok mu...

 

[istsbf2000]

If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = Sheets("sayfa1").Range("A1").Value