Onay Kutusu Tıklansın

[mesutaygun70]

Aşağıdaki gibi bir kod yazdım Tanıma Formu L71 = 657/A ise, Sayfa1 deki Onay Kutusu 48 tıklansın istiyorum.

Private Sub Worksheet_Activate()
Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("Tanıtma Formu")
Set S2 = Sheets("Sayfa1")
S1.Activate
If Range("L71").Text = "657 4/A" Then
S2.Activate
OnayKutusu48.tıkla
'checkbox1.tıkla
End If
End Sub

Yardım edebilirmisiniz.

 

[tarhan822]

belge yi paylaşırmısın, konuyu anlamak açısından.

 

[mesutaygun70]

http://s9.dosya.tc/server/1k8pq0/Yeni_Microsoft_Excel_Calisma_Sayfasi__2_.xlsx.html

örn dosya koydum ama elimle doğru yazınca çıkıyor, fakat kopyala özel yapıştır değerleri yapınca çıkmıyor. Bu kısımdan çözebilirsekde hallolur ama yardım gerekiyor

 

[tarhan822]

merhaba bir çalışma yaptım,açıklamayı içerisine yazdım.Umarım işine yarar.

 

[alicimri]

Form Denetimi olarak değil de ActiveX Denetimi olarak CheckBox ekleyip, aşağıdaki kodu Sayfa1 in kod sayfasına aşağıdaki kodu yapıştırırsanız, istediğiniz olur.

Private Sub CheckBox1_Click()
MsgBox "test"
End Sub


Private Sub Worksheet_Activate()
If Worksheets("Tanıtma Formu").Range("L71").Value = "657 4/A" Then
CheckBox1.Value = 1
End If
End Sub

 

[mesutaygun70]

Elinize sağlık. Şu şekilde bir durum oluştu kodu şu şekilde düzenledim "657 4/A" kısmı çalışıyor fakat "657 4/B" kısmı çalışmıyor. Araya ne eklemem lazım.

Private Sub Worksheet_Activate()
If Worksheets("Tanıtma Formu").Range("L71").Value = "657 4/A" Then
CheckBox2.Value = 0
CheckBox1.Value = 1
If Worksheets("Tanıtma Formu").Range("L71").Value = "657 4/B" Then
CheckBox1.Value = 0
CheckBox2.Value = 1
End If
End If
End Sub

 

[alicimri]

Private Sub Worksheet_Activate()
If Worksheets("Tanıtma Formu").Range("L71").Value = "657 4/A" Then
CheckBox1.Value = 1
CheckBox2.Value = 0
ElseIf Worksheets("Tanıtma Formu").Range("L71").Value = "657 4/B" Then
CheckBox2.Value = 1
CheckBox1.Value = 0
else
CheckBox2.Value = 0
CheckBox1.Value = 0
End If
End Sub

 

[mesutaygun70]

Teşekkürler.