Sheet ismini herhangi bir hücreye yazdıran makro

[ottoman71]

Merhaba Arkadaşlar,

Excel sayfamda 1'den fazla sheet oluyor ve bu sheetlerin herbirine isim veriyorum. Her sheet ismi de o sheetdeki örneğin a2 hücresine yazıyorum.
Benim ihtiyacım olan sheet ismini yazdığımda veya değiştirdiğimde a2 hücresindeki isim de değişsin.
Yardımcı olursanız sevinirim.

 

[uzmanamele]

merhaba

ThisWorkbook bölümüne yazarak deneyiniz.
sayfa aktif olduğunda A2 ye sayfa adını yazacaktır

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a2") = ActiveSheet.Name
End Sub

değişikliği anında göreyim derseniz bunu deneyin

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("a2") = ActiveSheet.Name
End Sub

 

[ottoman71]

Çok teşekkur ederim. İşime yaradı.

 

[ottoman71]

Bir sorum daha olacaktı güncel tarihi nasıl hücre içerisine yazdırabiliriz.

 

[İhsan Tank]

=bugün()

=şimdi()

hücreye formül olarak giriniz

 

[ottoman71]

teşekkur ederim.

 

[İhsan Tank]

teşekkur ederim.

rica ederim iyi çalışmalar

 

[parametre]

yazdırılmasını istedigin hucreye bu formulu yaz =ŞİMDİ()

 

[ottoman71]

Bu tarih yazdırmayı buton atıyarak yapabilirmiyiz.
Yukarıdaki formulü yazdığımda ilerki zamanlarda dosyayı açtığım zaman o günün tarihini gösterecek.
Dosyanın ne zaman hazırlandığı tarihi göstermeyecek. Bu neden ile buton ile tarih yazdırmak daha doğru olacak.

 

[İhsan Tank]

=bugün() için

Private Sub CommandButton1_Click()
Range[COLOR="red"]("B4").[/COLOR]Select
ActiveCell.FormulaR1C1 = "=TODAY()"
MsgBox " excel.web.tr ailesine teşekkürler"
End Sub

=şimdi() için

Private Sub CommandButton2_Click()
Range[COLOR="Red"]("B10").[/COLOR]Select
ActiveCell.FormulaR1C1 = "=NOW()"
MsgBox " excel.web.tr ailesine teşekkürler"
End Sub

kırmızılar hücre yeridir.

dosya ektedir.

 

[ottoman71]

Çok teşekkur ederim.
İyi çalışmalar.

 

[ottoman71]

Teşekkur ederim.
İyi Çalışmalar.

 

[İhsan Tank]

Teşekkur ederim.
İyi Çalışmalar.

rica ederim iyi çalışmalar