Soru check box ' (onay kutusu) bağlantılı olduğu hücreye ortalama

[MESUT K]

Herkese Selamlar

Aynı sütunda 10 adet (Check Box 1,Check Box 2,Check Box 3,Check Box 4,Check Box 5,Check Box 5,Check Box 7,Check Box 8,Check Box 9,Check Box 10) Check Box var.check boxları elle hizalamak zorunda kalıyorum.Haliyle elle yapıldığı için düzgün hizalanmyor.

Yabancı bir sitede aşağıdaki kodu buldum.Module yazılması gerektiğini söylüyor.Fakat çalıştıramadım.Yardımınızı istiyorum.

Saygılarımla.



Sub CenterCheckbox ()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = xRg.Width * 2 / 3
chkBox.Height = xRg.Height
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = xRg.Width * 2 / 3
chkFBox.Height = xRg.Height
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

Çoklu Onay kutusu – CheckBox – Excel Gurusu

.

 

[MESUT K]

Hocam çok teşekkür ederim fazlasıyla işimi gördü

 

[klop01]

Sayın İdris SERDAR Bey,
İkinci iletide verdiğiniz linkteki dosyaya benim de ihtiyacım vardı, çok sağ olunuz.

Bir şey dikkatimi çekti. Onay Kutusunun bağlantılı olduğu hücreye "DOĞRU", "YANLIŞ" şeklinde yazı yazılıyor ama görünmüyor. Adres çubuğunda görebiliyoruz yazıyı.
Bir başka hücreye =A1 deyince Onay Kutusunun bağlantılı olduğu A1'deki yazı gelmiyor.
Bu durum sizin dosyanızda oluyor, başka bir çalışma kitabında Onay Kutusunun bağlantılı olduğu hücreye "DOĞRU", "YANLIŞ" yazıldığı görülüyor.
Bu neden oluyor?

 

[Merhum İdris SERDAR]

.

.NumberFormat = ";;;"

devre dışı bırakın. Yani;

'.NumberFormat = ";;;"

ve

A ve B sütundaki hücrelerin biçimini Genel yapın.

.

 

[klop01]

Teşekkürler.