Mesaj Kutusu

[ozuberk]

Merhaba,

A3:A101 arası hücrelerde "hata" yazıyor ise MsgBox alt alt o hücreleri nasıl gösterebilirim?
Teşekkürler

Saygılarımla,

 

[Orion1]

Buyurun.

Sub hata59()
Dim i As Byte
For i = 3 To 101
    If Cells(i, "A").Value = "hata" Then _
        deg = deg & vbLf & Cells(i, "A").Address
Next
MsgBox deg, vbOKOnly, "evrengizlen@hotmail.com"
End Sub

 

[ozuberk]

Sn. Orion1 elinize sağlık teşekkür ederim. Kolay gelsin