Hücre içinde yazılı sayfa ismine gitme

[excellkurdu]

Merhaba Arkadaslar,
Hücre içindeki yazılmış sayfa ismine makro ile nasıl gidebiliriz?
Örneğin:
B5 ve B6 değerlerini, B3 hücresinde yazılı sayfa ismindeki K3 ve L3 hücrelerine göndermek istiyorum.
Sayfa Yoksa Mesaj ikazı versin.

 

[YUSUF44]

Aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

Sub kaydet()
Set s1 = Sheets("Sayfa1")
If s1.[B3] = "" Then
    MsgBox "Lütfen verilerin kaydedileceği sayfa adını B2 hücresine yazın!", vbCritical
    Exit Sub
Else
    sayfa = "yok"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = s1.[B3] Then
            Sheets(i).[K3] = s1.[B5]
            Sheets(i).[L3] = s1.[B6]
            sayfa = "var"
            Exit Sub
        End If
    Next
End If
If sayfa = "yok" Then
    MsgBox [B3] & " sayfası bulunamadı!", vbCritical
End If
End Sub

 

[excellkurdu]

Teşekkür ederim Yusuf Bey,
Allah razı olsun. Gayet güzel oldu.

Aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

Sub kaydet()
Set s1 = Sheets("Sayfa1")
If s1.[B3] = "" Then
    MsgBox "Lütfen verilerin kaydedileceği sayfa adını B2 hücresine yazın!", vbCritical
    Exit Sub
Else
    sayfa = "yok"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = s1.[B3] Then
            Sheets(i).[K3] = s1.[B5]
            Sheets(i).[L3] = s1.[B6]
            sayfa = "var"
            Exit Sub
        End If
    Next
End If
If sayfa = "yok" Then
    MsgBox [B3] & " sayfası bulunamadı!", vbCritical
End If
End Sub