Check box & onay

[ezkurtcan]

Merhaba;
Ekteki dosya ile ufak bir makroya ihtiyacım var. Tabloyu açan kişi A sutunundaki görevleri tamamladıkça B sutununu işaretleyip onay butonuna basacak ve C sutununda o satıra ait hücreye Windows kullanıcı adı ve tarih-saat gelecek. Bunu makro ile yapabilir miyiz?

Ayrıca alta yeni görevler eklendiğinde otomatik olarak check-box oluşturması sağlanabilir mi?

Şimdiden teşekkür ederim.

 

[ezkurtcan]

Arkadaşlar;
sorumun zor olduğunu düşünmüyorum. Benim için çok önemli. Yardımlarınızı bekliyorum.

 

[hamitcan]

Tabloyu açan kişi A sutunundaki görevleri tamamladıkça B sutununu işaretleyip onay butonuna basacak ve C sutununda o satıra ait hücreye Windows kullanıcı adı ve tarih-saat gelecek

Private Sub CommandButton1_Click()
[c2:c50].Clear
    For i = 1 To ActiveSheet.OLEObjects.Count
        Set chk = ActiveSheet.OLEObjects(i)
        If Left(chk.Name, 8) = "CheckBox" Then
        If chk.Object.Value = True Then
            chk.BottomRightCell.Offset(0, 1) = Environ("username") & " " & Date
        End If
        End If
    Next
End Sub

 

[ezkurtcan]

yardımlarınız için teşekkür ederim. çok makbüle geçti.

 

[hamitcan]

Ayrıca alta yeni görevler eklendiğinde otomatik olarak check-box oluşturması sağlanabilir mi?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Right(Target.Text, 5) = "GOREV" Then
        Target.Offset(0, 1).Select
        Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
        obj.Object.Caption = "OK"
        obj.Height = 24
        obj.Width = 72
    End If
End Sub