Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: [Çözüldü] Yanıp sönen hücre  (Okunma sayısı 15599 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
[Çözüldü] Yanıp sönen hücre
« : 04 Ağustos 2010, 18:40:05 »
Sayfanın Kod Modülüne

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Range("A1").Value > 0.05 Then
    Module1.dur = False
    Call basla
    Else
    Module1.dur = True
    Range("A1").Interior.ColorIndex = xlNone
    Range("A1").Font.Color = vbBlack
    Range("A1").Font.Bold = False
End If
End Sub

Modüle
Option Explicit
Public dur As Boolean
Sub auto_open()
    Sheets("Sayfa1").Select
    If Range("A1").Value > 0.05 Then Call basla
End Sub
Sub auto_close()
    dur = True
End Sub

Sub basla()
If dur = True Then Exit Sub
If Format(Now, "ss") Mod 2 = 0 Then
    Range("A1").Interior.Color = vbRed
    Range("A1").Font.Color = vbYellow
    Range("A1").Font.Bold = True
    Else
    Range("A1").Interior.ColorIndex = xlNone
    Range("A1").Font.Color = vbBlack
    Range("A1").Font.Bold = False
End If

Call saat
End Sub
Sub saat()
Application.OnTime Now + TimeValue("00:00:01"), "basla"
End Sub

kodları ile sadece A1 hücresi için

yukarıda ki kodu sütun için ve "SATILDI" ibaresine göre düzenlenmesi mümkün müdür?

Kod Evren GİZLEN üstadıma aittir.
« Son Düzenleme: 05 Ağustos 2010, 10:15:44 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: yanıp sönen hücre
« Yanıtla #1 : 04 Ağustos 2010, 19:31:46 »
Dosyanız ektedir. :cooll

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
« Son Düzenleme: 04 Ağustos 2010, 19:59:49 Gönderen: Evren Gizlen »

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: yanıp sönen hücre
« Yanıtla #2 : 05 Ağustos 2010, 06:40:50 »
Evren Abi;
Eline sağlık. :begendim :alkis

Teşekkür Ederim

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: yanıp sönen hücre
« Yanıtla #3 : 05 Ağustos 2010, 10:50:16 »
Evren Abi;
Eline sağlık. :begendim :alkis

Teşekkür Ederim
Rica ederim.
İyi çalışmalar. :cooll