- Katılım
- 19 Mart 2010
- Mesajlar
- 144
- Excel Vers. ve Dili
- Office 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 20-01-2024
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.
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.
Kod:
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