TextBox da renk değişikliği

[sdegirmenci]

Merhaba; Ekli dosyamda UserForm üzerine kapat butonu ekledim,Kapat butonunda bulunan textbox userform aktif olduğunda yeşil renk oluyor, kapat düğmesine tıklandığında kırmızı oluyor, İptal seçeneğini seçerse tekrar yeşile dönmesi için birkaç deneme yaptım ama olmadı bu konuda yardımcı olabilirseniz sevinirim. İlginize çok teşekkür ederim.

 

[Ömer]

Merhaba,

Basit mantıkla; kapat kodlarınındaki End Sub satırında önce aşağıdaki kodları ilave edin.

Unload Me
UserForm1.Show

.

 

[sdegirmenci]

Ömer Hocam ilginize teşekkür ederim, kodu sizin dediğiniz şekilde uyguladım ama sonuç değişmedi,

 

[Ömer]

Hata yapmış olabilirsiniz. Ben denedim sorunsuz çalıştı.

İlaveyi kırmızı ile işaretledim.

Private Sub KAPAT_Click()
On Error Resume Next
ışık.BackColor = &HFF
'****************************************************************************************************
cevap = MsgBox("PROĞRAM KAPATILACAKTIR." & vbCrLf & "KAYDEDEREK ÇIKMAK İÇİN ""EVET"" " & vbCrLf & "KAYDETMEDEN ÇIKMAK İÇİN ""HAYIR"" DÜĞMESİNİ TIKLAYINIZ ", vbYesNoCancel, Application.UserName)
If cevap = vbNo Then

Application.Quit
ThisWorkbook.Close False
Unload Me

End If
If cevap = vbYes Then
 
ActiveWorkbook.Save
Application.Quit
ActiveWorkbook.Close True
Unload Me
End If
[COLOR=red]Unload Me
UserForm1.Show[/COLOR]
End Sub

.

 

[sdegirmenci]

Ömer Hocam;
Tekrar reşekkür ederim, sıralamada yanlışlık yapmışım, şimdi oldu , tekrar teşekkür ediyorum, işleriniz kolay gelsin.