allahabi قام بنشر سبتمبر 19, 2020 مشاركة قام بنشر سبتمبر 19, 2020 السلام عليكم ورحمة الله وبركاتة ،، من قبل وضعت موضوع مساعدة لأدخال البيانات وجزاه الله خير احد الاعضاء قال ابداء بنفسك , كانت كلمة حلوة عشان ابداء بنفسي ووصلت الى هدفي لكن تبقى لي زر البحث عجزت فيه ملاحظة ( البحث بالرقم الوظيفي ) اتمنى مساعدتكم ,, مرفق الملف , ادخال بيانات الموظفين.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 19, 2020 مشاركة قام بنشر سبتمبر 19, 2020 لا أفهم ما الحاجة الى كل هذه الـــ TextBoxes في الملف في حين يمكن الكتابة رأساً في الخلايا الابتعاد قدر الامكان عن الخلايا المدمجة (تم ازالتها) وضعت لك كود للزر حفظ و يمكن وضع كود مماثل لباقي الأزار Option Explicit Dim Sh1 As Worksheet, Sh2 As Worksheet Dim lr1%, lR2% Dim AR1(), AR2() Dim i%, k% '========================================== Sub Debut() Set Sh1 = Sheets("Sheet1") Set Sh2 = Sheets("Sheet2") lR2 = Sh2.Cells(Rows.Count, 2).End(3).Row + 1 End Sub '============================================= Sub Form_sh1_to_sh2() '+++++++++++++++++++++++++++++++ 'Macro for cmdSave '+++++++++++++++++++++++++++++++++++ Debut AR1 = Array("C6", "C7", "C8", "C9" _ , "C10", "C11", "C12", "C13") AR2 = Array(0, 1, 2, 3, 4, 5, 6, 7) For k = LBound(AR1) To UBound(AR1) Sh2.Cells(lR2, 2).Offset(, AR2(k)) = Sh1.Range(AR1(k)) Sh1.Range(AR1(k)) = vbNullString Next Sh2.Cells(2, 1).Resize(lR2 - 1) = _ Evaluate("row(1:" & lR2 - 1 & ")") End Sub '=========================================== Private Sub cmdSave_Click() Form_sh1_to_sh2 End Sub الملف مرفق allahabi.xlsm 1 2 رابط هذا التعليق شارك More sharing options...
allahabi قام بنشر سبتمبر 19, 2020 الكاتب مشاركة قام بنشر سبتمبر 19, 2020 أستاذ سليم حاصيبا ,, سلمت اناملك اعذرني ماعندي خلفية كافية عشان اعرف الاشياء الهامة من غير الهامة كل تركيزي كان مصب على ان الاوامر تتنفذ واهملت الكثير من الاكواد بالفعل اصبح الملف اكثر ترتيباً واخف من اول , لكن مازالت مشكلة البحث لم تنحل ,, قلت استطيع استخدام الاكواد لباقي الازرار ,, هل استطيع وضع الكود في زر البحث وماهي المتغيرات المطلوبة لعمل ذلك ,, اشكر لك اهتمامك ,, allahabi.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 19, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 19, 2020 تم معالجة الأمر بالنسبة للزر "بحث" تكتب ما تريد البحث عنه في الحلية C6 ثم تنقر على الزر بحث allahabi 1.xlsm 3 رابط هذا التعليق شارك More sharing options...
allahabi قام بنشر سبتمبر 19, 2020 الكاتب مشاركة قام بنشر سبتمبر 19, 2020 لا عدمناك اخ سليم ,, اشكر جهدك وباقي الاشياء اتولاها انا تسلم وجزاك الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان