b 1 hcuresine 1 veya 1 den buyuk bır deger gırıldınde b 1 hucresinin yanıp sonmesı

[mavisim_03220]

Selamlar...
İstediğimiz B1 hücresine 1 ve 1 den büyük bir değer girildiğinde B1 hücresinin yanıp sönerek uyarı vermesini istiyor isek;
Araçlar/Makro/VisualBasic Düzenleyicisisini açınız
Sol taraftan Sayfa1 in üzerini çift tıklayarak Sayfanın VisulBasic Düzenleme sayfasını açınız
Aşağıdaki kodu buraya kopyala yapıştır yöntemini kullanarak ekleyiniz.
=========
Option Explicit
Public CellCheck As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("B1") >= "1" And CellCheck = False Then
Call StartBlink
CellCheck = True
ElseIf Range("B1") <> "1" And CellCheck = True Then
Call StopBlink
CellCheck = False
End If
End Sub
=======
Ardından VisualBasic Düzenleyicis sayfasında Insert menüsünden MODULe SEÇENEĞİNİ KULLANARAK Yeni bir modul oluşturunuz ve aşağıdaki kodu du bu modul içerisine ekleyiniz.
====
Option Explicit
Public RunWhen As Double
Sub StartBlink()
If Range("B1").Interior.ColorIndex = 3 Then
Range("B1").Interior.ColorIndex = 6
Else
Range("B1").Interior.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
Sub StopBlink()
Range("B1").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub
====
Bu işlemlerden sonra Sayfa1 de B1 hücresine 1 ve 1 den büyük değer girdiğinizde hücre yanıp söner. Saygılarımla....

 

[PHÖNİX1]

tek rakamlar&#305; kabul ediyor &#231;ift rakamlar&#305; kabul etmiyor

1-3-5-7-9 113 123 yan&#305;p s&#246;n&#252;yor

0 - 2 - 4 - 6 - 8 122 334 gibi rakamlarda yanm&#305;yor.

 

[RSE002]

Eger B1 Hucresindeki Sayi Degisirse

Merhabalar

yapmıs oldugunuz calısma icin oncelikle tesekkur ederim , ozellikle vade asımlarında cok kullanıslı olabilir diye dusunuyorum fakat yazdıgınız makroyu ornek bir excel dosyasında denedim ilk olarak 1 ve 1 den buyuk bir rakam yazdıgımızda belirttiginiz gibi yanıp sonuyor fakat daha sonra bu rakamı manuel olarak degistirmek istedigimizde makro hata veriyor bu hatayı ortadan kaldırmak icin ne yapabiliriz.