yanıp sönen hücre...

[karakoc39]

merhabalar..
bir çok konu var bunun hakkında ama sizlerden ricam
örnek...
a1 hücresi b1 den küçük ise kırmızı yansın
bunun kodunu arıyorumm..
teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip dosyanızı kaydedip kapatın.

Dosyanızı makroları etkinleştirerek tekrar açtığınızda kod devreye girecektir.

Option Explicit
 
Sub AUTO_OPEN()
    Sheets("Sayfa1").Select
    DoEvents
    If Range("A1") < Range("B1") Then
        Range("A1").Interior.ColorIndex = 6
        Application.OnTime Now + TimeValue("00:00:01"), "RENK"
    Else
        Range("A1").Interior.ColorIndex = xlNone
        Application.OnTime Now + TimeValue("00:00:01"), "RENK"
    End If
End Sub
 
Sub RENK()
    DoEvents
    If Range("A1") < Range("B1") Then
        Range("A1").Interior.ColorIndex = xlNone
        Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
    Else
        Range("A1").Interior.ColorIndex = xlNone
        Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
    End If
End Sub

 

[karakoc39]

hocam çok teşekkür...tam istediğim gibi
bi soru sorabilirmiyim...
a1 küçükse b1 den a1 yanıp sönüyor..güzel
b1 küçük ise a1 den excelde bir hareket söz konusu bu giderilebilirmi?
bide a1 küçükse b1 den a1 değil de başka bir hücre yanıp sömesi için ne yapabiliriz..
saolasın..

 

[Korhan Ayhan]

Selamlar,

Kod dosyanız açık olduğu sürece bu iki hücreyi kontrol etmektedir. Bu sebeple küçük bir hareketlenme olması normaldir.

Kod içinde geçen "A1" ifadelerini değiştirip istediğiniz hücreye göre ayarlayabilirsiniz.

 

[karakoc39]

ÇOK TEŞEKKÜRLER...
iyi çalışmalar.

konu uzayacak fakat bir soru daha oluştu !!!!!
d3<e3 ten e3 yanacak ama bu
d3,e3 ten başlayıp
d794 , e794 e kadar gidiyor pki buna kod yazılabilir mi..??
( örn.d3<e3 ten e3 yanacak
d4<e4 ten e4 yanacak
d5<e5 ten e5 yanacak
d6<e6 ten e6 yanacak

 

[Korhan Ayhan]

Selamlar,

Hücrelerin sürekli olarak yanıp sönmesi dosyanızın çalışma performansını düşürecektir. Bunun yerine koşullu biçimlendirmeyi incelemenizi-öğrenmenizi tavsiye ederim.

 

[karakoc39]

kolay gelsin..

 

[yildirim2004]

Arkadaslar merhaba
benim sorum su,A1 hücresi bos ise yani veri girilmemisse B1 hücresi kirmizi renk yanip sönsün.
Simdiden yardimlariniz icin tesekkürler.

 

[Korhan Ayhan]

Merhaba,

#6 nolu mesajımdaki açıklamamı dikkate alınız.

Aşağıdaki kodu boş bir modüle uygulayın. Dosyanızı kayıt edip kapatın ve açın.

Option Explicit
 
Sub AUTO_OPEN()
    Sheets("Sayfa1").Select
    DoEvents
    If Range("A1") = "" Then
        Range("B1").Interior.ColorIndex = 6
        Application.OnTime Now + TimeValue("00:00:01"), "RENK"
    Else
        Range("B1").Interior.ColorIndex = xlNone
        Application.OnTime Now + TimeValue("00:00:01"), "RENK"
    End If
End Sub
 
Sub RENK()
    DoEvents
    If Range("A1") = "" Then
        Range("B1").Interior.ColorIndex = xlNone
        Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
    Else
        Range("B1").Interior.ColorIndex = xlNone
        Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
    End If
End Sub

 

[qbra34]

Merhaba ,
elimde bir excel tablom var ve herhangi bir hücre rengini kırmızı olarak değiştirdiğimde yanıp sönmesini istiyorum, fakat başarılı olamadım.
Yardım edebilir misiniz?

 

[muratyurdakul]

Makro Çalışmıyor

Sayfayı açtığımda E16 dan I 16'ya kadar olan hücrelerin yanıp sönmesini istiyorum. Makroyu buldum, kayıdettim herşeyi yaptım çalışmıyor. Makroyu da iletiye ekledim. Yardımcı olursanız sevinirim. Herkese iyi çalışmalar..

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Koda hiç müdahale etmedim. Sadece dosyanıza uyarladım. Dosya açılışında 10 kez yanıp sönecek şekilde çalışmaktadır.

 

[muratyurdakul]

Teşekkür ve bir hata?

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Koda hiç müdahale etmedim. Sadece dosyanıza uyarladım. Dosya açılışında 10 kez yanıp sönecek şekilde çalışmaktadır.

Korhan bey çok teşekkür ederim..ancak dosyayı ilk açışımda ekteki gibi bir hata mesajı geliyor bir sorun var gibi bir de yanıp sönme döngüsünü 10 değil de büyük bir rakam yapabilir miyiz 10000000000 falan..sürekli yanıp sönsün yani..

 

[Korhan Ayhan]

Kod içindeki 10 değerini dilediğiniz gibi değiştirip deneyin. Ben 2003 ofis ile dosyayı çalıştırdım. Hata vermedi. Sanırım siz yeni versiyon ofis kullanıyorsunuz.

Not: Profilinizde (Excel 2003 TR) yazıyor.

 

[muratyurdakul]

Tamamdır

Kod içindeki 10 değerini dilediğiniz gibi değiştirip deneyin. Ben 2003 ofis ile dosyayı çalıştırdım. Hata vermedi. Sanırım siz yeni versiyon ofis kullanıyorsunuz.

Not: Profilinizde (Excel 2003 TR) yazıyor.

Tamamdır üzerinde çalışıp halledeceğimi düşünüyorum. İlginiz ve yardımınız için çok teşekkür ederim.. İYi çalışmalar dileklerimle..