H ve K sütünlarına 66'dan büyük rakam girilirse hata mesajı verdirtmek

[lewstherinthelamon]

Merhaba, kullandığım excel dosyasında H ve K sütunlarında 66'dan büyük rakam olur ise hata mesajı verdirtmek istiyorum (basit bir koşullu biçimlendirme yeterli dikkati çekmediği için mesaj kutusu kullanmam daha uygun olacak), buradaki benzer konular için verilmiş örneklerden yola çıktım ancak makroyu çalıştıramadım, açıkçası vba kodları konusunda da deneyimim pek yok. Bu işlev için gerekli kodları gönderebilirseniz sevinirim. Yada bunu excel'de başka bir yöntem ile yapabilirsem o da olur, kullandığım versiyon 2003.

Teşekkürler

 

[peleryn]

Merhabalar;

Dosyanızda şu basamakları takip ederek bir deneyin istediğiniz sonuca ulaşıyor mu?

Veri/Doğrulama/Tüm Sayı/Küçük/66 Tamam...

Girdi İletisi ve Hata mesajını isteğinize göre değiştirebilirsiniz..

 

[Ömer]

Merhaba,

Mesaj verdirmek için. Module kopyalayarak çalıştırın..

Option Explicit
 
Sub MesajVer()
Dim i As Long, son As Long, mesaj As Variant, msj As Variant
son = Application.Max([H65536].End(3).Row, [K65536].End(3).Row)
mesaj = "...::: 66 ' dan Büyük Hücreler :::... " & vbCr
    For i = 1 To son
        If Cells(i, "h") > 66 Then
            msj = msj & Cells(i, "h").Address & vbCr
        End If
        If Cells(i, "k") > 66 Then
            msj = msj & Cells(i, "k").Address & vbCr
        End If
    Next i
MsgBox mesaj & vbCr & msj, vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

.

 

[lewstherinthelamon]

Her iki cevap için de teşekkür ederim, Veri/Doğrulama adımı işimi görecek (dosya yaratılırken kullanıcılara 66'dan büyük sayı girmelerini kısıtlamak amacıyla kullanacağım için), ancak diğer seçenekteki makro ile geriye dönük kontrol yapabilirim, tekrar teşekkürler.