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

عند محاولة ادخال فاتور جديدة تظهر هذه الرسالة لايمكن الحصول على الخاصية worksheetfunction من الفئة vlookup وهل من الممكن جعل التكست بوكس لايقبل الا ارقام فقط ولايقبل ايضا ان يكون فارغا وكيف ذلك vlookup code.rar

جزاك الله خيرا احمد عبدالناصر علي اهتمامك وعلي الفكرة الجيدة لكن للاسف مامشي الحال لاني اريد انه في حالة ان الكمومبو بوكس 7 فارغ يجعل قيمة التكست بوكس 5 و 6 قيمتهم صفر حتي لايؤثر علي المعادلة التي تحسب اجمالى قيمة الفاتورة واذا كان هانك بالكومبو بوكس 7 قيمة بنفذ االموجود بالكود السابق وكذلك الحال بالنسبة للكومبو بوكس 8 فارغ يجعل قيمة التكست بوكس 7 و8 قيمتهم صفر حتي لايؤثر علي المعادلة التي تحسب اجمالى قيمة الفاتورة واذا كان هانك بالكومبو بوكس 8 قيمة بنفذ االموجود بالكود السابق وشكرا لتعاونك معى

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

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

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

If Me.ComboBox7.Value = 0 Then Else ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value If Me.ComboBox8.Value = 0 Then Else ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value End If End If المطلوب تعديل الكود السابق بحيث انه اذا لم ادخل قيمة في الكمبو بوكس 7 لايفعل شئ واذا كان هناك قيمة ينفذ الكود اللي بعد else ثم اذا كان لايوجد قيمة في كومبو بوكس 8 لايفعل شئ واذا كان هناك قيمة ينفذ الكود اللي بعد else ,ومرفق الملف ايضا للتوضيح اكثر 16دورة محاسبية.rar

الاخ ابو محمد نزل الملف وحاول تفهمه وحدد الجزئيات التي صعب عليك فهمها وسوف اوضحها لك ان شاء الله

الاخ الفاضل / احمد عبدالناصر اولا : تعديلك اكثر من رائع وحقق المطلوب بالضبط ثانيا : احييك علي دقة ملاحظتك ففعلا التاريخ لا يرحل بصورة صحية ولا اعرف السبب برجاء توضيح السبب ولك جزيل الشكر

مطلوب تعديل في فورم ادخال البيانات لتسهيل عملية الادخال والمطلوب موضح بالمرفق ولكم جزيل الشكر فورم ادخال البيانات.rar

هل المشكلة كانت فقط في ضغط CTRL+SHHFT+Enter ام عدلت شي في كود الدالة الموجود فالفيجوال بيسك

برجاء المساعدة في تحديد سبب الخطأ Value# في هذا الملف 121.rar

برجاء المساعدة في تحديد سبب الخطأ 121.rar

شكرا جزيلا لك اخى بن عليه وجعله في ميزان حسناتك

("INDIRECT("$e$"&Q2+1&":$e$81=

("INDIRECT("$e$"&Q2+1&":$e$81=

اذا كان النطاق في ورقة عمل اخرى فان الدالة indirect لا تعمل فهل يوجد بديل

الرجاء توضيح هذه الدالة (INDIRECT("$e$"&M3+1&":$e$81=

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

الحل بالمرفق حاضر لاي تعديلات invoice upload_volta.rar

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

المطلوب موضح بالمرفق برجاء شرح الحل ولو شرح مبسط اليومية.rar

الحل بالملف المرفق share.rar

عندك حق وساضيف الحل ان شاء الله

لا تحتاج الي معادلة حدد العمود ثم من قائمة بيانات اختر النص الى اعمدة علم علي خيار محدد ثم التالى ثم علم علي غير ذلك وتاكد انك مش معلم علي حاجه تانيه معاه ثم انهاء هايفصلهم كل رقم في عمود

ارجو توضيح الدوال المستخدمه لاني تعبت ومش قادر افهمها وجزاك الله خيرا