mhareek

http://www.officena.net/ib/index.php?showtopic=21276 اين اخى الحبيب ما وعدتنا بة من تعديل فى البرناج الى ثلاث ارقام غشريةبدل من رقمين عشرين

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

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

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

هل طلبى بهذه الصعوبة

اخوانى الاحباب مشرفى هذا المنتدى الرائع لقد دمجت 2 كود فى هذا الفورم المطلوب هو ان عند ضغط اضافة يقوم الفورم باضاة البينات فى نفس السطر المستخرج من البينات وليس فى اخر سطر كما يقوم الان ارجو المساعدة للاهمية وجزاكم الله خير مرفق اليوزر فورم والكود ملحوظة هذا اليوزر من عمل اساتزتى بالمنتدى الف شكر My_Form_06.rar

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

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

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

اخوانى احبابى لقد وضعت موضوع لعمل برنامج اصول ولكن لم اجد رد ولكن بفضل الله استعنت باخوانى فى المنتدى هذا النتدى الحبيب وقمت بالجمع بين كودين من عمل اخوانى الاعزاء فى هذا المنتدى الغالى يقوم الكود بالعرض فى الفورم وعند الضغط يقوم باللصق فى الاكسيل اى استخراج ومن ثم يقوم باعادتهم مرة اخرى ولكن المشكلة التى واجهتنى انه عندما يقوم بارجاعهم فى الاكسيل يضعهم فى اخر سطر وليس على نفس السطر المستخرج فارجو المساعدة من حيتث ان يقوم الكود بارجاع البينات فى نفس السطر المستخرج منة البيانات اى السطر الذى يقف عليةالكود ولكم جزيل الشكر الاكود هى كالاتى تعمل على يوزر فورم كما تعلمون Private Sub CommandButton1_Click() End End Sub Private Sub UserForm_Activate() Sheets("List").Cells(2, "e").Select For i = 2 To Sheets("List").ER cmb_Choose.AddItem (Sheets("List").Cells(i, "e")) Next End Sub Private Sub cmb_Choose_Change() For i = 2 To Sheets("List").ER If cmb_Choose.Text = Sheets("List").Cells(i, "e").Text Then txt_Name.Text = Sheets("List").Cells(i, "B").Text txt_Company.Text = Sheets("List").Cells(i, "a").Text txt_Category.Text = Sheets("List").Cells(i, "D").Text TextBox1.Text = Sheets("List").Cells(i, "i").Text TextBox2.Text = Sheets("List").Cells(i, "j").Text TextBox3.Text = Sheets("List").Cells(i, "k").Text TextBox6.Text = Sheets("List").Cells(i, "g").Text TextBox5.Text = Sheets("List").Cells(i, "l").Text TextBox7.Text = Date TextBox34.Text = Time If txt_Date_Graduated = "" Then txt_Date_Dif = "" Else txt_Date_Dif = Month(txt_Date_Graduated) End If txt_Department.Text = Sheets("List").Cells(i, "F").Text Sheets("List").Cells(i, "B").Select Exit For End If Next btn_Next.Enabled = True btn_Next.Caption = " < " btn_Last.Enabled = True btn_Last.Caption = " > " End Sub Private Sub btn_Last_Click() btn_Next.Enabled = True btn_Next.Caption = " < " ActiveCell.Offset(-1, 0).Select My_Text If ActiveCell = "الاسم" Then btn_Last.Enabled = False btn_Last.Caption = "First" MsgBox "First" End If End Sub Private Sub btn_First_Click() Sheets("List").Cells(2, "B").Select My_Text End Sub Private Sub btn_Next_Click() btn_Last.Enabled = True btn_Last.Caption = " > " ActiveCell.Offset(1, 0).Select My_Text If ActiveCell = "" Then btn_Next.Enabled = False btn_Next.Caption = "Last" MsgBox "LAST" End If End Sub Private Sub btn_End_Click() Sheets("List").Cells(Sheets("List").ER, "B").Select My_Text End Sub Private Function My_Text() txt_Name.Text = ActiveCell.Text txt_Company.Text = ActiveCell.Offset(0, 1).Text txt_Category.Text = ActiveCell.Offset(0, 2).Text txt_Department.Text = ActiveCell.Offset(0, 4).Text End Function ارجو الاهتمام والمساعدة للعلم هذا الاكود من عمل اساتذتى بهذا المنتدى الحبيب الف شكر

الف شكر اخى الحبيب اتمنى لك من الله كل خير اخى الحبيب نحن فى انتظار باقى الاجزاء اخى الحبيب

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

اخى الحبيب هناء تعديل بسيط الملاحظ ان الكود لا يرحل الا سطر واحد اذا كتبت اكتر من سطر يرحل و احد فقط فى كل مرة تضغط على الترحيل المطلوب ان اكتب اكثر من سطر ويتم الترحيل دفعة واحدة مع الشكر

الف الف شكر اخى الحبيب وجزاك الله خير ان شاء الله نحن فى انتظار باقى الدروس الف شكر

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

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

الف شكر اخى الحبيب

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

الف شكر اخى الحبيب

اخى خبور الخير اين التعديل كما وعدتان

اخى خبور الخير اين التعديل كما وعدتان

سلمت الايادى اخى الحبيب بارك الله فيك عمل رائع اخى الحبيب هل من الممكن عند استدعاء سطر من خلال رقم الى فى الخامة A ان اعيد نفس السطر الى مكانة فى صفحة ID بعد ان اقوم بتعديل بيناتة عن طريق كود

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

اخى الحبيب فى الاصدار الرابع من برنامجك الجميل القيم الكسر العشرى اثنين فقط (لان العملة ريال) فهل من الممكن جعل عدد ارقام الكسر ثلاثة لانى بالكويت والعملة الدينار والكسر يجب ان يكون ثلاثى ارجو المساعدة ولك جزيل الشكر اخى الحبيب جزاء الله خيير

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