Check box yardım

[GUERRA]

Merhaba

check box işaretli ise textbox5.text = "SIRA TAKİP"
check box işaretli değil ise textbox5.text = " " olmasını istiyorum


Bir de userforma buton koyarak sayfalar arası geçiş yapılablir mi?


Yardım için şimdiden teşekkürler

 

[Orion1]

Çekbox için aşağıdaki kodu.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    TextBox5.Text = "SIRA TAKİP"
    Else
    TextBox5.Text = ""
End If
End Sub

aşağıdaki kodda commandbutona basınca sayfa2'yi açıyor.

Private Sub CommandButton1_Click()
Sheets("Sayfa2").Select
End Sub