الشافعي

لللرفع

جاري الكتابة وحل المشكلة

للرفع

شكرا استاذي الكريم ابو حنين الله يجعل مساعدتك للغير في ميزان حسنانك وان يوفقك

عندي ملف اكسيل في كود وكل ما احول اضيف كود ثاني لا يقبل Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("U10")) Is Nothing Then Exit Sub End If Select Case Range("U10").Value Case Is = Range("W15").Value copy_basic copy_custom (15) Case Is = Range("W16").Value copy_basic copy_custom (16) Case Is = Range("W17").Value copy_basic copy_custom (17) Case Is = Range("W18").Value copy_basic copy_custom (18) Case Is = Range("W19").Value copy_basic copy_custom (19) Case Is = Range("W20").Value copy_basic copy_custom (20) Case Is = Range("W21").Value copy_basic copy_custom (21) Case Is = Range("W22").Value copy_basic copy_custom (22) Case Is = Range("W23").Value copy_basic copy_custom (23) Case Is = Range("W24").Value copy_basic copy_custom (24) Case Else MsgBox "ÇáÈÑäÇãÌ ÛíÑ ãÍÏÏ ÓáÝÇ", vbCritical End Select End Sub Sub copy_basic() Set sh2 = Sheet2 sh2.Range("C11").Value = Range("B3").Value sh2.Range("H12").Value = Range("K3").Value sh2.Range("J14").Value = Range("L7").Value sh2.Range("J16").Value = Range("L10").Value sh2.Range("J18").Value = Range("B7").Value sh2.Range("J20").Value = Range("B5").Value sh2.Range("J22").Value = Range("J5").Value sh2.Range("J50").Value = Range("U7").Value sh2.Range("J52").Value = Range("U3").Value sh2.Range("J54").Value = Range("U5").Value sh2.Range("J56").Value = Range("U12").Value End Sub Sub copy_custom(nos As Integer) Set sh2 = Sheet2 sh2.Range("J26").Value = Range("A" & nos).Value sh2.Range("J28").Value = Range("B" & nos).Value sh2.Range("J30").Value = Range("J" & nos).Value sh2.Range("J32").Value = Range("K" & nos).Value sh2.Range("J34").Value = Range("G" & nos).Value sh2.Range("J36").Value = Range("R" & nos).Value sh2.Range("J38").Value = Range("I" & nos).Value sh2.Range("J40").Value = Range("O" & nos).Value sh2.Range("J42").Value = Range("L" & nos).Value sh2.Range("J44").Value = Range("D" & nos).Value End Sub وهذا الكود اللي عاوز اضيفه في مع الكود السابق Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:A12")) Is Nothing Then Exit Sub If Range("A10") = 0 Then Range("A15,A17,A19,a21,a23,a25,a27,a29").EntireRow.Hidden = True Else Range("A15,A17,A19,a21,a23,a25,a27,a29").EntireRow.Hidden = False End If If Range("A12") = 0 Then Range("A16,A18,A20,a22,a24,a26,a28,a30").EntireRow.Hidden = True Else Range("A16,A18,A20,a22,a24,a26,a28,a30").EntireRow.Hidden = False End If End Sub

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

في الملف يوضح المطلوب اريد ترحيل ومسح البيانات في الصف الذي يوجد به تطابق مع اسم الورقة و ترتيب البيانات المتبقية دون ترحيل وتاخد مكان البيانات المرحلة اذا كانت البيانات المرحلة قبل البيانات التي لا ترحل في الجدول الرئيسي اشكركم اخواني على المساعدة واخص بالشكر الاستاذ حمادة باشا المصنف1.rar

في الملف يوضح المطلوب اريد ترحيل ومسح البيانات في الصف الذي يوجد به تطابق وضع المعاملة مع اسم الورقة وو ترتيب البيانات المتبقية دون ترحيل وتاخد مكان البيانات المرحلة اذا كانت البيانات المرحلة قبل البيانات التي لا ترحل في الجدول الرئيسي المصنف1.rar

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

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

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

للرفع

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

وعليكم السلام ورحمة الله وبركاته شكرا استاذي الخالدي على اهتمامك وجزاك الله خيرا الله يجعله في ميزان حسناتك

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

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

ارجو المساعدة في ترحيل البيانات الموجوودة غبي الورقة رقم 1 الى الورقة رقم 2 بشرط وبدون شرط محتاج ترحيل البيانات اللي بشرط الشرط قيمة U10 اذا كانت بتساوي البرنامج الاول ارحل بيانات البرنامج الاول كلا على حدى في المكان المخصص له واذا كانت U10 البرنامج الثاني ارحل بيانات البرنامج الثاني في المكان المخصص له وهكذا ترحيل.zip

ارجو المساعدة

ارجو المساعدة

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

ارجو المساعدة في ترحيل البيانات الموجوودة غبي الورقة رقم 1 الى الورقة رقم 2 بشرط وبدون شرط محتاج ترحيل البيانات اللي بشرط الشرط قيمة U10 اذا كانت بتساوي البرنامج الاول ارحل بيانات البرنامج الاول كلا على حدى في المكان المخصص له واذا كانت U10 البرنامج الثاني ارحل بيانات البرنامج الثاني في المكان المخصص له وهكذا الملف في المرفقات ترحيل.rar

مشكوووووووورر الكود يعمل

استاذ الشهابي عذرا الكود لا يعمل