الشافعي

للرفع

للرفع

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

اعذرني لا اعرف قانون منتدى الاكسيس وشكرا على الايضاح

للرفع ارجو المساعدة في اضافة على نموذج newcustomer باضافة زر للماسح الضوئي و عرض الملفات المسحوبة داخل النموذج وقائمة منسدلة باسماء الملفات المسحوبة اضافة على نموذج sercustmor زر للماسح في حالة التعديل وزر للطباعة وعنصر عرض الملفات وقائمة منسدلة باسم الملفات

للرفع

انا وجدت في المنتدى قاعدة بيانات عدلت عليها على قد علمي لكن اريد بعض الاضافات عليها مثل اضافة زر للماسح الضوئي واضافة عنصر للمرفقات وعنصر لعرض اسماء المرفقات والاوراق المسحوبة عن طري الماسح الضوئي واضافة زر للطبعة بيانات عميل سوء معلومات او مرفقات تساهيل.rar

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

للرفع

لللرفع

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

للرفع

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

عندي ملف اكسيل في كود وكل ما احول اضيف كود ثاني لا يقبل 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 مع اسم الورقة الوووووووووووووووووووووووووووووووووووو

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

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

للرفع

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

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