DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.Merhaba
Sayfa yapısı, hücre genişlik ve yüksekliğine göre deneme yanılma ile istediğinizi gerçekleştirebilirsiniz.
Deneyiniz.
C++: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
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
Hızır Gibi yetiştiniz minnettarım. Sorunsuz çalışıyor teşekkür ederimsatırınıKod:onay.LinkedCell = onay.TopLeftCell.Offset(1, sutun).Address
olarak değiştirip deneyinKod:onay.LinkedCell = onay.TopLeftCell.Address