Onay İşareti Hakkında

[ormann]

İyi günler ekteki örnek dosyada onayı işaretini seçtiğimiz zaman a1 hücresindeki veriyi b7 hücresine nasıl yazdırabiliriz?.Onayı işaretini kaldırdığımız zaman b7 hücresi boş gözükecek.Yardımcı olurmusunuz?

 

[Huseyinkis]

Ekteki kodları sayfanın kod kısmına yapıştırıp denermisiniz.

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Cells(7, 2) = Cells(1, 1)
Else
Cells(7, 2) = ""
End If
End Sub

 

[Orion1]

Sayfa1 in modülüne aşağıdaki kodu yazdım.
Dosyanız ektedir.:cool.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Range("B7").Value = Range("A1").Value
    Else
    Range("B7").Value = Empty
End If
End Sub

 

[ormann]

Sayın Orion1 teşekür ederim.Şöyle bir şey olabilir mi?.Onayı işereti seçili ise a1 hücresindeki veriyi b7 hücresine seçili değilse a2 hücresindeki veriyi b7 hücresine yazdırabilirmiyiz

 

[Muzaffer Ali]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Range("B7").Value = Range("A1").Value
    Else
    Range("B7").Value =[COLOR="Red"] Range("A2").Value[/COLOR]
End If
End Sub

 

[ormann]

Çok teşekkür ederim.