Sayfa adını arayıp hücreye yazdırma

excellkurdu

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
Altın Üyelik Bitiş Tarihi
22-03-2026
Arkadaşlar pek çok konu olmasına rağmen küçük bir ayrıntıda takıldım.
Makro ile A1 hücresinde yazan sayfa ismini arayıp Varsa; C1 hücresine yazdırmak istiyorum.
Örnek dosyayı göndermedim kafa karışıklığı olmasın diye.
Şimdiden teşekkür ederim.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,371
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba.

Aşağıdaki Kodları İlgili sayfanın Kod bölümüne kopyalayıp deneyiniz.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If SayfaVarYok([A1]) = True Then
        [C1] = [A1]
    Else
        [C1] = [A1] & " Sayfası Yoktirrrr..."
    End If
    
End Sub

Function SayfaVarYok(SayfaAdı As String) As Boolean

    On Error Resume Next
    SayfaVarYok = CBool(Len(Worksheets(SayfaAdı).Name) > 0)
    
End Function
 
Üst