CheckBox ile ilgili bir soru...

[ozgurmath]

Merhaba arkadaşlar;

Soru ektedir.

Teşekkürler.İyi çalışmalar..

 

[Haluk]

UserForm1'e aşağıdakini ilave edin ...

Private Sub UserForm_Initialize()
    CheckBox1 = IIf([A1] = "EveT", True, False)
End Sub

 

[veyselemre]

şu kodları da userformun kod sayfasına ilave edin
[vb:1:0a55a54672]Private Sub UserForm_Activate()
If [a1] = "EveT" Then
CheckBox1 = True
TextBox1.Value = "EveT"
Else
CheckBox1 = False
TextBox1.Value = "HayıR"
End If
End Sub[/vb:1:0a55a54672]

 

[mraltin]

Formun active olayina su kodlari yazarsın istedigin olur sanırım.

Private Sub UserForm_Activate()
If [a1].Value = "EveT" Then
CheckBox1 = True
TextBox1.Text = "EveT"
Else
CheckBox1 = False
TextBox1.Text = "HayıR"
End If
End Sub
Ornek ektedir.

 

[ozgurmath]

Teşekkürler arkadaşlar...