Makro ile Yanıp Sönme Efekti

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı son istediğiniz şekilde düzenledim. İncelermisiniz.

 

[kral321]

Teşekkürler Korhan Bey.

Korhan bey öncelikle ellerinize sağlık.Çok güzel olmuş.Dediğiniz gibi önceki mesajlarımda sayfa4 ve BV4:BV34 ifadelerini belirtmemiştim.Amacım sizin gönderdiğiniz kodları kendim düzenlemek ve öğrenmek için yazmamıştım.Bu yüzden lütfen kusuruma bakmayın.Hem sizin değerli vaktinizi hemde kendi vaktimi harcamış oldum.Bunun için özür dilerim.Ama formda bana cevap yazma nezaketiniz ve yardımcı olmanız hususunda size tekrar içtenlikle teşekkürü bir borç bilirim.Allah razı olsun ve işlerinizde kolaylıklar versin.Saygılarımla.Hoşçakalın.Ayrıca Excel WEB.TR ye sonsuz teşekkürler.

 

[MURATYALCIN1978]

Elinize sağlık bende inceledim çok güzel olmuş

İyi çalışmalar,

 

[zeze]

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

selamlar konuyu hortlattım ama
yukarıdaki kodlamada çoklu hücre için ne yapmalıyız,
yani yukarıdaki örnek sadece B1 için geçerli,
örneğin B5, B8, B9 gibi çoklu hücrelerde bu işlem için ne yapmalıyız,
bir kaç hücre yazınca range komutu hata veriyor
teşekkürler

 

[yağızbaba]

Dosyayı açtım ama yanıp sönen bir şey yok sadece B1 hücresi kırmızı olarak görünüyo ben mi anlamadım konuyu acaba.

 

[İhsan Tank]

Dosyayı açtım ama yanıp sönen bir şey yok sadece B1 hücresi kırmızı olarak görünüyo ben mi anlamadım konuyu acaba.

merhaba
alt+f8 enter yapıp inceleyiniz

 

[ŞAHİNce]

Bir excel sayfasının C10, H10, M10 hücrelerinde 3 kişiye ait ayrı ayrı kimlik numarası doğrulamasını yapıyorum.
Bu hücrelerde, TC. kimlik numarası doğru ise, " Geçerli kimlik numarası", yanlış ise "geçersiz kimlik numarası" yazısı görünüyor.
12. mesajda ekli dosya içindeki kodlara ve ilave olarak 24. mesajda yazılı kodlarda nasıl bir değişiklik yapmalıyımki;
geçerli kimlik numaralarında mavi zemin, geçersiz kimlik numaralarında kırmızı yanıp sönen zemin rengi oluşsun?

Teşekkür ederim

 

[zeze]

selamlar konuyu hortlattım ama
yukarıdaki kodlamada çoklu hücre için ne yapmalıyız,
yani yukarıdaki örnek sadece B1 için geçerli,
örneğin B5, B8, B9 gibi çoklu hücrelerde bu işlem için ne yapmalıyız,
bir kaç hücre yazınca range komutu hata veriyor
teşekkürler

arkadaşlar mesaj no 24' de belirttiğim konu ile ilgili yorumu olan yok mu acaba...

 

[turk-x]

Sayın zeze;
kodu aşağıdaki şekilde değiştirirseniz işinizi görür

Sub CheckRng()
On Error Resume Next

Do While (True)
If durum = True Then
Range("B1").Interior.ColorIndex = 3
Range("e5").Interior.ColorIndex = 3
Range("f8").Interior.ColorIndex = 3

For i = 0 To 1000
DoEvents
Next
durum = False
Else
Range("B1").Interior.ColorIndex = xlNone
Range("e5").Interior.ColorIndex = xlNone
Range("f8").Interior.ColorIndex = xlNone

For i = 0 To 1000
DoEvents
Next
durum = True
End If
Loop
End Sub

 

[ormann]

Günaydın arkadaşlar gönderdiğim dosyada içerisinde bulunan faiz hesaplama tablosunda e25 hücresinin İçerisinde bulunan verilerin devamlı olarak1 saniye aralıklarla yanıp sönmesini istiyorum .yardımcı olurmusunuz .

 

[ormann]

sayın değerli arkadaşlar bir önceki göndermiş olduğum dosyanın içerisinde bulunan faiz hesaplama tablosunda e25 hücresinin İçerisinde bulunan verilerin devamlı olarak1 saniye aralıklarla yanıp sönmesini istiyorum .yardımcı olurmusunuz .

 

[akmes]

Sayın tuk-x,

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

Nasıl çalıştırdığınız konusunda paylaşırmısınız.Teşekkürler

 

[haso_excel]

15 nolu mesaja bakar mısınız ?

 

[akmes]

15 nolu mesaja bakar mısınız ?

Baktım arkadaşım ama bende olmuyo sayfa açıldığında otomatik olarak yanıp sönmesini istiyorum.Bir örnek ile cevaplarsan çok minnettar kalırım.

 

[haso_excel]

Doysya ekde

 

[akmes]

haso_excel arkadaşım örnek için çok teşekkür ederim.Ama ben istediğimi
anlatamadım galiba senin örneğinde makro yardımı ile başlatıp durduruyorsun.Benim istediğim sayfa açıldığında direkt yanıp sönmeye başlasın.Ekteki örnekte auto_open olarak bir dosya ekliyorum bu örnekte makro ile yapılmış bende ki ekliyeceğim excel dosyasında başka sayfada auto_openle açıldığı için bu macroyu kullanamıyorum çakışıyor o yüzden sayfa koduna girerek ilgili sayfa açıldığında yanıp sönen bir kod arıyorum.

 

[ugurrrrrr]

Arkadaşlar merhaba;
İstediğim m39 hücresinin değeri "SONA ERDİ" olduğunda m39 hücresinin yanıp sönerek uyarı vermesi bunun için aşağıdakileri yaptım.
Ancak değer "SONA ERDİ" den farklı olduğunda normal beyaz hücre rengine dönmesini istiyorum. Yardımlarınız için teşekkürler.

=========
Option Explicit
Public CellCheck As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("M39") = "SONA ERDİ" And CellCheck = False Then
Call StartBlink
CellCheck = True
ElseIf Range("M39") <> "SONA ERDİ" And CellCheck = True Then
Call StopBlink
CellCheck = False
End If
End Sub
=======

Ardından Yeni bir modul oluşturudum ve
aşağıdaki kodu da bu modul içerisine ekledim.

====

Option Explicit
Public RunWhen As Double
Sub StartBlink()
If Range("M39").Interior.ColorIndex = 3 Then
Range("M39").Interior.ColorIndex = 6
Else
Range("M39").Interior.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
Sub StopBlink()
Range("M39").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub

 

[ugurrrrrr]

arkadaşlar ayrıca bu kod sonrası sadece çalışma kitabını kapatmak istediğimde tekrar açılıyor. Komple excel i kapatarak sayfayı kapatabiliyorum.

 

[sbbozyel]

Selam,

Ben bir şey öğrenmek istiyorum. Hücrede koşullu biçimlendirme yaparak 20 ve altında olan sayıları kırmızı yap diyorum. bu şekilde 75 tane hücre var. Hücrede de "(26.02.11 26.02.12 18) EĞER(E13<$A$2;0;(E13-$A$2))" 18 gün kaldığını gösteren formül var. Makro kullanarak 20 ve altında ki günleri kırmızı olarak yanıp sönmesini sağlamaya çalışıyorum ama bir türlü olmuyor. Çevremde ki bilgisi olan kişilere sordum fakat 2003 versiyon kullandığım için olmaz diyorlar. Buna inanmadım ve birde size sormak istedim.

Yardımcı olursanız çok sevinirim. Mutlu Günler.

Option Explicit
Public CellCheck As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("'SATICI'!$F$3:'SATICI'!$F$70") <= "21" And CellCheck = False Then
Call Autpen
CellCheck = True
ElseIf Range("'SATICI'!$F$3:'SATICI'!$F$70") >= "20" And CellCheck = True Then
Call StopBlink
CellCheck = False
End If
End Sub

MODÜL

Option Explicit
Public RunWhen As Double
Sub Autpen()
If Range("'SATICI'!$F$3:'SATICI'!$F$70").Interior.ColorIndex = 3 Then
Range("'SATICI'!$F$3:'SATICI'!$F$70").Interior.ColorIndex = 0
Else
Range("'SATICI'!$F$3:'SATICI'!$F$70").Interior.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 3)
Application.OnTime RunWhen, "Autpen", , True
End Sub
Sub StopBlink()
Range("'SATICI'!$F$3:'SATICI'!$F$70").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "Autpen", , False
End Sub

 

[sergustav]

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

özür dilerim ama çok acemiyim bu kodu nereye nasıl yapıştıracaz mümkümse resimli veya detaylı anlatım yaparmısınız.