Onay kutusu

[acolkesen1]

Merhaba arkadaşlar,
Onay kutusunu, üzerinde bulunduğu hücre ile aşağya doğru çoğalttığımızda, onay kutusunun ilişkilendirildiği hücrenin de otomatik olarak değiştirilmesi nasıl mümkün olur acaba? Yani 150 adet onay kutusu var ve bunları a1den başlayarak a150 ye kadar olan hücrelerle ilişkilendirmek istiyorum.Bu işi tek tek yapmaktan başka bir yol var mıdır? İlgilenen arkadaşlara teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub ONAY_KUTULARINI_HÜCRELERLE_İLİŞKİLENDİR()
    Dim Onay_Kutusu As Shape, Satır As Long
    On Error Resume Next
    If ActiveSheet.Shapes.Count = 0 Then GoTo Son
    For Each Onay_Kutusu In ActiveSheet.Shapes
    Satır = Satır + 1
    Onay_Kutusu.ControlFormat.LinkedCell = Cells(Satır, 1).Address
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Exit Sub
Son:
    MsgBox "Onay kutusu bulunamamıştır.", vbExclamation
End Sub

 

[acolkesen1]

Merhaba sayın Korhan Ayhan,
İlginize ve çözümünüze çok teşekkür ederim.Yazmış olduğunuz kod ile onay kutularını A sütununda A1 den başlayarak (hata mesajı vermesine rağmen) sırayla ilişkilendiriyor ve bu haliyle işimi görüyor.Bilgi olması açısından; ikinci defa yeni onay kutuları eklendiğinde sonradan eklenen onay kutularını ilişkilendirmiyor.Tekrar teşekkür eder, iyi günler dilerim. Esenkalın..

 

[Korhan Ayhan]

Selamlar,

Üstteki önerdiğim kodu hata vermeyecek şekilde düzenledim. Ayrıca sayfada makrou çalıştırdıktan sonra yeni onay kutuları ekleyip tekrar makroyu çalıştırdım ve hepsi hücrelerle ilişkilendirildi.