Sayfa ismine göre kodu revize etmek

[Erdal]

Merhabalar
Aşağıdaki kod ile aktif sayfanın A2 hücresine oncsyfnm & "'!a2+1 formülünü yazdırıyorum. Benim istediğim ise önce aktif sayfanın ismine baksın. Eğer sayfa ismi 1 ise A2 hücresine 1 yazsın. Faklı bir isim ise kod devreye girsin. Acaba kodu nasıl revize etmem gerekiyor. Saygı ve selam ile …

Private Sub Worksheet_Activate()
On Error Resume Next
oncsyf = ActiveSheet.Index - 1
oncsyfnm = Sheets(oncsyf).Name
ActiveSheet.Range("a2").Formula = "='" & oncsyfnm & "'!a2+1"
End Sub

 

[AdemCan]

Bu kodu dener misiniz?

Private Sub Worksheet_Activate()
'On Error Resume Next
    If ActiveSheet.Name = 1 Then
        ActiveSheet.Range("A2") = 1
    Else
        oncsyf = ActiveSheet.Index - 1
        oncsyfnm = Sheets(oncsyf).Name
        ActiveSheet.Range("a2").Formula = "='" & oncsyfnm & "'!a2+1"
    End If
End Sub

 

[Erdal]

Teşekkür ederim Adem Bey.

 

[AdemCan]

Rica ederim.