Form Denetimi CheckBox'a Makro Atama

[fthtls]

Merhabalar,

Excel'de form denetimindeki checkbox'ları kullanarak bir form oluşturdum.
Örneğin A1 hücresinde bir checkbox var ve buraya aşağıdaki makroyu atadım.

Sub Doldur()

Range("A1").Select
Selection.Interior.Color = 5287936

End Sub

Bu makro Checkbox'ı tıkladığımda bulunduğu A1 hücresini yeşil dolgu ile dolduruyor.Ama bu makroyla her checkbox'a ayrı makro atamam gerekiyor, çünkü hepsi farklı farklı hücrelerde. Tüm checkbox'larda ortak olarak kullanabileceğim, bulunduğu hücrenin formatını değiştiren dinamik olarak kullanabileceğim bir makroyu nasıl yazabilirim??

Teşekkürler.

 

[Ömer]

Merhaba,

Bu tür işlemlerde Class modul kullanmanız gerekir. Ekte küçük bir örnek hazırladım.

.

 

[fthtls]

Çok teşekkürler Ömer Bey, tam aradığım kod. Elinize sağlık.

 

[nuran_h]

Merhaba,

ekteki excel de, C hücresinde yazan puanı, eğer d hücresine ekleyeceğim checkbox işaretli ise, F hücresi=C hücresi olacak. Checkbox daki işareti kaldırdığımda da F hücresindeki rakamı 0 layacak.

Ve bunu her checkbox için tanımlamadan genel tek bir makro ile yapabilir miyim?

yardımınızı rica ediyorum.