كود استدعاء بيانات بشرط

[أبو سـما]

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

 

اخواني الأعزاء فكرة الكود سوف تكون كالتالي :

عند تسجيل كتاب صادر جديد وعندما أقوم بالضغط على إتمام عملية التسجيل فإنه سوف يقوم بأخذ الرقم الموجود في خانة رد على وارد (TEXTBOX14) ويبحث عنه في ورقة عمل الوارد في نطاق العمود (A) فإذا وجده فسوف يسجل الرقم الموجود في خانة رقم الصادر (TEXTBOX10) في ورقة عمل الوارد في العمود (M).

وقد اجتهدت في عمل الكود ولكنه لم يعمل بالشكل الصحيح فالرجاء المساعدة وهذا هو الكود في (CommandButton2) :

 

With WARED
KSH = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
khh = WorksheetFunction.Match(ii, .Range("A2:A" & KSH), 0) + 1
If TextBox14.Text = WARED.Range("A", khh).Value Then
WARED.Range("M", khh).Value = TextBox10.Value
End If
End With
 

 

الرجاء مساعدتي وتصحيحه وجزاكم الله خير.

 

تنظيم المعاملات2.rar

[محي الدين ابو البشر]

السلام عليكم

أخي العزيز اعطاك الله العافية على هذا الجهد ارجو أن تعيد النظر بالسطر

If TextBox14.Text = WARED.Range("A", khh).Value Then

If TextBox14.Text = WARED.Range("A"& khh).Value Then

 

جرب هذا التعديل

وبالتوفيق

[أبو سـما]

جزاك الله خير أخي محيي الدين بالفعل كلامك صحيح واستبدلت العلامة (,) بعلامة (&) والكود بالفعل لم يظهر أي أخطاء ولكن عند التطبيق أراه يكتب بالفعل داخل الخلية المحددة الرقم المطلوب ولكن يختفي الرقم مباشرة بعد ذلك لأن قيمة Textbox10 الجديدة أصبحت بعد ذلك لا شي وبالتالي لا يكتب شي داخل الخلية والمطلوب الان هو تثبيت قيمة textbox10  داخل الخلية عند الادخال ولا يتم تغييرها بعد الادخال.

With WARED
SH = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
KH = WorksheetFunction.Match(ii, .Range("A2:A" & SH), 0) + 1
End With
If TextBox14.Text = WARED.Range("A" & KH).Value Then
WARED.Range("M" & KH).Value = TextBox10.Text
 End If
 

تم تعديل يونيو 22, 2016 بواسطه أبو سـما

[محي الدين ابو البشر]

 For r = 3 To 24
'            Me.Controls("TextBox" & r) = ""

            With WARED
                SH = .C

جرب هذا التعديل

[أبو سـما]

جزاك الله خير أخي الكريم محي الدين وشكر الله لك ورزقنا واياك ليلة القدر.

 

الف شكررررررررررررررررر

 

انا مسحت كود التفريغ من هنا ووضعته في نهايته الكود لكي يمسح البيانات الموجودة في الفورم بعد الادخال

تم تعديل يونيو 22, 2016 بواسطه أبو سـما

[محي الدين ابو البشر]

السلام عليكم

الحمد لله انه تم المطلوب

كنت افكر في الموضوع وكنت سأقترح عليك ذلك 

احسنت صنعا وجزاك الله كل خير

ولك بمثل ما دعوت