Yanıp Sönen Hücre

[senercee]

Merhaba Arkadaşlar Siteye Bugün Üye Oldum Sabahtan beri Bu Sitede ve Farklı Sitelerde İnceledim Fakat Sonuç Alamadım, Bir Sürü Konu Okudum Ama Çözüme Ulaşamadım Başlıkta Yazdığım Gibi Bir Hücreyi Yanıp Söner Yapmak İstiyorum Koşullu veya Manuel Olarak.

Benmi Yanlış Yapıyorum Anlayamadım Bir Türlü, Adım Adım Bir Arkadaşım Yardımcı Olursa Sevinirim.


NOT: Konularda Bulunan Ek Dosyaları İndiremiyorum Nedenini Söylerse Bir Arkadaşım Memnun Kalırım Şimdiden Yardımcı Olan Herkeze Teşekkürler.:redface::redface:

 

[angelos]

Merhaba Arkadaşlar Siteye Bugün Üye Oldum Sabahtan beri Bu Sitede ve Farklı Sitelerde İnceledim Fakat Sonuç Alamadım, Bir Sürü Konu Okudum Ama Çözüme Ulaşamadım Başlıkta Yazdığım Gibi Bir Hücreyi Yanıp Söner Yapmak İstiyorum Koşullu veya Manuel Olarak.

Benmi Yanlış Yapıyorum Anlayamadım Bir Türlü, Adım Adım Bir Arkadaşım Yardımcı Olursa Sevinirim.


NOT: Konularda Bulunan Ek Dosyaları İndiremiyorum Nedenini Söylerse Bir Arkadaşım Memnun Kalırım Şimdiden Yardımcı Olan Herkeze Teşekkürler.:redface::redface:

Bu sitede var olan bir kod umarım istediğin boyle birşeydir.

Sub FlashFont() 
'Joe Was 
'Make cell range font flash, x times, x fast, in x color, 
'when Ctrl-z is pressed. 
Dim newColor As Integer 
Dim myCell As Range 
Dim x As Integer 
Dim fSpeed 

'Make this cell range font flash! 
Set myCell = Range("A1:AF12") 
Application.DisplayStatusBar = True 
Application.StatusBar = "... Şu an flash yazı gösterisi var lütfen biraz bekleyin...! " 

'Make cell font flash to this color! 
'Black 25, Magenta 26, Yellow 27, Cyan 28, Violet 29, Dark Red 30, 
'Teal 31, Blue 32, White 2, Red 3, Light Blue 41, Dark Blue 11, 
'Gray-50% 16, Gray-25% 15, Bright Cyan 8. 

newColor = 3 

'Make the cell range flash fast: 0.01 to slow: 0.99 
fSpeed = 0.3 

'Make cell flash, this many times! 
Do Until x = 15 

'Run loop! 
DoEvents 
Start = Timer 
Delay = Start + fSpeed 
Do Until Timer > Delay 
DoEvents 
myCell.Font.ColorIndex = newColor 
Loop 
Start = Timer 
Delay = Start + fSpeed 
Do Until Timer > Delay 
DoEvents 
myCell.Font.ColorIndex = xlAutomatic 
Loop 
x = x + 1 
Loop 
Application.StatusBar = False 
Application.DisplayStatusBar = Application.DisplayStatusBar 
End Sub 
Sub reSetFlash() 

'Re-set cell range color if edit break on color, Ctrl-r to re-set! 
ActiveCell.Select 
Selection.Interior.ColorIndex = xlNone 
End Sub

 

[senercee]

angelos cevabın için teşekkür ederim bunuda yapıyorum fakat olmuyor

ben kesin birşey atlıyorum adım adım anlatma imkanın varsa yardımcı olursan sevinirim.

Bu arada Ofis2013 TR Kullanıyorum :frown::frown:

 

[Murat OSMA]

Ne yapmak istediğinizi belirterek dosyanızı bir upload sitesine yükleyin ve linkini mesaj olarak bize gönderin.

 

[angelos]

Modul olarak ekle yazını yaz makro çalıştırdan seçip çalıştır makronu..

 

[senercee]

Ne yapmak istediğinizi belirterek dosyanızı bir upload sitesine yükleyin ve linkini mesaj olarak bize gönderin.

Yapmak İstediğim Sadece; Örnek Olarak C15,d10 vs Hücrelerin Kırmızı Olarak Yanıp Sönmesi Bunun Gibi

 

[Murat OSMA]

http://www.excel.web.tr/f48/yanyp-sonen-hucre-t101942.html
http://www.excel.web.tr/f48/hucre-rengi-yanyp-sonme-macro-ihtiyacy-t108363.html
http://www.excel.web.tr/f14/arta-uyan-hucrenin-satyry-yanyp-sonebilirmi-t107250.html
http://www.excel.web.tr/f48/olu-an-ko-ula-gore-yanyp-sonen-hucreler-t42689.html
http://www.excel.web.tr/f14/yanyp-sonen-yazy-t89319.html