Sn Ilgilenenler

Asagida yazacagim kod a nasil birsey eklemem gerekir ki mesaj kutusu ciktigi zaman tus kombinasyonlarinda "Hayir" secenegi varsayilan secenek olsun...


-----

Private Sub Guncelle_Click()
Dim mesaj
mesaj = MsgBox("Mesai'yi OTOMATIK duzeltmesini istiyor musunuz?", vbYesNoCancel)

If mesaj = vbYes Then
If Format$([Tarih], "w") <> 1 And 7 Then SecMesai = 1
If Format$([Tarih], "w") = 1 Then SecMesai = 9
If Format$([Tarih], "w") = 7 The