abouelhassan

ربنا يحفظك حبيبي Negative اقوم بوضع -100مثلا اى رقم بجانبه سالب Positive الرقم عادى All=positive-negative لا املك لك الا دعاء من رجل عجوز عله يصادف ساعة إجابة يارب يحفظك ويسعدك ويبارك لك في اسرتك الكريمة يارب التقرير استدعاء به 3خيارات انا استدعاء positiveفقط اوNegative فقط أو ناتج طرح الموجب ناقص السالب بالتاريخ من إلى زادك الله من فضله اشكرك

سأنتظر استاذنا الفاضل بارك الله فيك

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

كل عملى هو هذين الشيتين شيت ادخال وترحيل ارقام الى شيتات يتم اختيار الشيت من قائمة منسدلة والعمود الذى يرحل إليه الرقم أيضا يتم اختياره من قائمة أخرى وكود الذى بملف الاكسيل يقوم بهذا فى صفحة ترحيل اما الكود الآخر يقوم بجلب الارقام فى تاريخ يتم تحديده من تاريخ الى تاريخ فى صفحة report والاكسيل يقوم بهذا تمام مشكلتى أن للملف تم فيرسته وماعاد يفتح وضاعت بيانتى فبحثت. حتى وجدت موضوع استاذ شوقى ربيع خطرت لى الفكرة أن يتم الترحيل لقاعدة البيانات من الاكسيل نظرا لأن الكودين الذين لدى تم تصميمهم بالاكسيل وانا أجهل الاكسيس ولن يساعدني أحد فى التصميم والاكواد اكيد حضرتك تستطيع تعديل الكود لينفذ ما ينفذه الان بس بدل الترحيل لشيتات نفس ملف الاكسيل الترحيل لقاعدة البيانات وكذلك الاستدعاء بالتاريخ انا رأيت مواضيع الاستاذ خبور خير نفس الفكرة بس مش عارف أنفذها اتمنى تقديم يد المساعدة ولكم منى خالص الدعاء لوجه الله تعالى شكرا وتقدير وخالص احترامي

اعان الله ما يعين اخوانه اتمنى اجد ضالتى اخواتى

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

بارك الله فيك اخي الكريمjjafferr احتاج إلى أن يتم استخدام قاعدة البيانات بالاكسس لتكون للحفظ ما يتم ترحيله من ملف الاكسيل من أرقام ملف الاكسيل به كود بصفة ترحيل وكود استدعاء بصفحة ويقوم الكود بالترحيل لعدد من الشيتس بالاكسيل وايضا الكود الثانى بيستدعى الارقام من الشيتس الى صفحة كود الاستدعاء عند تلف ملف الاكسيل خسرت كل البيانات فشاهدت موضوع الاستاذ شوقى امكانية الترحيل والاستدعاء من الاكسيس ففكرت امكانية مساعدتكم لكى نستبدل الشيتس التى يتم الترحيل اليها من الاكسيل الى الاكسيس ويكون العمل على ملف الاكسيل والترحيل الى قاعدة البيانات احتاج الى الاكواد التى تضاف الى الاكسيل ليقوم بهذه المهمة مشكور

البقاء لله وحده

اتمنى منكم المساعدة اخواتى الاساتذة الافاضل

السلام عليكم احبابى الاساتذة الافاضل هذه اول مشاركة لى بمنتدى الاكسيس اتمنى لا ترودونى شاهدت هذا الموضوع للاستاذ شوقى ربيع احتاج لمساعدتكم لتنفيذ بحيث لدى ملف اكسيل تم كتابة الكودين بهم بواسطة الاستاذ سليم والاستاذ ياسر خليل الكود الاول كود ترحيل يقوم بالترحيل الى صفحة اكسيل 1 او2او3 على حسب ما احدده له والكود الثانى كود استدعاء عن طريق تحديد التاريخ واختار البيانات التى اريد استدعائها بكومبو بوكس فيتم استدعائها من الشيت 1و2و3 بالتاريخ من الى الكودين يعملان تمام بالملف ما اريد مساعدتكم فيه تنفيذ فكرة الاستاذ شوقى ربيع ربط الاكسيل بالاكسيس بحيث يكون ملف الاكسيل يرحل ويستدعى من قاعدة بيانات بدل الشيت1و2و3 مع خالص الدعاء abouelhassan.xlsm Data.accdb

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

الف مبروك تستاهلوا كل خير وفقكم الله واعانكم

هذا اخى هما الملفين الملف المطلوب تعديل او اضافة الى الكودين به هو ملف copy of my_new والملف الاخر new به الشيتات التى اريد تنفيذ الكودين الموجود ين بالملف copy of my new عليهم شكر وتقدير واحترام من اخيك Copy of My_New_Repport.xlsm new.xlsx

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

ربنا يرضى عنك استاذ حسين مامون بارك الله لك فى كل حياتك لم يتم استاذى التجميع بمعنى الشيت tim يوم 1/1 دائن 1000 ويوم 2/1 دائن 2000 اريد عند الاستدعاء ان يأتى الشيت tim دائن 3000 اما الان لازال يأتى اسم الشيت tim 1000 وتحته tim 2000 فاهمنى استاذى اريد اسم الشيت يكون مرة واحدة ودائن او مدين فى هذا التاريخ متجمع وبكده يكون جميلك على راسى والف شكر وحفظك ورعاك رب العالمين شكر وتقدير واحترام

والله العظيم ربنا يحفظك ويبارك لك ويرزققك من حيث لاتحتسب يارب انا اشكرك من كل قلبى حفظك الله لكل عائلتك اللهم امين رائع تسلم يديك وعينيك يارب احتاج بكود التقرير اخى ان يقوم بالاستدعاء باتجميع الان يقوم باستدعاء الصفوف لنفس الشيت تحت بعض اريد ان يستدعى اسم الشيت مرة واحدة ويجمع كل الدائن وكل المدين لنفس التاريخ اخى الكريم ارفقت ملف به شرح مع خالص الدعاء لحضرتك شكر وتقدير واحترام لك اخى الفاضل الاستاذ حسين مامون ترحيل مدين ودائن.xlsb

اتقدم اليك اخى خيماوي كووولبخالص الشكر وخالص الاحترام والتقدير بارك الله فيك اريد اخى خيماوي كووولاستخدام الكودين الموجودين بملفى كل ماريده استذى الغالى هو الملف my new repport اول شيتين فيه كل شيت به كود الاول ترحيل والثانى استدعاء ويعملان تمام التمام اريد التعديل عليهم بحيث يتم فصل الصفحتين فى ملف وباقى صفحات فى ملف اخر وانا تركت الملف my repport كما هو لترى الية عمل الكودين وعمل ملف اخر به باقى الصفحات هو ما اريده مغلق ويتم تنفيذ الكودين الموجودين بالملف my new repport عليه ستجد ان الصفحات الموجودة بالملف المطلوب الترحيل اليه وهو مغلق نفسها الموجودة بالملف my repport ما عدا صفحتين الكودين لو جربت الملف my repport ستجده بيرحل تمام ةبيستدعى تمام مااريده هو تنفيذ الكودين على الملف الاخر وهو مغلق اشكرك وزاذك الله من فضله واكرمك من نعمه Copy of My_New_Repport.xlsm new.xlsx

بسم الله والصلاة والسلام على رسول الله عليه الصلاة والسلام احبابى الكرام احتاج مساعدتكم الكود الاول-كود ترحيل صفحة tarhel ترحيل التاريخ ورقم الصرف مع كل بيان اختيار الشيت الذى سيتم الترحيل اليه من القائمة واختيار اسم العمود المراد الترحيل من قائمة الكود الثانى- كود جلب البيانات لصفحة TAKRIR عن طريق اختيار التاريخ من والتاريخ الى فيتم استدعاء البيانات الموضحة بالشيت شكر وتقدير وخالص الدعاء من اخيكم ترحيل مدين ودائن.xlsb

السلام عليكم ورحمة الله وبركاته رأيت موضوع مهم من الاستاذ العبقرى المحترم سليم حاصبيا واريد تنفيذه وانا فى نهاية عمرى بحب اتعلم لقد تجاوزت60 من عمرى بس انا احب اتعلم لو سمحتولى الاساتذة العلماء موضوع الاستيراد من ملف مغلق لدى ملف به كودين الاول تفضل الاستاذ سليم بكتابة اكواده الى وهو بميزان حسناته ان شاء الله وهو كود استدعاء الكود الاخر قمت بتحميله من المنتدى كان سؤال احد الاخوة وهو من كتابة الاستاذ ياسر وان شاء الله بميزان حسناته الكودين والشيتات التى يتم الترحيل اليها والاستدعاء منها بالملف المسمى My_New_Repport احتاج الى ان يكون الكودين بالشيتين transfer-Report_Youmi بملف وياريت ياريت لو حبيت اضيف اكواد تانى لهذا الملف تعليمى ما هى الاضافات التى اضفها الى الكود لكى يعمل معى وباقى الشيتات بملف اخر ومغلق وان اقوم بفتح ملف الموجود به الشيتان فقط لا افتح الملف الاخر الذى به باقى الشيتات التى تتم الترحيل والاستيراد منها واعمل عليه فقط ويتم التنفيذ على الاخر وهو مغلق اعتذر للاطالة بس اتمنى شرح كيف انفذ الموضوع هذا الملف my new به كودين الاول ترحيل الى صفحات العمل بالملف. والكود الثانى استدعاء بيانات من صفحات العمل اريد بعد اذنكم فصل الشيتان الذان بهما الكودين فى ملف وباقى الشيتات فى ملف وأقوم بفتح ملف الذى تم فصل الكودين فيه وارحل واستدعى من وإلى الملف الآخر وهو مغلق مع الشكر والتقدير والاحترام كى لا ارهقكم بالاسئلة اساتذتى الافاضل الكرام شكر وتقدير واحترام من اخيكم My_New_Repport.xlsm ملف مطلوب ترحيل اليه والاستدعاء من وهو مغلق.xlsx

البرنامج يعمل اسم المستخدم- الدعم الفنى الباس ورد (1456)

ربنا يبارك لك استاذ طارق

الف شكر تمام اتقدم لحضرتك بخالص الشكر والدعاء والله جعله الله من نصيبك يارب بارك الله فيك كل احترامى وتقديرى اخيك

شكر وتقدير وخالص الدعاء من اخيك الكود ممتاز الف شكر بارك الله فيك وزادك من خيره ونعمه اخيك باحترام

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

السلام عليكم اساتذة المنتدى كود اخفاء الصفوف التى تحوى صفر هذا من تنفيذ الاستاذ سليم حاصبيا بارك الله فيه ورزقه كل الخير احتاج لتغير بالكود ليشمل الصفوف من b5:I50 بحيث لن الصف بدأ من B5 :I5 اذا كان كله اصفار يختفى حتى لايظهر فى الطباعة وهكذا لباقى الصفوف Sub hid_rows() Dim Hide_range As Range Dim i% i = 2 Range("A1").CurrentRegion.EntireRow.Hidden = False Do Until Cells(i, 1) = vbNullString If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then If Hide_range Is Nothing Then Set Hide_range = Cells(i, 1) Else Set Hide_range = Union(Hide_range, Cells(i, 1)) End If End If i = i + 1 Loop If Not Hide_range Is Nothing Then End If End Sub '+++++++++++++++++ Sub show_all_rows() Range("A1").CurrentRegion.EntireRow.Hidden = False Range("b5:j50").Select End Sub شكر وتقدير واحترام من اخيكم اخفاء الصفوف الصفرية.xlsm