كود نقل اسم العميل الى شيت اخر مع عدم تكرار الاسم

[محمد عبد الناصر]

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

test 2.xlsm

[Ali Mohamed Ali]

تفضل اخى الكريم -يمكنك استخدام هذا الكود ... تم التعــديــل

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

Sub Test()
Dim rng1 As Range
Dim str_search As String
ThisWorkbook.Sheets("البداية").Activate
str_search = Range("b6").Value
ThisWorkbook.Sheets("التقرير").Activate
Set rng1 = Sheets("التقرير").Range("a:a").Find(str_search, , xlValues, xlWhole)
If rng1 Is Nothing Then
Dim lastRow As Long
lastRow = ThisWorkbook.Sheets("التقرير").Range("A1000000").End(xlUp).Row
lastRow = lastRow + 1
With ThisWorkbook.Sheets("التقرير")
.Range("A" & lastRow).Value = Sheets("البداية").Range("B6").Value
.Range("B" & lastRow).Value = Sheets("البداية").Range("B7").Value
.Range("C" & lastRow).Value = Sheets("البداية").Range("B8").Value
End With
Sheets("البداية").Range("B6").Value = ""
Sheets("البداية").Range("B7").Value = ""
Sheets("البداية").Range("B8").Value = ""
 Else
MsgBox str_search & " موجود مسبقا"
ThisWorkbook.Sheets("البداية").Activate
End If
End Sub

 

test 3.xlsm

[محمد عبد الناصر]

شكرا اخي الكريم