• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile Yanıp Sönme Efekti

Selamlar,

Üstteki mesajımdaki dosyayı son istediğiniz şekilde düzenledim. İncelermisiniz.
 
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.
 
turk-x' Alıntı:
Aşağıdaki Gibi Düzenleme yaparsanız yanıp sönme hazını istediğiniz gibi ayarlayabilirsiniz.

Kod: 
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
Genişletmek için tıkla ...



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
 
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.
 
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
 
Son düzenleme:
zeze' Alıntı:
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
Genişletmek için tıkla ...

arkadaşlar mesaj no 24' de belirttiğim konu ile ilgili yorumu olan yok mu acaba...
 
Son düzenleme:
Sayın zeze;
kodu aşağıdaki şekilde değiştirirseniz işinizi görür
Kod: 
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
 
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 .
 

Ekli dosyalar

Son düzenleme:
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 .
 
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.
 

Ekli dosyalar

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
 
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.
 
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 Auto_Open
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 Auto_Open()
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, "Auto_Open", , True
End Sub
Sub StopBlink()
Range("'SATICI'!$F$3:'SATICI'!$F$70").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "Auto_Open", , False
End Sub
 
turk-x' Alıntı:
Yanıpsönme için aşağıdaki kodu da kullanabilirsiniz.

Kod: 
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
Genişletmek için tıkla ...

ö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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst