Öyle Bir Sayfa Yok ise, Kodu

[Seyit Tiken]

S.A, arkadaşlar şöyle bir kodum var, kod'tan da anlaşılacağı gibi, ilgili sayfa yoksa ise nasıl bir kod cümlesi ilave edilmesi gerek, teşekkür ediyorum, Allah razı olsun

Sayfa5.[D7].Value = [G29].Value: Sayfa5.Select
Sayfa5.Range("L8").Select

Örnek Olarak : Sayfa5 yoksa kod mesaj verip işlem yapmasın

 

[muygun]

Merhaba;
Ekteki kodları kendinize uyarlayın.
(ben sayfa adını kodun çalıştığı sayfada A1 hücresinden aldırdım.)
İyi çalışmalar.

 

[Seyit Tiken]

Sayın muygun, RAR'ları açamıyoruz, kodu kopyalayabilir misin

 

[muygun]

Elbette..
Boş bir modüle;

Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

Sub kont()
On Error Resume Next
Dim Sayfa As String
Sayfa = Cells(1, 1)
If SayfaVarMi(Sayfa) = True Then
MsgBox ("sayfa var")
End If
If SayfaVarMi(Sayfa) = False Then
MsgBox ("sayfa yok")
End If
End Sub

Ekleyerek deneyin.

 

[Ziynettin]

Alternatif,
Hata denetimi kullanarak olabilir mi?

On Error Resume Next
    Err = 0
    Sayfa5.[D7].Value = [G29].Value: Sayfa5.Select
    Sayfa5.Range("L8").Select
    If Err <> 0 Then
        MsgBox "Sayfa bulunmuyor.", vbCritical
    End If
On Error GoTo 0

 

[Seyit Tiken]

Sayın muygun çook teşekkür ediyorum, işlem tamam.

 

[Seyit Tiken]

Sayın Ziynettin bey çook teşekkür ediyorum, aradığım koddu.