Hücre dolgu rengini değiştirmek

[winstoncash]

Merhaba,

Bir hücredeki değer değiştirildiğinde uyarı mesajı çıksın, evet tıklandığında da hücre dolgu rengi gri'ye dönsün istiyorum. aşağıdaki kodu yazdım. mesaj kutusu çıkıyor ama evet'e tıklayınca renk değişmiyor. nerede hata yapmış olabilirim? yardımınız için şimdiden teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cevap As Integer
If Intersect(Target, [f8]) Is Nothing Then Exit Sub
cevap = MsgBox("SİPARİŞ NUMARASINI DOĞRU SEÇTİĞİNİZDEN EMİN MİSİNİZ?", vbYesNo)
If cevap = yes Then
Sheets("key data").Range("F8").Interior.ColorIndex = 15
End If

End Sub

 

[Muzaffer Ali]

Merhaba.

Yes

yerine

vbYes

yazmalısınız.

 

[winstoncash]

Merhaba.

Yes

yerine

vbYes

yazmalısınız.

Allah razı olsun hocam, ne kadar da basit bir hataymış. Teşekkür ederim.

 

[Muzaffer Ali]

Allah hepimizden razı olsun. Kolay gelsin.