تعديل على الكود ترحيل بيانات من الفورم الى شيت اكسل

[kkfhvvv]

السلام عليكم

عند القيام بادخال البيانات عن طريق الفورم - تظهر مشكلة 

وعند محاولاتي التعديل - لم تنجح المحاولات

ممكن مساعدتي - جزاكم الله 

 

عند كتابة الكود يأتي الاسم (1) - تحديث1.xlsb

[حسونة حسين]

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

لا يوجد في الفورم الخاص بك

Me.ComboBox2.Text

عدلها الى

Me.ComboBox1.Text

 

[محمد هشام.]

قم باستبدالها الى

ws.Cells(ligne, 1) = Me.TextBox1.Text

وفي كود التعديل 

f.Cells(LigneN_Row, 1) = Me.TextBox1

وفي عمود حالة الاجازة يمكنك تجربة المعادلة التالية   بدون الاعتماد على الخلية (1M)

 

 

=IF(ISBLANK(H3);"";IF(H3<TODAY();"باشر";"يتمتع"))

 

عند كتابة الكود يأتي الاسم -تحديث1.xlsb

[kkfhvvv]

تسلم استاذ 

جزاك الله خير