Onay kutusu işaretlenen ürünleri işleme

[yakup123]

arkadaşlar merhaba
ekte bir sorunum var userformda basit şekilde bir tarih atıyorum ve gelen ürünleri checkbox ını işaretleyim arka tarafta sayfa ya işlemesini istiyorum yalnız dolu olan yani onaylanmış işaretlenmiş ürünleri nasıl işletebilirim
saygılarımla

 

[hamitcan]

Private Sub CommandButton1_Click()
    i = 1
    [a2:b100].ClearContents
    For Each chk In UserForm1.Controls
        If TypeName(chk) = "CheckBox" Then
            If chk.Value = True Then
                i = i + 1
                Cells(i, 1) = chk.Caption
                Cells(i, 2) = CDate(TextBox1.Text)
            End If
        End If
    Next
End Sub

 

[yakup123]

Hocam bu çalışmıyor kod

 

[hamitcan]

Eki inceleyin.

 

[yakup123]

hocam mesela yarının tarihini girdiğim zaman ve farklı yada aynı ürünleri seçtiğim zaman üzerine işliyor altına işlemeye devam etmiyor

 

[yakup123]

hocam şöylede düşünebilirsin işi kolaylaştırmak adına işaretli olan yada olmayan tüm checkbox değerlerini yazdırsın hücreye true false olarak ayıklamak daha iyi olur ama her işlemde alt alta yazdırması lazım aynı gün bi kaç defa da yapabilirim giriş

 

[hamitcan]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    For Each chk In UserForm1.Controls
        If TypeName(chk) = "CheckBox" Then
            If chk.Value = True Then
                i = [a65536].end(3).row + 1
                Cells(i, 1) = chk.Caption
                Cells(i, 2) = CDate(TextBox1.Text)
            End If
        End If
    Next
End Sub

 

[yakup123]

hocam ellerine sağlık çok teşekkür ederim