yüzdelik formatında karşılaştırma

[dirac]

Sub fark_kontrol()

Dim index As Integer

For index = 0 To 23
For i = 0 To 3

Cells(12 + 5 * index, 4 + 2 * i).Activate
If ActiveCell.Value > "1%" Or _
ActiveCell.Value < "-1%" Then _

ActiveCell.Interior.ColorIndex = 43

Next i
Next index

End Sub

yukarıdaki fonksiyonun iki değer arasındaki farkın yüzdelik olarak ifadesinin yer aldığı hücreleri kontrol ederek farkın %1den büyük olduğu durumlarda hücerenin rengini değiştirmesi gerekli. Tabi karşılaştırmayı yapmıyor. Yüzdelik değerlerin değerlendirmesini nasıl yapabilirim.

Şimdiden Teşekkürler

 

[Nazmi YAZICI]

Mrb,

If ActiveCell.Value > "1%" Or _
ActiveCell.Value < "-1%" Then _

ActiveCell.Interior.ColorIndex = 43

yerine aşağıdaki yüzdelik sayı yazma mantığını bir deneyiniz.
Syg.

If ActiveCell > 0.01 _
        Or ActiveCell < -0.01 Then
            ActiveCell.Interior.ColorIndex = 43
    End If

 

[Kemal Demir]

Küçük Bir Çözümde benden Umarım İşinize yarar.