Sayfa Açıldığında Uyarı Mesajı Vermesi

[akmes]

Merhabalar,

Sayfa1 de A sütununun herhangi bir satırında "Yanlış" diye bir kelime olduğunda sayfa1 her açıldığında "Yanlış" yazılan hücrenin hangi satırda olduğunu bana bildirsin mesela "Yanlışlık var A25" gibi.İlginiz için şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

Sayfa1'in kod bölümüne kopyalayınız.

Option Compare Text
 
Private Sub Worksheet_Activate()
 
Dim c As Range, ilkadres As Variant
 
With Range("A:A")
    Set c = .Find("*YANLIŞ*", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            MsgBox Range("A" & c.Row).Address(), vbCritical, "Hatalı Hücreler"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
 
End Sub

.

 

[uzmanamele]

merhaba

alternatif kod

Private Sub Worksheet_Activate()
Dim adres As String
Dim hcr As Range
For Each hcr In Range("a1:d5")
If hcr.Text = "YANLIŞ" Then
adres = adres & Chr(10) & hcr.Address
End If
Next
MsgBox adres & Chr(10) & "hücreleri yanlış!"
End Sub

 

[akmes]

Sn Ömer hocam ve Sn uzmanamale hocam çok teşekkür ederim.Emeğinize sağlık.

 

[akmes]

merhaba

alternatif kod

Private Sub Worksheet_Activate()
Dim adres As String
Dim hcr As Range
For Each hcr In Range("a1:d5")
If hcr.Text = "YANLIŞ" Then
adres = adres & Chr(10) & hcr.Address
End If
Next
MsgBox adres & Chr(10) & "hücreleri yanlış!"
End Sub

Sayın uzmanamale Yanlış ibaresi olmadığında uyarı çıkmamasını nasıl sağlarız.Çünkü Yanlış olmasada sizinkinde Sadece "hücreleri yanlış!" ibaresi çıkıyor.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Activate()
Dim adres As String
Dim hcr As Range
For Each hcr In Range("a1:d5")
If hcr.Text = "YANLIŞ" Then
adres = adres & Chr(10) & hcr.Address
End If
Next
If adres <> "" Then MsgBox adres & Chr(10) & "hücreleri yanlış!"
End Sub

 

[akmes]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Activate()
Dim adres As String
Dim hcr As Range
For Each hcr In Range("a1:d5")
If hcr.Text = "YANLIŞ" Then
adres = adres & Chr(10) & hcr.Address
End If
Next
If adres <> "" Then MsgBox adres & Chr(10) & "hücreleri yanlış!"
End Sub

Evet tam istediğim gibi oldu.İlginiz ve emeğiniz için çok teşekkür ederim.