اضافة كود تسجيل بيانات في اليوزرفورم

[المصباحي]

السلام عليكم ورحمة الله وبركاته

الرجاء من الاخوة الافاضل الوصول الى حل في اضافة كود تسجيل بيانات في اليوزرفورم بدلالة اختيار التاريخ المحدد حيث قمت باضافة اكتر من كود ولكن واجهتني مشكلة الكومويوكس 

بارك الله فيكم المصنف).rar

تحياتي 

 

 

[خالد الرشيدى]

اخي الكريم

هناك طرق كثيره منها

Private Sub Record_Click()
    Dim i As Integer, Lr As Long
    Lr = ورقة1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Lr
        If CDate(ورقة1.Cells(i, 1).Value) = CDate(Me.ComboBox1.Value) Then
            ورقة1.Cells(i, 2).Value = Me.TextBox1.Value
        End If
    Next
End Sub

تقبل تحياتي

تم تعديل يناير 19, 2017 بواسطه خالد الرشيدى

[المصباحي]

في 1/19/2017 at 18:11, خالد الرشيدى said:

اخي الكريم

هناك طرق كثيره منها

Private Sub Record_Click()
    Dim i As Integer, Lr As Long
    Lr = ورقة1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Lr
        If CDate(ورقة1.Cells(i, 1).Value) = CDate(Me.ComboBox1.Value) Then
            ورقة1.Cells(i, 2).Value = Me.TextBox1.Value
        End If
    Next
End Sub

تقبل تحياتي

اخي خالد مشكور و بارك الله فيك هذه الفكرة ممتازة  وجزاك الله خير 

تحياتي