DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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ı.Bu çalışma kitabının kod bölümüne aşağıdaki kodu uygulayarak denermisiniz
Kod:Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveSheet.Cells(2, 1) = ActiveSheet.Name End Sub
tşk ederim.Merhaba,
Alternatif olarak aşağıdaki kodu kullanabilirsiniz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A2").Value = ActiveSheet.Name
End Sub