Soru Onay Kutularını Otomatik Hücreye Bağlama

[kcinokur]

Merhaba, eklemek istediğim onay kutularını nasıl altındaki hücreye otomatik yerleştiririm?. Bunun için bir kod var mı? Tek tek uğraşması çok zor oluyor. teşekkürler.

 

[uzmanamele]

Merhaba
Sayfa yapısı, hücre genişlik ve yüksekliğine göre deneme yanılma ile istediğinizi gerçekleştirebilirsiniz.

Deneyiniz.

Sub OnayKutusuEkle()
    ActiveSheet.DrawingObjects.Delete
x = 400
y = 10
d = 100
h = 20
j = 10
For i = 1 To j
y = y + 20
    ActiveSheet.OptionButtons.Add(x, y, d, h).Select
Next
End Sub

 

[kcinokur]

Merhaba
Sayfa yapısı, hücre genişlik ve yüksekliğine göre deneme yanılma ile istediğinizi gerçekleştirebilirsiniz.

Deneyiniz.

Sub OnayKutusuEkle()
    ActiveSheet.DrawingObjects.Delete
x = 400
y = 10
d = 100
h = 20
j = 10
For i = 1 To j
y = y + 20
    ActiveSheet.OptionButtons.Add(x, y, d, h).Select
Next
End Sub

maalesef verdiğiniz kod istediğim sonucu vermedi.

yapmak istediğim şey linkteki görselde var. onay kutularının bulunduğu hücreye otomatik bağlamak istiyorum.

https://hizliresim.com/8cgkmpj

bire eğitim videosunda şu kodlar verilmiş;

Sub onaykutusu()

Dim onay As CheckBox

sutun = 0 '  kaç sütun sağında olacak
       
For Each onay In ActiveSheet.CheckBoxes

onay.LinkedCell = onay.TopLeftCell.Offset(1, sutun).Address
' hücrenin üzerinde


Next

End Sub

ancak bu kodları çalıştırınca onay kutucuğunun bulunduğu hücrenin aşağısındaki hücreye bağlanıyor.

 

[alicimri]

onay.LinkedCell = onay.TopLeftCell.Offset(1, sutun).Address

satırını

onay.LinkedCell = onay.TopLeftCell.Address

olarak değiştirip deneyin

 

[kcinokur]

onay.LinkedCell = onay.TopLeftCell.Offset(1, sutun).Address

satırını

onay.LinkedCell = onay.TopLeftCell.Address

olarak değiştirip deneyin

Hızır Gibi yetiştiniz minnettarım. Sorunsuz çalışıyor teşekkür ederim