onay kutusu

[gelen gecer mdmx]

merhabalar ekteki örnekteki dosyada 3 adet verim var bunların yanındaki onay kutusunu tıkladıktan sonraki ilk hücrede onay kutusunun yanındaki isim çıksın mesela "kınıklı" nın yanındaki onay kutusuna tıklayıp herhangi bir hücreye tıklayınca öncelikle msgbox çıkıp "istediğiniz güne ve saate tıklayın" diye bir uyarı çıksın ve ardından tıkladığınız hücrede: "kınıklı" yazsın.

 

[gelen gecer mdmx]

arkadaşlar arıyorum konularda ama bulamadım buna benzer birşey yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Sayfa1 in kod bölümüne aşağıdaki kodu uygulayın. Seçim yapıp istediğiniz hücrede çift tıklama yapın. İstediğiniz işlem gerçekleşecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Me.CheckBox1 = True Then
    MsgBox "İstediğiniz güne ve saate tıklayın.", vbInformation
    Target = "ticaret"
    ElseIf Me.CheckBox2 = True Then
    MsgBox "İstediğiniz güne ve saate tıklayın.", vbInformation
    Target = "kınıklı"
    ElseIf Me.CheckBox3 = True Then
    MsgBox "İstediğiniz güne ve saate tıklayın.", vbInformation
    Target = "dal"
    End If
End Sub

 

[gelen gecer mdmx]

çok güzel çalışıyor teşekkür ederim. elinize sağlık, iyi günler.