Makro ile Yanıp Sönme Efekti

[santana00]

Excel'de bir buton oluşturdum. Daha sonra oluşturduğum butona aşağıdaki makroyu kaydettim ancak yanıp sönme efekti olmuyor. Yardımcı olabilirmisiniz.

Sub CheckRng()
If Range("B1") < Date Then
If Range("B1").Font.ColorIndex = xlColorIndexAutomatic Then
Range("B1").Font.Color = vbRed
Else
Range("B1").Font.ColorIndex = xlColorIndexAutomatic
End If
Else
Range("B1").Font.ColorIndex = xlColorIndexAutomatic
Exit Sub
End If
StartTimer
End Sub

 

[turk-x]

Yanıpsönme için aşağıdaki kodu da kullanabilirsiniz.

Sub CheckRng()
On Error Resume Next

If Range("B1") < Date Then
Do While (True)
If durum = True Then
Range("B1").Font.Color = vbRed
For i = 0 To 5000
DoEvents
Next
durum = False
Else
Range("B1").Font.Color = xlNone
For i = 0 To 5000
DoEvents
Next
durum = True
End If
Loop
End If
End Sub

 

[izcik]

Değerli Turk-x istediğimiz (seçtiğimiz) (örnek hesap bakiyesini gösteren hücre) bir hücreyi yanıp sönen hale getirmek için bir kod hazırlar mısınız?

Mesala içinin dolgusu kırmızı mavi yanabilir. (Rakam gene siyah kalabilir)

Teşekkürler

 

[turk-x]

Sayın izcik
Yukarıdaki kodlamadaki

.Font.Color = vbRed Kodunu  .Interior.ColorIndex = 3

ve

.Font.Color = xlNone kodunu .Interior.ColorIndex = xlNone

olarak değiştirirseniz. hücrenin arkaplanı kırmızı olarak yapıp sönecektir.
kodu koşul olmadan kullanmak istiyorsanız If Range("B1") < Date Then kısmını ve kodun en altındaki End if ifadelerini kaldırınız. Şuan Bu kodlamada B1 hücresi renkleniyor.
Yanıp Sönme hızını azaltmak ve artırmak içinde For i = 0 To 5000 ifadesindeki 5000 değerini değiştiriniz.

 

[izcik]

Değerli Turk-x gayet güzel oldu. Fakat 5000 değerini 30000 yapınca (daha hızlı yanıp sönsün diye) çalışmadı. Sonra fazla gelmiştir deyip 8000 e düşürdüm. Yine olmadı. 5000 orjinaline getirdim. Yine olmadı

Sonra baştan yaptım , oldu.

 

[turk-x]

DAHA HIZLI YANIP SÖNMESİ İÇİN O DEĞERİ AZALTMANIZ GEREKİYORDU.
ama siz oldu diyosanız sorun yok

 

[turk-x]

Aşağıdaki Gibi Düzenleme yaparsanız yanıp sönme hazını istediğiniz gibi ayarlayabilirsiniz.

Sub CheckRng()
On Error Resume Next

Do While (True)
If durum = True Then
Range("B1").Interior.ColorIndex = 3
For i = 0 To 1000
DoEvents
Next
durum = False
Else
Range("B1").Interior.ColorIndex = xlNone
For i = 0 To 1000
DoEvents
Next
durum = True
End If
Loop
End Sub

 

[izcik]

Ben daha hızlı olsun diye değeri arttırmıştım değerli Turk-x. oldu dediğim ise ; yeni baştan orjinal değerlerle yaptığım şekle getirmiştim. Fakat

şimdi hemen azaltarak deniyorum.

 

[izcik]

Yapamıyorum. Değerli Turk-x zahmet olmazsa dosyayı oluşturup gönderir misiniz? Öğrenmiş oluruz şu işi

 

[turk-x]

Örnek Dosya Ektedir

 

[abbasonline]

sayın turk-x bu yanıp sönme işlemi şartlı olabilirmi, örneğin a1 deki 10 dan küçük se zemin yeşil yazısı sarı olarak yahnıp sönsün, 10 dan büyükse zemin kırmızı rakamda mavi olarak yanp sönebilirmi.

 

[turk-x]

Tabiki olabilir.
örnek dosya ekte

 

[haso_excel]

Sayın tuk-x,

İlgili kodu auto_open ile nasıl çalıştıracağım?

 

[haso_excel]

Hallettim kodunuz için çok teşekkür ederim, elinize sağlık

 

[haso_excel]

Sub YAZI()
On Error Resume Next

If Range("B2:B4").Value > 10000 Then
Do While (True)
If durum = True Then
Range("B2:B4").Font.Color = vbRed
Range("B2:B4").Font.Bold = True
Range("B2:B4").Interior.ColorIndex = 6
For i = 0 To 50000
DoEvents
Next
durum = False
ElseIf Range("B2:B4").Value < 10000 Then
Range("B2:B4").Font.Color = xlNone
For i = 0 To 20000
DoEvents
Next
durum = True
End If
Loop

End If
End Sub

Merhaba arkadaşlar,
Yukarıdaki kodu siteden alarak kendime göre değiştirdim. Amacım. Belli bir alandaki (b2:b10) rakamları, 10000 rakamının üstündeyse yanıp sönsün, altındaysa aynen kalsın. Benim düzenlediğimde belirlediğim alanda hepsi yanıyor. Yardımcı olur musunu lütfen.

 

[kral321]

Değerli arkadaşlar.Bir excel sayfam var ve bu sayfanın bir sütunudaki hücrelere her gün farklı rakamlar giriyorum.Dolayısıyla alt alta örneğin 250 hücrede (b1:b250) rakamlar var.Benim istediğim en büyük sayının olduğu hücrenin yanıp sönmesi,diğer hücrelerin yanıp sönmesini istemiyorum.Bu konuda yardımcı olursanız sevinirim.Nasıl bir kod yazmam gerekiyor.Yada hazır kod varmı.Teşekkürler.

 

[kral321]

Selam arkadaşlar öncelikle herkese kolay gelsin.Ya bir konuda yardım istedim ama kimse oaralı olmadı.Yoksa imkansızı mı istedim.Valla kendim yapmaya çalışıyorum ama hücrelerin hepsi yanıp sönüyor.Maximum değerin olduğu hücreyi yanıp sönen hale getiremiyorum.Lütfen yardım edin.İlginize şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Dosyayı açtıktan sonra F9 tuşuna basarak formülleri yeniden hesaplatıp sonucu gözlemleyin.

 

[kral321]

Teşekkürler

Sayın Korhan bey.Öncelikle ilginize çok teşekkür ederim.Gönderdiğiniz dosyayı inceledim.Yeni bir excel sayfasında gönderdiğiniz kodlar gayet güzel çalışıyor.Yalnız benim excel çalışma sayfamda yaklaşık 70 kadar sekme ve her sekmede ayrı bir excel sayfası ve veriler bulunuyor.Daha özetle anlatmak gerekirse pc nin masaüstünde 1 tane excel sayfası var.Bu excel sayfasını açınca sayfanın içinde 70 adet sekme ve her sekmede ayrı olacak şekilde 70 tanede ayrı excel veri sayfası var.Sayfa1 den başlayarak sayfa70 e kadar gidiyor.Şimdi sizin gönderdiğiniz kodları yeni bir modüle ekleyip çalıştırdığımda hata veriyor ve macro çalışmıyor.Hücre adreslerini gösteriyorum fakat diğer 70 sayfanın hepsinde macro çalışıyor anladığım kadarıyla.Ben ise sizin gnderdiğiniz kodların sadece sayfa4 te,(BV4:BV34)hücre aralaığında çalışmasını diğer sayfalarda aktif olmamasını istiyorum.Yani macronun sadece sayfa4 te çalışmasını istiyorum.Biraz uğraştım ama yapamadım.Bu konu hakkında bilgimde yok.Macrolarla ilgili olarak yeni çalışmaya başladım.Kodlamayı ve kodlama mantığını anlamaya çalışıyorum ama bir türlü çözemedim.Kodlamayı istediğim şekilde yapabilirseniz sevinirim.Kusura bakmayın lütfen rahatsız ettiysem.Şimdiden teşekkür ederim.Allah razı olsun kolay gelsin.Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Ben geriye doğru iki mesajınızı okuduğumda ne Sayfa4 ifadesi nede BV4:BV34 ifadesi görebiliyorum. Keşke bu bilgileri ilk mesajınızda belirtseydiniz. Vakit kaybetmemiş olurduk.