yanıp sönen hüreler

[ferhatgurbuz]

arkaşlar ekteki kodun şu şekilde olmasını istiyorum. Örnekleri aradım ama bu şeklide bir önrek bulamadım.

K sutunundaki hücreler sıfırdan büyük ise sıfırdan büyük olan hücreler yanıp sönsün. Teşekkür ederim arkadaşlar


Sub baslat()
On Error Resume Next
[b3:g12].Interior.ColorIndex = xlNone
[b3:g12].Font.ColorIndex = 0
kucuk = WorksheetFunction.Min([g3:g12])
buyuk = WorksheetFunction.Max([g3:g12])
kucuksat = WorksheetFunction.Match(kucuk, [g3:g12], 0) + 2
buyuksat = WorksheetFunction.Match(buyuk, [g3:g12], 0) + 2
deg = False
ResumeSub:
Range("B" & buyuksat & ",G" & buyuksat).Interior.ColorIndex = 5
Range("B" & buyuksat & ",G" & buyuksat).Font.ColorIndex = 6
Range("B" & kucuksat & ",G" & kucuksat).Interior.ColorIndex = 6
Range("B" & kucuksat & ",G" & kucuksat).Font.ColorIndex = 3
Start = Timer * 3
Do
DoEvents
finnish = Timer * 3
deger = Format(finnish - Start, "00")
If deg = True Then Exit Sub
If deger = 2 Then
Range("B" & buyuksat & ",G" & buyuksat).Interior.ColorIndex = xlNone
Range("B" & buyuksat & ",G" & buyuksat).Font.ColorIndex = 0
Range("B" & kucuksat & ",G" & kucuksat).Interior.ColorIndex = xlNone
Range("B" & kucuksat & ",G" & kucuksat).Font.ColorIndex = 0
End If
Loop While finnish - Start <= 3
GoTo ResumeSub:
End Sub
Sub durdur()
deg = True
Range("B" & buyuksat & ",G" & buyuksat).Interior.ColorIndex = 5
Range("B" & buyuksat & ",G" & buyuksat).Font.ColorIndex = 6
Range("B" & kucuksat & ",G" & kucuksat).Interior.ColorIndex = 6
Range("B" & kucuksat & ",G" & kucuksat).Font.ColorIndex = 3
End Sub

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki linki incelemenizi &#246;neririm.

Olu&#351;an Ko&#351;ula G&#246;re Yan&#305;p S&#246;nen H&#252;creler

 

[ferhatgurbuz]

Levent Hocam bakt&#305;m ama bana uygun yani bire bir kopyalay&#305;p yapabilece&#287;im kod bulamad&#305;m. Uyarlamay&#305;da bir t&#252;rl&#252; beceremiyorum. Kolay gelsin te&#351;ekk&#252;rler