UserForm Eklenti Yardım ??

[anthraxx02]

Merhabalar;

userform üzerine ToggleButton veya CheckBox gibi farklı bir eklentide olabilir bir eklenti ekleyemeyi düşünüyorum. Bu eklenti excel belirli sayfadaki bir hücreye basılı olduğunda 1 , basılı olmadığında 0 yazmasını istiyorum nasıl yaparım Farklı Bilginiz varmı ?

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
https://s5.dosya.tc/server2/jwy3sn/anthraxx02-ToggleButton-CheckBox_kontrolu.zip.html

 

[anthraxx02]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
https://s5.dosya.tc/server2/jwy3sn/anthraxx02-ToggleButton-CheckBox_kontrolu.zip.html

Eline sağlık ToggleButton örneğini kullandım Lakin userform kapatılıp tekrar açıldığında hücrede ne yazıyorsas o şekilde kayıtlı kalmıyor
yani şöyle diyim userform açtım aktif yaptım A1 hücresine 1 yazdı userform kapatıp tekrar açında aktif diye yazmıyor

 

[muygun]

Merhaba;
Aynı dosyanın userform kod kısmına;

Private Sub UserForm_Activate()
If Sheets("Sayfa1").Range("a1") = 1 Then
ToggleButton1.Caption = "A K T İ F " 'buton üzerindeki yazı
ToggleButton1.BackColor = QBColor(10) 'buton rengi
ToggleButton1.ForeColor = QBColor(1) 'buton yazı rengi
ToggleButton1.FontBold = True 'buton yazısı bold
End If
If Sheets("Sayfa1").Range("a1") = "" Then
ToggleButton1.Caption = "P A S İ F "
ToggleButton1.BackColor = QBColor(7)
ToggleButton1.ForeColor = QBColor(12)
ToggleButton1.FontBold = False
End If
End Sub

Kodlarını ekleyerek deneyin.

iyi çalışmalar.

 

[anthraxx02]

Merhaba;
Aynı dosyanın userform kod kısmına;

Private Sub UserForm_Activate()
If Sheets("Sayfa1").Range("a1") = 1 Then
ToggleButton1.Caption = "A K T İ F " 'buton üzerindeki yazı
ToggleButton1.BackColor = QBColor(10) 'buton rengi
ToggleButton1.ForeColor = QBColor(1) 'buton yazı rengi
ToggleButton1.FontBold = True 'buton yazısı bold
End If
If Sheets("Sayfa1").Range("a1") = "" Then
ToggleButton1.Caption = "P A S İ F "
ToggleButton1.BackColor = QBColor(7)
ToggleButton1.ForeColor = QBColor(12)
ToggleButton1.FontBold = False
End If
End Sub

Kodlarını ekleyerek deneyin.

iyi çalışmalar.

Teşekkürler