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

[احمد النكلاوي]

مرفق ملف يضم برنامج مبيعات لا يزال في بداية انشاءه

المطلوب يخص الجدول Sales باللون الأحمر

حيث قمت بعمل كود ترحيل مأخوذ من ابداعات الأستاذ islam ragab

والمشكلة التي تواجهني تتمثل في التالي

في بعض الأحيان تتم عملية بيع اما بيع بسعر التجزئة او بيع بسعر الجملة

وعند القيام بتسجيل عمليات البيع تباعا في الفورم يحدث أنني مثلا استخدم تكست بوكس 1  دون استخدام تكست بوكس 2 و 3 لتسجيل عملية البيع بسعر التجزئة

وعند تسجيل عملية بيع بسعر الجملة استخدم تكست بوكس 2  او 3 دون استخدام تكست بوكس 1

بمعني انه في كل مرة يتم استخدام تكست بوكس واحد فقط دون الآخرين

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

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

أيضا يحدث عند الترحيل في حالة وجود بيانات في الصف b فقط دون وجود أي بيانات في الصف a

وعند ترحيل عملية بيع بسعر التجزئة من خلال تكست بوكس 1 انه يتم إزالة آخر بيان ضمن الصف b

وترحيل البيان الجديد الي  الصف a

وأخيرا اريد ان يتم الترحيل الي الجدول sales ضمن المدي a5:c33) )

حيث انني اضطرت الي كتابة رقم 0 في الخلايا a4 و b4 وc4 حتي يتم الترحيل الي المدي المطلوب

وأريد كتابة هذا المدي a5:c33) ) ضمن الكود

11.rar

 

[ياسر خليل أبو البراء]

أخي الفاضل جرب هذا الكود

Private Sub CommandButton1_Click()
 On Error Resume Next
 
x = ComboBox1.Value
Sheets(x).Activate

Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = TextBox1.Value
Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = TextBox2.Value
Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = TextBox3.Value
   
     If ComboBox1.Value = "" Then
        MsgBox "لم يتم تحديد ورقة العمل"
     End If

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox1.SetFocus

End Sub

[احمد النكلاوي]

شكرا لك يا استاذ ياسر علي الاهتمام وسرعة الاستجابة

بالفعل الكود الذي قدمته يعمل بكفاءه وكما طلبت 

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

تقبل تحياتي  

[ياسر خليل أبو البراء]

 

شكرا لك يا استاذ ياسر علي الاهتمام وسرعة الاستجابة

بالفعل الكود الذي قدمته يعمل بكفاءه وكما طلبت 

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

تقبل تحياتي  

 

بارك الله فيك أخي الكريم أحمد النكلاوي وجزيت خيراً على دعائك الطيب

مشكور على تحديد أفضل إجابة

تقبل تحياتي