04.10.2011 4.ÖRNEK

Sub hesapla()

For k = 1 To 10

Cells(k, 2) = Cells(k, 1) * 0.18

'A Sütunundaki verilerin %18 Aldı

If Cells(k, 2) > 300 Then

'300 den büyükse

Cells(k, 2).Select

Selection.Interior.Color = vbYellow

'O alanı seçip arkaplan rengini değiştirecek

' rgb,18880,vbrenk olabilir.

End If

Next k

End Sub