Sayfa varsa "DOĞRU" yoksa " YANLIŞ" Yazsın

[Sarigol_937]

Merhaba arkadaşlar Excel de yapmış olduğum Bordromda sayfada şöyle bir şeye ihtiyacım var, "W6" hücresinde yazan sayfa İsmi, "Çalışma Kitabında Varsa "W7" hücresinde "DOĞRU", yoksa " YANLIŞ" yazmasını sağlayan bir formül yapma şansımız varmıdır.

 

[numan şamil]

Merhaba arkadaşlar Excel de yapmış olduğum Bordromda sayfada şöyle bir şeye ihtiyacım var, "W6" hücresinde yazan sayfa İsmi, "Çalışma Kitabında Varsa "W7" hücresinde "DOĞRU", yoksa " YANLIŞ" yazmasını sağlayan bir formül yapma şansımız varmıdır.

Merhaba
Eğer Makro ile olur derseniz
Kodlar

Sub Numan()
    Dim i As Long, Sa As Worksheet
    Set Sa = Sheets("Sayfa1")
    Application.ScreenUpdating = False
    Sa.Range("w7").ClearContents
    Sa.Select
             For i = 1 To Sheets.Count
         If Sa.Range("w6") <> "" And Not sayfavarmi(Sa.Range("w6")) Then
          Sa.Range("w7") = "YANLIŞ"
                  Else
        Sa.Range("w7") = "DOĞRU"
        End If
    Next i
End Sub
Function sayfavarmi(adi As String) As Boolean
    On Error Resume Next
    sayfavarmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function[CODE]

[/CODE]

 

[monelogg]

Merhaba, uğraştım boşa gitmesin, W7 hücresine yazdığımda bende sonuç verdi.

Function sayfa_bul(sayfa_adi As String)

For Each Sheet In Worksheets
    If Sheet.Name <> sayfa_adi Then
        sayfa_bul = "YANLIŞ"
        Else
        sayfa_bul = "DOĞRU"
    End If
Next

End Function

W7 hücresine
=sayfa_bul(W6)

 

[Sarigol_937]

numan şamil ve monelogg arkdaşım çok teşekkür ederim.Şimdi sayfama ekleyeceğim.

 

[numan şamil]

numan şamil ve monelogg arkdaşım çok teşekkür ederim.Şimdi sayfama ekleyeceğim.

İyi çalışmalar