رسالة خطأ عند استخدام دالة vlookup مع فورم الادخال

[حسين العصلوجى]

عند محاولة ادخال فاتور جديدة تظهر هذه الرسالة

 

لايمكن الحصول على الخاصية  worksheetfunction من الفئة vlookup

 

 وهل من الممكن جعل التكست بوكس لايقبل الا ارقام فقط ولايقبل ايضا ان يكون فارغا وكيف ذلك

vlookup code.rar

تم تعديل فبراير 9, 2013 بواسطه حسين العصلوجى

[حمادة عمر]

الاخ الكريم

انظر المرفق

ان كان هذا ما تريده وعلي حسب فهمي للموضوع

نقوم بالتعديل علي ملفك المرسل

 

جزاك الله خيرا

 

 

كومبوبكس بحث.rar

[عبدالله المجرب]

قم بمسح جميع اكواد الفورم واستبدلها بهذه

 

Private Sub ComboBox1_Change()
TextBox2.Value = Application.VLookup(ComboBox1.Value, Sheets("ورقة2").Range("a2:b7"), 2, 1)
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub
Private Sub UserForm_Activate()
TextBox1.Value = 0
TextBox2.Value = 0
TextBox3.Value = 0
For x = 2 To Sheets("ورقة2").Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem Sheets("ورقة2").Cells(x, 1)
Next
End Sub

[حمادة عمر]

السلام عليكم

الاستاذ القدير / عبدالله المجرب

 

اكواد جميلة ورائعة

وسهلة لنتعلم منها نحن تلاميذك استاذنا

جزاك الله خيرا

[حسين العصلوجى]

الاخ / حماده عمر 

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

 

 

الاستاذ القدير / عبدالله المجرب

التعديل اكثر من رائع وفعلا حل لي المشكلة لكن يوجد مشكلة انه احيانا احتاج الي تعديل السعر ولكن عند التعديل علي السعر لاتتعدل القيمة وبالتلي تكون القيمة الظاهرة خطأ فالقيمة تتعدل فقط عند تعديل الكمية وانا اريد ان تتعدل القيمة عند حدوثاي تغيير فالكمية او السعر او كليهما 

 

ولك جزيل الشكر والتقدير

[حسين العصلوجى]

وهل من الممكن جعل التكست بوكس لايقبل الا ارقام فقط ولايقبل ايضا ان يكون فارغا وكيف ذلك