Hücrede hata sorgulama

[oguzka]

Merhaba;

Ekteki dosyada satırlarda mükerrer giriş içeren ve hata mesajı bulunduran hücreleri koşullu biçimlendirme ile biçimlendirdim. Bir buton yardımıyla bu hücrelerde mükerrer giriş olduğunda veya hata mesajı bulundurduğunda mesaj kutusu veren makro nasıl yazabiliriz?

Dosya ektedir.

 

[uzmanamele]

merhaba

buraya bakınız

tık tık tık...

 

[oguzka]

Abi merhaba;

Öncelikle ilgilendiğin için çok teşekkür ederim.

Verdiğin linki inceledim ancak yararlanamadım. Ben mükerrer girişi işaretlettim ancak bir buton yardımıyla belli bir aralıkta böyle bir giriş yapılmış mı onu nasıl sorgulatacağımı bulamadım. Aklıma gelen rengine göre sorgulatmak. Eğer hücre rengi kırmızı ise mesaj kutusu ver gibi bir komutu nasıl yazarız?

 

[uzmanamele]

merhaba

aşağıdaki kodu kendinize göre revize ediniz

Sub MükerrerKayıt()
    ssut = Sheets("sayfa1").Cells(1, 256).End(xlToLeft).Column
For i = ssut To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:IV" & ssut - 1), Cells(1, i)) > 1 Then
MsgBox Cells(1, i).Text & " pozu mükerrer girilmiş"
End If
Next
End Sub

 

[oguzka]

Abi teşekkürler peki hata mesajı içeren hücreleri sorgulatmayı nasıl yaparız?

 

[uzmanamele]

merhaba

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

Sub HatalıSonuç()
On Error Resume Next
    ssut = Sheets("sayfa1").Cells(1, 256).End(xlToLeft).Column
For i = ssut To 2 Step -1
If Cells(2, i).Value = (xlCellTypeFormulas) Then
MsgBox Cells(2, i).Address & " hücresi hatalı sonuç üretiyor"
End If
Next
End Sub

 

[oguzka]

Çok teşekkür ederim abi. Ufak bir revize ile gayet güzel oldu