مساعدة في كود البحث بالرقم الوظيفي

[allahabi]

السلام عليكم ورحمة الله وبركاتة ،،

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

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

 ملاحظة ( البحث بالرقم الوظيفي )

اتمنى مساعدتكم ,, 

مرفق الملف ,

ادخال بيانات الموظفين.xlsm

[سليم حاصبيا]

لا أفهم ما الحاجة الى كل هذه الـــ 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

[allahabi]

أستاذ سليم حاصيبا ,,  سلمت اناملك

اعذرني ماعندي خلفية كافية عشان اعرف الاشياء الهامة من غير الهامة

كل تركيزي كان مصب على ان الاوامر تتنفذ واهملت الكثير من الاكواد

بالفعل اصبح الملف اكثر ترتيباً واخف من اول , 

لكن مازالت مشكلة البحث لم تنحل ,, 

قلت استطيع استخدام الاكواد لباقي الازرار ,, هل استطيع وضع الكود في زر البحث وماهي المتغيرات المطلوبة لعمل ذلك ,, 

اشكر لك اهتمامك ,,

allahabi.xlsm

[سليم حاصبيا]

تم معالجة الأمر بالنسبة للزر "بحث"

 تكتب ما تريد البحث عنه في الحلية C6 ثم تنقر على الزر بحث

allahabi 1.xlsm

[allahabi]

لا عدمناك اخ سليم ,,

اشكر جهدك وباقي الاشياء اتولاها انا

تسلم وجزاك الله خير