الى اهل الخبره فى اكواد الاكسل

[إبراهيم ابوليله]

الافاضل الكود رقم البطاقة

الضريبى رقم الملف أسم الممول العنوان المأمورية المختصة

تاريخ التعامل

مأمورية كود

الاخوه الافاضل تحيه طيبه وبعد

الشكل السابق هو شكل شيت الاكسل عندى حيث اننى لا استطيع رفع الملف على المنتدى

ولقد قمت بعمل نوذج للبحث مع امكانيه التعديل عليه

ولكننى بصدد مشكله لم اعرف كيف اتخطاها وهى اننى باسم الممول وعند التعديل

يتم تغير الخليه الاولى من الكود الى الاسم فهل هناك حل

ارجو المساعده من اهل الخبره

وهذا هو الكود المستخدم لدى

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