البحث في الموقع

الافاضل الكود رقم البطاقة الضريبى رقم الملف أسم الممول العنوان المأمورية المختصة تاريخ التعامل مأمورية كود الاخوه الافاضل تحيه طيبه وبعد الشكل السابق هو شكل شيت الاكسل عندى حيث اننى لا استطيع رفع الملف على المنتدى ولقد قمت بعمل نوذج للبحث مع امكانيه التعديل عليه ولكننى بصدد مشكله لم اعرف كيف اتخطاها وهى اننى باسم الممول وعند التعديل يتم تغير الخليه الاولى من الكود الى الاسم فهل هناك حل ارجو المساعده من اهل الخبره وهذا هو الكود المستخدم لدى End Sub Private Sub CommandButton1_Click() Beep Unload Me End Sub Private Sub CommandButton2_Click() Beep DataBase1.PrintForm End Sub Private Sub CommandButton4_Click() III = 7 Do Until Sheets("ÈíÇäÇÊ ÇáÚãáÇÁ").Cells(III, "B").Text = "" If Me.ComboBox1.Text = Sheets("ÈíÇäÇÊ ÇáÚãáÇÁ").Cells(III, "D").Text Then Cells(III, "A").Activate Me.TextBox2 = ActiveCell.Offset(0, 0).Text Me.TextBox3 = ActiveCell.Offset(0, 1).Text Me.TextBox4 = ActiveCell.Offset(0, 2).Text Me.TextBox5 = ActiveCell.Offset(0, 3).Text Me.TextBox6 = ActiveCell.Offset(0, 4).Text Me.TextBox7 = ActiveCell.Offset(0, 5).Text Me.TextBox8 = ActiveCell.Offset(0, 6).Text Me.TextBox9 = ActiveCell.Offset(0, 7).Text Me.TextBox10 = ActiveCell.Offset(0, 8).Text Me.TextBox11 = ActiveCell.Offset(0, 9).Text Exit Sub End If III = III + 1 Loop MsgBox ("!!! ÚÝæÇ .. ÇÎÊÑ ÑÞã ÇáÓÌá ") Me.ComboBox1.SetFocus Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox7.Text = "" Me.TextBox8.Text = "" Me.TextBox9.Text = "" Me.TextBox10.Text = "" Me.TextBox11.Text = "" End Sub Private Sub CommandButton3_Click() ActiveCell.Offset(0, 0).Value = ComboBox1 ActiveCell.Offset(0, 1).Value = TextBox3 ActiveCell.Offset(0, 2).Value = TextBox4 ActiveCell.Offset(0, 3).Value = TextBox5 ActiveCell.Offset(0, 4).Value = TextBox6 ActiveCell.Offset(0, 5).Value = TextBox7 ActiveCell.Offset(0, 6).Value = TextBox8 ActiveCell.Offset(0, 7).Value = TextBox9 ActiveCell.Offset(0, 8).Value = TextBox10 ActiveCell.Offset(0, 9).Value = TextBox11 ActiveCell.Offset(0, 10).Value = TextBox12 MsgBox "Êã ÊÓÌíá ÇáÊÚÏíáÇÊ" End Sub Private Sub Label51_Click() End Sub Private Sub Label8_Click() End Sub 'Private Sub TextBox5_Change() 'Me.TextBox5.Value = Format(Me.TextBox5.Value, "yyyy/mm/dd") 'End Sub Private Sub UserForm_Activate() ComboBox1.Value = "" Label1 = Cells(2, "A") Label2 = Cells(2, "B") Label3 = Cells(2, "C") Label4 = Cells(2, "D") Label5 = Cells(2, "E") Label6 = Cells(2, "F") Label7 = Cells(3, "G") Label8 = Cells(2, "H") Label9 = Cells(2, "I") Label10 = Cells(3, "J") Label11 = Cells(2, "K") Label51 = Cells(2, "D") End Sub