السلام عليكم محتاج تعديل لكود البحث بحيث
ان ال id فى خليتين مدمجه وامامه خانة ساعات العمل واسفلها خانت السلف
هل ينفع الكود المستخدم فى جلب مثلا خلية من (d3:z3) ,وللسلف من (d4:z4)
lr = WorksheetFunction.CountIf(Range("A2:A1000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 2, 0)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 4, 0)
TextBox5.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 5, 0)
TextBox6.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 6, 0)
TextBox7.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 7, 0)
TextBox8.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 8, 0)
TextBox9.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 9, 0)
TextBox10.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 10, 0)
TextBox11.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 11, 0)
TextBox12.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 12, 0)
TextBox13.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 13, 0)
TextBox14.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 14, 0)
TextBox15.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 15, 0)
TextBox16.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 16, 0)
TextBox17.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 17, 0)
TextBox18.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 18, 0)
TextBox19.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:AL1000"), 35, 0)
TextBox20.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:AL1000"), 36, 0)
TextBox21.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:AL1000"), 37, 0)
Else
TextBox2.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
TextBox20.Value = ""
TextBox21.Value = ""
End If
كشف حدادين 2021 (8) - نسخة.xlsm