Onay Kutucuğunu Formülle İlişkilendirme

[monsterazor]

Merhabalar;

Söz konusu olan dosya ekte. Kısaca yapmak istediğim şu şekilde;

Hazırladığım tablodaki fiyatlı ürün listesinde her satırda C sütununda yer alacak onay kutucuğu (''Satıldı'' şeklinde) işaretlendiğinde fiyatın en alttaki genel toplamdan düşmesi.

Belki çok kolay ama geliştirici sekmesine dair hiçbir bilgim olmadığı için çözüm bulamadım. Konuyla alakalı yardımlarınızı bekliyorum.

Teşekkürler şimdiden...

 

[asi_kral]

Merhaba
Ben dosyada onay kutusu falan görmedim acaba benden mi kaynaklanıyor

 

[Murat OSMA]

Sn.Korhan AYHAN'ın bu konu ile ilgili kodları ve dosyası vardı...

İnceleyiniz...

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

 

[dus_sokagi]

Ekteki dosyayı inceler misiniz

 

[monsterazor]

Ekteki dosyayı inceler misiniz

Hocam gerçekten çok ama çok teşekkür ederim. İlgilenip bir de üstüne dosyayı yapıp koymuşsunuz. Herşey tam istediğim gibi olmuş.
Tekrardan çok teşekkür ederim.
Sağolun