excelde tik atma

[ozan hoca]

slm excelde tik attım ama onu kopyalayamıyorum kopyalayınca aynı adrese yanlış diyor. ben yüzlerce tik lazım olduğu için teker tekerde yapmam zor olucak. yardım ederseniz teşekkür ederim.

 

[Murat OSMA]

Tam olarak anlaşılmıyor.
Lütfen dosya ekler misiniz ?

 

[ozan hoca]

ilginize teşekkürler dosyanın içinde ne yapmak istediğimi anlatmaya çalıştım.

 

[Murat OSMA]

Dosyanız çok karışık geldi bana...
Bence yeni bir Excel dosyayı oluşturun ve Onay Kutularını tekrar ekleyin.

Sn. Korhan AYHAN'ın, onay kutularını hücrelerle ilişkilendirme ile ilgili örnek kodlarını bir deneyiniz...
Eğer sitede arama yaparsanız, örnek dosyalara da ulaşabilirsiniz...

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, 2).Address
    Call aktar
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
  Exit Sub
Son:
    MsgBox "Onay kutusu bulunamamıştır.", vbExclamation
End Sub

Sub aktar()
    Dim Satır As Long
    Satır = Range("B65536").End(3).Row
    If Cells(1, Satır).Value = "DOĞRU" Then
        Sayfa2.Select
        Cells(Satır, 2).Copy
    End If
End Sub