Veri Kontrolü ve Hata Mesajı

[magritus]

Merhaba,

Soracağım bu soru belki biraz hazıra konmak istemek gibi olacak ama artık yapmaya çalıştığım şey ile ilgili o kadar bunaldım ki takatim kalmadı. :kafa::kafa::kafa::kafa::kafa:


Yapmak istediğim şu; 3 tane sekmem var, "31.12.2010", "31.12.2011" ve "31.12.2012" isimlerinde. Her sekmenin G229 nolu satırına gidip baksın, bu satırlardan hangisinde "227" yazmıyorsa ekrana "xxx isimli sekmede hata var lütfen kontrol ediniz" mesajı versin.

Elinizde örnekler varsa alıp uyarlamak isterim, saygılar, teşekkürler.

Not: Excel dosyam sadece o 3 sekmeden ibaret değil, bu nedenle tüm sekmelere loop edicek şekilde bir uygulama işimi görmeyecektir.

 

[magritus]

Tekrar merhaba,

Yine dayanamadım kendimce aşağıdaki çözümü buldum. Daha kolayı, kısası, pratiği varsa kabulümdür.

Sub heyhey()
Application.Run ("kontrol1")
Application.Run ("kontrol2")
Application.Run ("kontrol3")
End Sub

Sub kontrol1()
For Each cell In Worksheets("31.12.2010").Range("G229")
If cell.Value = "227" Then
Exit Sub
End If
Next cell
MsgBox "31.12.2010 Tarihli Mizanda hata var."

End Sub

Sub kontrol2()
For Each cell In Worksheets("31.12.2011").Range("G229")
If cell.Value = "227" Then
Exit Sub
End If
Next cell
MsgBox "31.12.2011 Tarihli Mizanda hata var."

End Sub
Sub kontrol3()
For Each cell In Worksheets("31.12.2011").Range("G229")
If cell.Value = "227" Then
Exit Sub
End If
Next cell
MsgBox "31.12.2012 Tarihli Mizanda hata var."

End Sub

 

[Ömer]

Merhaba,

Tüm sayfalara aynı anda bakar.

Sub Kontrol()
 
    Dim i As Integer, msg As String
 
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Range("G229") <> "227" Then
                msg = msg & Chr(10) & .Name
            End If
        End With
    Next i
 
    If msg = "" Then Exit Sub
    MsgBox msg & Chr(10) & "İsimli sekmede hata var, " & _
            "lütfen kontrol ediniz.", , "excel.web.tr"
 
End Sub

.