ToggleButton

[tipsy1977]

ya yapamadım bi türlü..
yapacağım iş şu
bi toggle button koycam ...
butona tıklayınca gidip A1 hücresine "evet" yazcak button üzerinde "hayır"...
yine tıklayınca da A1 hücresine "hayır" yazcak button üzerine evet...

offffffff
bi türlü yapamadım nolur bilen biri yardım etsin...

 

[Orion1]

Aşağıdaki kodu kopyalayınız.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Range("A1").Value = "EVET"
    ToggleButton1.Caption = "HAYIR"
    Else
    Range("A1").Value = "HAYIR"
    ToggleButton1.Caption = "EVET"
End If
End Sub

 

[tipsy1977]

Teşekkürler...

İşte bu yaaaaaaaaaaaaaaaa

sonsuz minnettarım size...tşk.ler..

 

[Orion1]

İşte bu yaaaaaaaaaaaaaaaa

sonsuz minnettarım size...tşk.ler..

Rica ederim.
İyi çalışmalar.