excel çalıma sayfasında aranan sayfa yoksa

[zulfuernek]

textboxa rakam girdiğimde excel çalışma sayfasında textboxa girdiğim değerde sayfa varsa labele o sayfa nın a3 hücresini getiriyor.

ancak textboxa girdiğim degeri silip yeni değer girdiğimde o sayfa yoksa bile labelde bir önceki kayıda ait bilgiyi gösteriyor.

textboxa girilen veriye ait ilgili bir sayfa yoksa labele birşey yazmasın. yani textbox değerini silip yeniden değer yazdığımda anlık olarak label verisi değişsin.

eğer öyle bir sayfa yoksa labelde birşey yazmasın.

 

[muygun]

Merhaba;
Modülde kullanılan

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

Fonksiyon ile;
=SayfaVarMi("Sayfa1") ile sayfada ilgili sayfa varsa DOĞRU , yoksa YANLIŞ sonucu üretirsiniz.

Bunu Makro içerisinde kullanacaksanız;
diyelimki aranan isimli değişkene sayfa adını atadınız

If Not SayfaVarMi (aranan) Then
sonucuna "sayfa yok ise" kodlarını yerleştirin.
İyi çalışmalar.

 

[zulfuernek]

@muygun hocam;

çok teşekkür ettin verdiğiniz makro harikulade iş gördü. ellerinize emeklerinize sağlık.