Sütun Boyunca Yanıp-Sönen Hücreler

[CAFERCİFTCİ]

Arkadaşlar,ekteki örnekte şematize ederek anlatmaya çalıştığım sütun boyunca yanıp sönen hücreler efekti konusunda yardımlarınızı bekliyorum.Saygılarımla...

 

[leumruk]

Merhaba,
Ekli örneği inceleyiniz:

Sub Cevir()
Set Aralik = Range("c5:c" & [c65536].End(3).Row)
Do
DoEvents
St = ActiveCell.Row
    Aralik.FormatConditions.Delete
    Aralik.FormatConditions.Add Type:=xlExpression, Formula1:="=$D" & St & "<>"""""
    Aralik.FormatConditions(1).Interior.ColorIndex = 2
    Aralik.FormatConditions.Add Type:=xlExpression, Formula1:="=$C" & St & "<=30"
    Aralik.FormatConditions(2).Interior.ColorIndex = 6
    Aralik.FormatConditions.Add Type:=xlExpression, Formula1:="=$C" & St & ">30"
    Aralik.FormatConditions(3).Interior.ColorIndex = 3
'- - - - - - - leumruk - - - - - - leumruk - - - - - - leumruk - - - - - -
basla = Timer
    Do While Timer < basla + 1
        DoEvents
    Loop
Aralik.FormatConditions.Delete
basla = Timer
    Do While Timer < basla + 1
        DoEvents
    Loop
Loop
End Sub

 

[CAFERCİFTCİ]

Hızır Gibisiniz

Mustafa Hocam,
Her zaman olduğu gibi,yine derdime derman oldunuz.Hızır gibisiniz Maaşallah..Allah sizden razı olsun.İstediğim gibi olmuş.Yalnız küçük bir ricam daha olacak.31 den küçüklerin tamamı sarı yanıp sönüyor.Oysa sadece 30 olanın sarı renkte yanıp sönmesini istiyorum.İyi geceler diler,saygılar sunarım.

 

[leumruk]

Mustafa Hocam,
Her zaman olduğu gibi,yine derdime derman oldunuz.Hızır gibisiniz Maaşallah..Allah sizden razı olsun.İstediğim gibi olmuş.Yalnız küçük bir ricam daha olacak.31 den küçüklerin tamamı sarı yanıp sönüyor.Oysa sadece 30 olanın sarı renkte yanıp sönmesini istiyorum.İyi geceler diler,saygılar sunarım.

Aralik.FormatConditions.Add Type:=xlExpression, Formula1:="=$C" & St & [COLOR="DarkRed"]"<=30[/COLOR]"

Bu satırı aşağıdaki ile değiştirmeniz yeterli olacaktır.

Aralik.FormatConditions.Add Type:=xlExpression, Formula1:="=$C" & St & [COLOR="darkred"]"=30[/COLOR]"

 

[CAFERCİFTCİ]

Özür ve Teşekkür

Mustafa hocam,kaç günden beri iş yoğunluğundan siteye girip size teşekkür edemedim.Bunun için özür diliyorum.Herşey için teşekkürler ediyorum.Saygılar sunuyor iyi geceler diliyorum...

 

[leumruk]

Mustafa hocam,kaç günden beri iş yoğunluğundan siteye girip size teşekkür edemedim.Bunun için özür diliyorum.Herşey için teşekkürler ediyorum.Saygılar sunuyor iyi geceler diliyorum...

Rica ederim, hiç önemli değil. Size iyi çalışmalar dilerim. Kolay gelsin...

 

[CAFERCİFTCİ]

Günaydın

Mustafa Hocam,size ulaşabileceğim bir mail adresi veya telefon numarası verebilirmisiniz?Saygılarımla...