عبدالرحمن السويح

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

شكراً لك على مساعدتي تمام 100% لكن اتمنى لك ان تشرح لي بإختصار ما هو هذا الخلل في الكود حتى اتفادى في المرات القادمة وانا جديد على هذه الاعمال واريد ان اكسب الخبرة من الاخطاء التي اقع فيها واشكرك على مجودك الرائع ادخلني واياك جنة الفردوس والمسلمين اجمعين في أمان الله اسف على ازعاجك لكن نسيت حاجة وحدة واريد ان استفسر منك وهي كالتالي انا قمت بعمل شيت صادر وشيت وارد وانهيت عمل الفورم بالنسبة للوارد الأن اذا اردت ان اعمل للصادر هل استخدم نفس الكود دون تعديل او يوجد تعديل بحيث ان اذا فتحت فورم الوارد يرحل لشيت الوارد واذا فتحت فورم الصادر يرحل الصادر واسف على ازعاجك مرة اخرى دمت بود مع السلامة

تم ارفاق الملف كامل ارجو المساعدة منكم وشكراً اخي ياسر وسليم على اهتمامكم غفر الله لي ولكم وسائر المسلمين انتظر منكم الحل مع السلامة الصادر والوارد.rar

السلام عليكم ورحمة الله وبركاتة اسمحو لي انا اعرض لكم مشكلتي انا مستخدم جديد على الفجول بيسك والعمل على الاكواد قمت بمتابعة فديو يشرح لي الترحيل بنظام الفورم VBA لكن واجهة مشكلة المشكلة الاولى يظهر لي سطر باللون الاصفر لا اعرف ما هي المشكلة بالظبط بس حسب ما عملت تخمين للموضوع انه عند ترحيل البيانات لايستطيع الترحيل للشيت المخصص عند الترحيل يعني مثال : عندي شيت صادر وشيت اخر وارد اريد الترحيل للشيت الصادر من الفورم لكن لم استطع الوصول إلى حل اتمنى منكم مساعدتي Private Sub CommandButton1_Click() Sheets(1).Activate lrow = Range("d" & Rows.Count).End(xlUp) Range("d" & lrow + 4).Value = ComboBox1.Value Range("d" & lrow + 4).Offset(0, 1).Value = TextBox1.Value Range("d" & lrow + 4).Offset(0, 2).Value = TextBox2.Value Range("d" & lrow + 4).Offset(0, 3).Value = TextBox3.Value Range("d" & lrow + 4).Offset(0, 4).Value = TextBox4.Value Range("d" & lrow + 4).Offset(0, 5).Value = TextBox5.Value Range("d" & lrow + 4).Offset(0, 6).Value = TextBox6.Value ComboBox1.Value = "" TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" End Sub هذا هو الكود والخطاء يظهر لي بهذا الكود بالظبط Range("d" & lrow + 4).Value = ComboBox1.Value انتظر منكم الحل وشكراً لكم ومن لدية طريقة اخرى اكون ممنون له اشكر كل اعضاء المنتدى القيم مع السلامة تم ارفاق الملف UserForm1.rar