Çözüldü Sayfalardaki belirli metne göre uyarı metni

[okavut]

Hazırlamış olduğum dosyada userform dan seçilen sayfaya gidiliyor. Açılan sayfada r3:w35 arasında Temlik-İcra-Haciz yazısı var ise "Her Sayfada Bulunmuyor" kullanıcı tanımlı uyarı mesajı yazması ve bu mesaj kapatılmadan sayfada işlem yapılmaması gerekmektedir.
Konu hakkında yardımda bulunabilecek arkadaşlara şimdiden teşekkür ederim.
Saygılarımla

 

[hamitcan]

Bu şekilde deneyin.

Sub Kontrol()
    For Each sht In Sheets
        With WorksheetFunction
        x = .CountIf(sht.Cells, "*icra*")
        y = .CountIf(sht.Cells, "*haciz*")
        Z = .CountIf(sht.Cells, "*Temlik*")
        sht.Activate
        If x >= 1 Then MsgBox "Her Sayfada Bulunmuyor"
        If y >= 1 Then MsgBox "Her Sayfada Bulunmuyor"
        If Z >= 1 Then MsgBox "Her Sayfada Bulunmuyor"

        End With
    Next
End Sub

 

[okavut]

Hamit bey ilginize çok teşekkür ederim
Özür dilerim ben yanlış ifade ettim
Benim isteğim açılan sayfada r3:w35 arasında icra haciz temlik yazılı ise uyarı mesajı gelmesiydi "Sayın (Kullanıcı Ismi) bu işde haciz-Temlik-İcra Var Dikkat)
Bu icra temlik haciz bazı işlerimizde oluyor, bende olan sayfalarda bu uyarı ekranının gelmesini için uğraştım
Saygılarımla

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Left(Sh.Name, 2) = "BS" Then
     With WorksheetFunction
        x = .CountIf(Sh.Range("R3:W35"), "*icra*")
        y = .CountIf(Sh.Range("R3:W35"), "*haciz*")
        Z = .CountIf(Sh.Range("R3:W35"), "*Temlik*")
        If x >= 1 Then MsgBox "Sayın " & Environ("USERNAME") & " bu işde haciz-Temlik-İcra Var Dikkat)"
        If y >= 1 Then MsgBox "Sayın " & Environ("USERNAME") & " bu işde haciz-Temlik-İcra Var Dikkat)"
        If Z >= 1 Then MsgBox "Sayın " & Environ("USERNAME") & " bu işde haciz-Temlik-İcra Var Dikkat)"

        End With
    End If
End Sub

 

[okavut]

Sayın Hamitcan Bey
Çok teşekkür ederim saolu
Size dosyayı gönderirken kısaltma yapmıştım dosya boyutundan
bu dosyada daha farklı sayfa isimleri de var "pr1,pr2,... GSYP1,GSYP2....,G1,G2..." gibi bunlar için ayrı yaptım olmadı sadece "bs" leri değiştirmiştim.
Saygılarımla

 

[hamitcan]

Bence sayfa isimlerinin başına ortak bir kullanacağınız bir harf kullanın.

 

[Ömer BARAN]

Merhaba.
Sayın @hamitcan 'ın müsadeleriyle; Sayın hamitcan'ın verdiği kodun başındaki
If Left(Sh.Name, 2) = "BS" Then şeklindeki kod satırını If ActiveSheet.[H1] = "H A R C A M A" Then
olarak değiştirip, verilen kod'u BuÇalışmaKitabı (ThisWorkbook) bölümüne uygularsanız,
H1 hücresinde H A R C A M A ibaresinin olduğu sayfalardan herhangi biri aktive edildiğinde,
ilgili sütunlarında aranan veri varsa istenilen UYARI gerçekleşecektir.
.

 

[hamitcan]

Ömer Bey, müsaade sizin... Gördüğünüz bir şey olduğunda paylaşmaktan lütfen kaçınmayın.

 

[okavut]

Ömer Bey, müsaade sizin... Gördüğünüz bir şey olduğunda paylaşmaktan lütfen kaçınmayın.

Sayın Hamitcan Bey
Çok teşekkür ederim.
Saygılarımla

 

[okavut]

Ömer Bey, müsaade sizin... Gördüğünüz bir şey olduğunda paylaşmaktan lütfen kaçınmayın.

Sayın Ömer bey
Çok teşekkür ederim.
Saygılarımla

 

[Ömer BARAN]

Kolay gelsin.