hücrede yanar söner (flash) uyarı

[WALNUT]

değerli arkadaşlar,
belirli bir koşul sağlandığında hücrenin yanar-söner uyarı vermesini istiyorum.
örn; eğer hücre değeri 5% den büyükse yanar-söner uyarı versin.

acaba bu amacımı makro,vba "kullanmadan" sadece excel'in kendi imkanları içerisinde sağlayabilir miyim ?

teşekkürler.

 

[Orion1]

değerli arkadaşlar,
belirli bir koşul sağlandığında hücrenin yanar-söner uyarı vermesini istiyorum.
örn; eğer hücre değeri 5% den büyükse yanar-söner uyarı versin.

acaba bu amacımı makro,vba "kullanmadan" sadece excel'in kendi imkanları içerisinde sağlayabilir miyim ?

teşekkürler.

Yanıp sönme olayını makro kullanmadan yapılabileceğini sanmıyorum.
Ama koşullu biçimlendirme ile renklendirme yapabilirsiniz.

 

[WALNUT]

sayın evren ilginiz teşekkür ederim.
siz olmaz diyorsanız zaten daha fazla araştırmaya gerek yok.
acaba bu işi makro/vba ile çözmek zor mudur ?
hiç bilmediğim bir konu olduğundan kolayca gerçekleştirmenin bir yolunu gösterebelirmisiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[WALNUT]

teşekkür ederim.
not; logonuz yeter

 

[Orion1]

teşekkür ederim.
not; logonuz yeter

Rica ederim.
İyi çalışmalar.

 

[hdursun55]

herkese merhaba,
ufak bi problemim var da, yardımcı olan olursa sevinirim.
problem şu
C sutununa veri girişi yapılmadan D sutununa giriş kabul edilmesin istiyorum. Bunu nasıl yaparım?

 

[msanli]

Merhaba,

Bu kodu tarihlere göre yapabilirmiyiz. Örnek olarak bugünün tarihinde herhangi bir ikaz yok. fakat geçmiş 60 gün de kırmızı gelecek 30 gün içinde yeşil renki uyara bilirmi???

 

[ehlikeyf]

sütunverilerine göre flash uygulaması

Arkadaşlar merhaba,

ekteki flaşh uygulamasını ı:ısütunundaki tarih değerine göre kurgulamaya çalıştım ancak yapamadım. I sütunundaki tarih değeri bugünün (vba date) değerinden küçükse ilgili satırın A:I satırında yanan sönen bir flaş uygulaması yapsın istiyorum.

selamlar

Option Explicit
Public dur As Boolean
Sub auto_open()
Sheets("Sayfa1").Select
If Range("A1").Value > 0.05 Then Call basla
End Sub
Sub auto_close()
dur = True
End Sub

Sub basla()
If dur = True Then Exit Sub
If Format(Now, "ss") Mod 2 = 0 Then
Range("A1").Interior.Color = vbRed
Range("A1").Font.Color = vbYellow
Range("A1").Font.Bold = True
Else
Range("A1").Interior.ColorIndex = xlNone
Range("A1").Font.Color = vbBlack
Range("A1").Font.Bold = False
End If

Call saat
End Sub
Sub saat()
Application.OnTime Now + TimeValue("00:00:01"), "basla"
End Sub