الترحيل دون تكرار البيانات المرحلة

[الشافعي]

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

اقصد يرحل المتاشبة مع اسم الورقة مرة واحدة

المصنف1.rar

[الشافعي]

اسأل الله العظيم ان يفرج همي وهم كل مسلم 

اتركم مع الدعاء



دعاء تيسيير الأمور :

 

اللهم يا مسهل الشديد

'ويا ملين الحديد ,

ويا منجز الوعيد,

ويا من هو كل يوم في أمر جديد,

أخرجني من حلق الضيق الى أوسع الطريق,

بك أدفع ما لا أطيق,

ولا حول ولا قوة الا بالله العلي العظيم .



قال الرسول صلى الله عليه وأله وسلم‎​ من قرأ وأخبر الناس بهذا الدعاء؛



فرج الله همه

اللَّهُمَّ إِنَّا نَسْأَلُكَ نُفُوساً مُطْمَئِنَّةً تُؤْمِنُ بِلِقَائِكَ، وَتَقْنَعُ بِعَطَائِكَ، وَتَرْضَى بِقَضَائِكَ. اللَّهُمَّ إِنَّكَ تَعْلَمُ سِرَّنَا وَعَلاَنِيَتَنَا فَاقْبَلْ مَعْذِرَتَنَا، وَتَعْلَمُ حَاجَاتِنَا فَأَعْطِنَا سُؤْلَنَا. اللَّهُمَّ اجْعَلْ لِي وَلِلمُسْلِمِينَ مِنْ كُلِّ هَمٍّ فَرَجاً، وَمِنْ كُلِّ ضِيقٍ مَخْرَجاً، وَمِنْ كُلِّ بَلاَءٍ عَافِيَةً. اللَّهُمَّ إِنَّا نَعُوذُ بِكَ مِنَ الطَّعْنِ وَالطَّاعُونِ وَالوَبَاءِ، وَعَظِيمِ البَلاَءِ فِي النَّفْسِ وَالأَهْلِ وَالمَالِ وَالوَلَدِ. اللَّهُمَّ لاَ تُؤَاخِذْنَا بِسُوءِ فِعْلِنَا، وَلاَ تُهْلِكْنَا بِخَطَايَانَا يَا أَرْحَمَ الرَّاحِمِينَ. اللَّهُمَّ اكْتُبْنَا مَعَ مَنْ سَبَقَتْ لَهُمْ مِنْكَ الحُسْنَى، الّذِينَ هُمْ عَنِ النَّارِ مُبْعَدُونَ، لاَ يَسْمَعُونَ حَسِيسَهَا وَهُم فِيمَا اشْتَهَتْ أَنْفُسُهُمْ خَالِدُونَ.

[الخالدي]

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

اسال الله ان يفرج همك وهم كل المسلمين

الوقت متأخر لذا تعديل الكود على عجالة لحين مشاركة بقية الاخوة

Sub amir()
Dim cl As Range, i As Integer
Dim R1 As Integer, R2 As Integer
For i = 2 To 4
R1 = Sheets(i).[O10000].End(xlUp).Row - 1
R2 = 0
For Each cl In Range("O2:O" & [O10000].End(xlUp).Row)
If cl.Value = Sheets(i).Name Then
R2 = R2 + 1
If R2 > R1 Then
cl.Offset(0, -13).Resize(1, 14).Copy Sheets(i).Range("B" & Sheets(i).[b10000].End(xlUp).Row + 1)
End If
End If
Next
Next
End Sub

في امان الله

[الشافعي]

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

 

شكرا استاذي الخالدي على اهتمامك وجزاك الله خيرا 

 

الله يجعله في ميزان حسناتك

[الشافعي]

استاذي الكريم الخالدي 

 

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

[الشافعي]

للرفع

[الشافعي]

او  اريد كود ترحيل ومسح المرحل في حالة ان خالية تساوي اسم الشيت 

[الشافعي]

اريد كود ترحيل حسب اسم الورقة ومسح البيانات المرحلة 

[الشافعي]

اريد كود ترحيل ومسح البيانات المرحله في حالة طابق اسم اللي في الخانة o مع اسم الورقة 

 

الوووووووووووووووووووووووووووووووووووو 

[الشافعي]

في الملف يوضح المطلوب

 

اريد ترحيل ومسح البيانات في الصف الذي يوجد به تطابق وضع المعاملة مع اسم الورقة 

 

وو ترتيب البيانات المتبقية دون ترحيل وتاخد مكان البيانات المرحلة اذا كانت البيانات المرحلة قبل البيانات التي لا ترحل في  الجدول الرئيسي

المصنف1.rar

[الخالدي]

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

استاذي الكريم الخالدي 

 

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

الكود السابق يقوم بالترحيل بدون تكرار

الية الكود تعمل مثلا في الورقة (تم التنفيذ) اذا كان يوجد 4 صفوف مرحلة سابقا فالكود يقوم بالترحيل من الورقة (التسويق)  بعد المرور على 4 صفوف باسم الورقة (تم التنفيذ)

جرب المرفق بعد تعديل عمود الاحصاء في الكود

في الملف يوضح المطلوب

 

اريد ترحيل ومسح البيانات في الصف الذي يوجد به تطابق وضع المعاملة مع اسم الورقة 

 

وو ترتيب البيانات المتبقية دون ترحيل وتاخد مكان البيانات المرحلة اذا كانت البيانات المرحلة قبل البيانات التي لا ترحل في  الجدول الرئيسي

الكود المرفق يقوم بالترحيل وحذف الصفوف المرحلة

ارجو ان يكون المطلوب

في امان الله

ترحيل.rar

[الشافعي]

شكرا استاذي الخالدي 

بارك الله فيك 

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

يا رب الذي يقرأ ويرسل هذا الدعاء اجعله ياالله في زمرة خير الأحباب يا الله

 

[الخالدي]

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

بارك الله فيك وجزاك خيرا ولك مثل دعائك لي واكثر

والحمد لله رب العالمين