Hücrelere bağlı olarak Option Button'ı gizlemek

[lettersofberk]

Arkadaşlar merhaba,

Yandaki hücreler boşsa optionbutton'ları gizlemek istiyorum.

Veri kümesi dinamik olduğundan loop kullanmak zorundayım.

Aşağıdaki kodu denedim ama Optionbutton kısmında sorun veriyor.

Veri başlangıcı C17 . Optionbuttonlar B sütununda



Function Click()

j = WorksheetFunction.CountA(Worksheets("MAINPAGE").Range("C17:C100"))

For i = 1 To j


If (Cells(3, 16 + i) = Empty) Then

Worksheets("MAINPAGE").OptionButton& i.Visible = False

Else

Worksheets("MAINPAGE").OptionButton& i.Visible = True

End If


Next i
End Function