yanıp sönen yazı

[sgergn]

Merhaba bir hücreye "BİNGO" yazmaz istiyorum ve yazının yanıp sönmesini istiyorum. nasıl yapabilirim. teşekkürler

 

[Emir Hüseyin Çoban]

A1 hücresine için kodlar

Sub Auto_open()
'H?crenin yan?p s?nmesi
Sayfa1.Range("A1").Interior.ColorIndex = 6
Application.OnTime Now + TimeValue("00:00:02"), "yanson"
Sayfa1.Range("A1").Interior.ColorIndex = 2
End Sub
Sub yanson()
Sayfa1.Range("A1").Interior.ColorIndex = 6
Application.OnTime Now + TimeValue("00:00:01"), "Auto_open"
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[emnozdemir]

Yukarıda Örnekteki gibi, Ekteki dosyada bulunan Vade tarihlerinin Ödemeye 15 gün ve daha az kala yanıp sönmeye başlamasını sağlayabilirmiyiz acaba ?

 

[waytooraider]

Peki İki bingo olunca çalışmıyor onuda ayarlayabilirmisniz

 

[1mak1mak]

A1 hücresine için kodlar

Sub Auto_open()
'H?crenin yan?p s?nmesi
Sayfa1.Range("A1").Interior.ColorIndex = 6
Application.OnTime Now + TimeValue("00:00:02"), "yanson"
Sayfa1.Range("A1").Interior.ColorIndex = 2
End Sub
Sub yanson()
Sayfa1.Range("A1").Interior.ColorIndex = 6
Application.OnTime Now + TimeValue("00:00:01"), "Auto_open"
End Sub

Hüseyin hocam bu kodu gene örnek A1 hücresi olabilir.
Hücredeki Kalan Gün sayısı veya sayı "5" ve altına düşünce yanıp sönmesi için kodun ne şekilde olması lazım?

Teşekkürler

 

[emnozdemir]

Ben soruma cevap alamadım henüz...Mümkün değilmi acaba?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Not: Sürekli olarak hücrelerin yanıp-sönmesi çok sağlıklı çalışmadığı için genelde kullanılmasını önermiyorum. Fakat üyelerimiz istediği için ve bu işlemin yapılabilir olduğunu göstermek adına örnek dosya ekliyorum.

Peki İki bingo olunca çalışmıyor onuda ayarlayabilirmisniz

 

[ormann]

Sayın arkadaşlar ekteki örnek dosyamda d7 hücresinde kalan sıfırdan fazla ise f7 hücresi yanıp sönebilir mi?.Yardımcı olurmusunuz saygılar

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz.

Not: Sürekli olarak hücrelerin yanıp-sönmesi çok sağlıklı çalışmadığı için genelde kullanılmasını önermiyorum. Fakat üyelerimiz istediği için ve bu işlemin yapılabilir olduğunu göstermek adına örnek dosya ekliyorum.

Yukarıda Örnekteki gibi, Ekteki dosyada bulunan Vade tarihlerinin Ödemeye 15 gün ve daha az kala yanıp sönmeye başlamasını sağlayabilirmiyiz acaba ?

 

[1mak1mak]

Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz.

Not: Sürekli olarak hücrelerin yanıp-sönmesi çok sağlıklı çalışmadığı için genelde kullanılmasını önermiyorum. Fakat üyelerimiz istediği için ve bu işlemin yapılabilir olduğunu göstermek adına örnek dosya ekliyorum.

Korhan hocam eline sağlık,

Bu Kodu Tarihe dayalı değilde sayıya dayalı 15 den küçükse yansın şeklinde
yapmak için Kod nasıl olmalı acaba atıyorum "D" sutunu için

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz.

Sayın arkadaşlar ekteki örnek dosyamda d7 hücresinde kalan sıfırdan fazla ise f7 hücresi yanıp sönebilir mi?.Yardımcı olurmusunuz saygılar

 

[1mak1mak]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz.

Korhan Hocam,

Örneğinizi inceledim sadece bir hücre için yapılmış,
Bunu Sutuna uyarladım tabi problem oluyor boş satırlarıda küçük gördüğü için hepsi işaretleniyor.
Bunu 1.den büyük 5.den küçük olarak "F" sutunu değilde kendisinin "D" sutunundaki değerin yanıp sönmesi şeklinde olabilirmi.

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Korhan hocam eline sağlık,

Bu Kodu Tarihe dayalı değilde sayıya dayalı 15 den küçükse yansın şeklinde
yapmak için Kod nasıl olmalı acaba atıyorum "D" sutunu için

Teşekkürler

 

[1mak1mak]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Teşekkür ederim istediğim buydu,
Ellerinize sağlık.

 

[ormann]

Sayın Korhan Bey çok teşekkür ederim.

 

[emnozdemir]

İlginize Çok Teşekkürler Korhan Bey...

 

[ABDULLAH1978]

Nasıl yaptığınızı göremiyorum formül nedir aceba korhan bey

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz. Örneklerde makro kullanılmıştır. Formül yoktur.

Makroları görebilmek için ALT+F11 tuşlarına basmanız yeterlidir. Daha detaylı bilgiler için forumda arama yapınız.

Nasıl yaptığınızı göremiyorum formül nedir aceba korhan bey

 

[Hyperhysv]

Sn. Korhan Ayhan ekli hazırladığınız dosya gerçekten işeme çok yarıyor ben kendime göre uyarladım. fakat bir sorum olacak aşağıdaki kodda "problem var" yazısını hangi hücreye yazarsam yazayım istenilen etkiyi alıyorum fakat bu yazı eğer formülü ile yazdırdığımda malesef macro çalışmıyor. 2nci problem ise 2 veya daha fazla hücrede problem var yazısı çıkmaması ilk hücrede efekt aktif fakat 2nci ve daha sonrasında malesef..Konu hakkında yardımcı olabilirseniz çok sevinirim.

Option Explicit
Public Kontrol As Boolean
Dim BUL As Range

Sub Auto_Open()
    DoEvents
    Cells.Interior.ColorIndex = xlNone
    If Kontrol = True Then Exit Sub
    Set BUL = Cells.Find("problem var", LookAt:=xlWhole)
    If Not BUL Is Nothing Then
        BUL.Interior.ColorIndex = 3
        Application.OnTime Now + TimeValue("00:00:01"), "RENK"
        BUL.Interior.ColorIndex = xlNone
    End If
End Sub

Sub RENK()
    DoEvents
    If Kontrol = True Then Exit Sub
    Set BUL = Cells.Find("problem var", LookAt:=xlWhole)
    If Not BUL Is Nothing Then
        BUL.Interior.ColorIndex = 3
        Application.OnTime Now + TimeValue("00:00:01"), "Auto_Open"
    End If
End Sub