كود ترحيل بيانات مع البحث عن اسم الشيت اولا

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

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

اريد تطبيق الكود على الملف المدرج فهو موضح المطلوب 

MTM.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

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

Sub SSheet()
Dim ws As Worksheet, Data As Worksheet, ShName As String
Dim LR As Long, ER As Long, x As Integer
Set Data = Sheets("Sheet1")
ShName = Data.Range("C3").Text
ER = Data.Range("B" & Rows.Count).End(3).Row
x = ER - 7
For Each ws In Worksheets
If ws.Name = ShName Then
LR = ws.Range("B" & Rows.Count).End(3).Row
ws.Name = ShName
ws.Range("B" & LR + 1).Resize(x, 5) = Data.Range("B8").Resize(x, 5).Value
End If
Next
End Sub

 

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

السلام عليكم ورحمة الله  ..يوجد في هذا الكود مشكله لا اعرفها 
فعند ترحيل البيانات لعميل واحد فقط يقوم بالمطلوب وعدنما اقوم بفتح شيت اخر لعميل اخر لا يعمل لا اعلم اين المشكلة برجاء من سيادتكم تطبيق الكود على الملف المرفق وجزاكم الله كل خير  ..sheet1 يكون فيه البيانات المراد اخذ نسخه منها وترحيلها للشيت المكتوب في الخلية C3 وهو رقم هاتف العميل
Mahmoud.xlsm

[ابراهيم الحداد]

السلام عليكم و رحمة الله

لا اعلم ان كانت المشكلة من التنسيق او وجود بيانات مخفية تجعل البيانات ترحل بعد الصف 387

لتتأكد بنفسك انزل الى الصف 387 و سوف ترى البيانات التى تم ترحيلها

لكى يعمل معك الكود بدون مشاكل ..حدد النطاق من B8 الى مثلا G400 مثلا

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

 

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

المشكلة في تسلسل الارقام في اول عمود المسمى م