CheckBox içeren TASLAK sayfasını çoğaltmak

[radikall]

Merhaba üstadlar ;
Makro konusunda yeni çalışmaya başlıyorum.
Bir taslak sayfam var bu sayfayı makro yardımıyla aynı çalışma kitabı içinde çoğaltıp , gerekli bilgileri girmem gerekiyor . Lakin taslak sayfamdaki CheckBox(onay kutuları) - hiç bir işlevi yok sadece tıklandığında renk değiştiriyor - diğer sayfaya kopyalandığında çalışmıyor.
Acaba makro ile checkbox'lar bozulmayacak şekilde bu taslak sayfasını çoğaltabilir miyiz ?
Veya çoğalan sayfa için aynı işlevi sağlayan checkbox ürettirebilir miyiz ?

 

[mancubus]

form checkbox yerine activex checkbox ekleyin. çift tıklayarak kodlarını sayfanın kod modülünde oluşturun.

 

[mancubus]

ayrıca genel olarak kodları aşağıdaki şekilde oluşturmak izleme kolaylığı verir ve kod yazma tekniği açısından daha uygun olur...

bunun yerine

Sub mat_Tıklat()
If ActiveSheet.CheckBoxes("mat").Value > 0 Then
With ActiveSheet.CheckBoxes("mat")
    .ShapeRange.Fill.ForeColor.SchemeColor = 66
End With
Else
With ActiveSheet.CheckBoxes("mat")
    .ShapeRange.Fill.ForeColor.SchemeColor = 65
End With
End If
End Sub

bu

Sub mat_Tıklat()
    With ActiveSheet.CheckBoxes("mat")
        If .Value > 0 Then
            .ShapeRange.Fill.ForeColor.SchemeColor = 66
        Else
            .ShapeRange.Fill.ForeColor.SchemeColor = 65
        End If
    End With
End Sub

 

[radikall]

Teşekkürler öncelikle , dediğim gibi yeni başlıyorum Visual Basic çalışmalarıma .
ActiveX checkbox'da tıklandığında arkaplan rengini nasıl değiştirebilirim ? ve eklediğimde tıklayamıyorum kutucuklara . Acaba tıklayabilmemiz için illa biyere mi bağlamamız gerekiyor ?

 

[mancubus]

rica ederim.

Design Mode'dan çıkmak lazım. şeritte üzerine tıklayarak.

Private Sub CheckBox1_Click()
    With CheckBox1
        If .Value = True Then
            .BackColor = 65
        Else
            .BackColor = 66
        End If
    End With
End Sub

 

[radikall]

Teşekkürler gerçekden ..