احمد النكلاوي قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 (معدل) عندي ملف به بيانات يتم استخراجها من برنامج احد الاعمدة توجد بيانات نصية عبارة عن اسماء العملاء بين اسم كل عميل واخر توجد هناك ارقام ما هو مطلوب موضح في الصورة هذا هو الملف المطلوب وانا اسف لعدم ادراكي أهمية هذا الأمر بل كل ما اريده هو كود لنسخ بيانات ولصقها في نفس العمود كما هو موضح في الملف المرفق تم تعديل يونيو 12, 2020 بواسطه احمد النكلاوي رابط هذا التعليق شارك More sharing options...
احمد النكلاوي قام بنشر يونيو 12, 2020 الكاتب مشاركة قام بنشر يونيو 12, 2020 عندي ملف به بيانات يتم استخراجها من برنامج احد الاعمدة توجد بيانات نصية عبارة عن اسماء العملاء بين اسم كل عميل واخر توجد هناك ارقام ما هو مطلوب موضح في الملف من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات 1.xls رابط هذا التعليق شارك More sharing options...
احمد النكلاوي قام بنشر يونيو 12, 2020 الكاتب مشاركة قام بنشر يونيو 12, 2020 هذا هو الملف المطلوب وانا اسف علي لعدم ادراكي أهمية هذا الأمر رابط هذا التعليق شارك More sharing options...
احمد النكلاوي قام بنشر يونيو 12, 2020 الكاتب مشاركة قام بنشر يونيو 12, 2020 هل ممكن الاقي حل للمشكلة دي ولا اعمل مشاركة جديدة لأني لم اجد اي تجاوب معي لأ طبعاً ممنوع فتح مشاركة لنفس الطلب ,.. التمس العذر دائماً للأساتذة فانت لا تعرف أوقاتهم ولا تستعجل الرد الا بكلمة للـــــرفع ولكن ليس كل نصف ساعة اعطى لنفسك الوقت الكافى لذلك حتى وان كانت كل ساعتين رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 المطلوب غير واضح الصورة غير متوافقة مع الملف لقد عملت بناء على الملف Sub rep_nam_num() Dim c As Range For Each c In Range("B3", Range("B" & Rows.Count).End(3)) If c.Value Like "*[ا-ي]*" Then c.Offset(, 13) = c.Value c.Offset(, 14) = c.Offset(, 1).Value Else c.Offset(, 13) = c.Offset(-1, 13).Value c.Offset(, 14) = c.Offset(-1, 14).Value End If Next End Sub 1 (2).xls 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يونيو 13, 2020 أفضل إجابة مشاركة قام بنشر يونيو 13, 2020 الأخ الصديق عبد الفتاح كود أكثر من رائع جزاك الله خيراً لكن نسيت شيئاً وهو تسلسل الأرقام (في حال تكرار الاسم الرقم يجب ان يزيد 1 عما قبله) تعديل بسيط أرجو تقبله Sub rep_nam_num() Dim c As Range If Range("O2").CurrentRegion.Rows.Count > 1 Then _ Range("O2").CurrentRegion.Offset(1). _ Resize(Range("O2").CurrentRegion.Rows.Count - 1).ClearContents For Each c In Range("B3", Range("B" & Rows.Count).End(3)) If c.Value Like "*[ا-ي]*" Then c.Offset(, 13) = c.Value c.Offset(, 14) = c.Offset(, 1).Value Else c.Offset(, 13) = c.Offset(-1, 13).Value c.Offset(, 14) = _ IIf(Val(c.Offset(-1, 14)) = 0, c.Offset(-1, 14), _ c.Offset(-1, 14) + 1) End If Next End Sub Salim.xls 3 1 رابط هذا التعليق شارك More sharing options...
احمد النكلاوي قام بنشر يونيو 21, 2020 الكاتب مشاركة قام بنشر يونيو 21, 2020 بارك الله فيي الجمييع وشكرا لاساتذتي الكرام انا اسف علي التأخر في الرد لظروف خارجة عن ارادتي ساقوم بتجربة الكود وساوافيكم بالرد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان