مساعدة في كود دالة شرطية

[hbar]

مساعدة في دالة شرطية.xlsm

اريد التعديل على الكود الموجود بداخل اليوزر فورم اريده قبل الترحيل ان يبحث عن هذا الاسم الذي بالداخل  TextBox1  اذا وجده يرحل عادي فإن لم يجده يعطيني رسالة مثل الموجودة في الكود الذي سويته التعديل المطلوب هو فى دالة  if  التي بها الوب  فقط اريده على هذا الشرط ( اذا لم يساوي الاسم الموجود فى  TextBox1  اي اسم من الاسماء الموجودة  اعطني الرسالة ( لايوجد الاسم)

عليك الا تبخل بالشرح هنا أيضاً ... حتى لا تبخل وتبتعد الأساتذة عن تقديم المساعدة لــك !!

[أ / محمد صالح]

يمكنك استعمال هذا الكود في حدث عند الضغط على الزر

Private Sub CommandButton1_Click()
Dim iRow As Long, Lastrow As Long, i As Long
With ورقة1
Lastrow = .Cells(.Rows.Count, 7).End(xlUp).Row
For r = 3 To Lastrow
If .Cells(r, 7) = TextBox1.Value Then
iRow = .Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row
.Cells(iRow, 3).Value = Me.TextBox1.Value
.Cells(iRow, 4).Value = Me.TextBox2.Value
MsgBox " لقد تم الترحيل بنجاح ", vbExclamation + vbMsgBoxRight, "تم الترحيل "
GoTo 1
End If
Next
End With
MsgBox "لايوجد هذا الاسمً  ", vbInformation + vbMsgBoxRight, "تنبيه"
1: TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
End Sub

بالتوفيق

[hbar]

شكراً اخي محمد على هذا المجهود