sayfaya tıklayınca sayfa adını okuma ?

[blackkugu]

Merhaba arkadaşlar vba ile excel'de sayfaya tıklayınca sayfa isminin o sayfadaki a2 hücresine yazdırmak istiyorum. Yapılabilir mi ?

 

[yanginci34]

Bu çalışma kitabının kod bölümüne aşağıdaki kodu uygulayarak denermisiniz

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Cells(2, 1) = ActiveSheet.Name
End Sub

 

[blackkugu]

Bu çalışma kitabının kod bölümüne aşağıdaki kodu uygulayarak denermisiniz

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Cells(2, 1) = ActiveSheet.Name
End Sub

yok hocam olmadı altta sayfalara tıklıyorum o sayfaya gelince yazmadı.

 

[blackkugu]

Private Sub Worksheet_Activate()
Range("Z3").Value = ActiveSheet.Name
End Sub

bu şekilde oldu yinede tşk ederim sağolun

 

[ridvanucok]

Merhaba,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

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

 

[blackkugu]

Merhaba,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

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

tşk ederim.