محمد عبد الناصر قام بنشر أكتوبر 14, 2020 مشاركة قام بنشر أكتوبر 14, 2020 احتاج الى كود في هذا الملف ان ينقل اسم العميل ورقم الجوال من شيت (البداية) الى شيت (التقرير) بحيث اذا وحد اسم العميل في التقرير ان لا يقوم بنقل الاسم مره اخرى ويعطى رسالة تحذير بان الاسم موجود بالفعل test 2.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أكتوبر 14, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 14, 2020 تفضل اخى الكريم -يمكنك استخدام هذا الكود ... تم التعــديــل من فضلك عليك بأستخدام خاصية البحث بالمنتدى قبل رفع مشاركتك حتى لا يتم اهدار مزيد من الوقت فى موضوعات قد تكررت وتم تناولها عشرات المرات 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 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أكتوبر 14, 2020 الكاتب مشاركة قام بنشر أكتوبر 14, 2020 شكرا اخي الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان