nash60

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

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

اخي احمد : السلام عليكم ورحمة الله وبركاته : شكرا لك مرة اخرى ولكن يا ريت لو تجرب تضغط كلك يمين الماوس وتختار تحديث وسيتم تحديث البيانات من خلال النت لكن الرموز لم تظهرفي العمود O وانا جربت ولم يعمل الكود ويا ريت تخليه يعمل عند حدوث أي تغيير بالورقة وليس فقط بالعمود A حتى بدون كتابة لاني لن اكتب شئ وسيتم تحديث البيانات من خلال النت وانا اسف جدا واشعر بالخجل منك لاني غلبتك ولكن اتمنى ان يكتمل العمل بالشكل الكامل مع فائق الاحترام والتقدير.

وعليكم السلام ورحمة الله وبركاته : نعم اخي الكريم هو حيكون في حدث عند تغيير البيانات والحق علي لاني ما وضحت من البداية لان البيانات تحدث من النت مباشرة فعند عمل تحديث للبيانات يتم تحديث رموز الشركات معها مباشرة وانا اسف جدا لاني ما وضحت من البداية وغلبتك معاي وان شاء الله ربنا يجعله في ميزان حسناتك والسلام عليكم ورحمة الله وبركاته

اخي احمد مرفق الملف بعد اضافة الكود وبعد تحديث البيانات يعمل الكود دون توقف وتهنز الشاشة حتى اغلاق الملف من مدير المهام ارجو ان يتم التعديل ليعمل الكود بطريقة صحيحة وشكرا Test02.rar

اخي الكريم احمد : بداية اود ان اشكرك جزيل الشكر على تكرمك بالرد علي وبالنسبة للكود وضعته في موديل وعملت استدعاء للموديل في حدث عند ( Private Sub Worksheet_Change ) في ورقة ابوظبي والسعودية وشكل الكود اشتغل وحضر رموز الشركات بالإنجليزية ولكن استمرت الشاشة بالوميض ثم اصبحت سوداء وعدم استجابة فان امكن ان تكمل معروفك وتعدل عليه ليعمل بالشكل المطلوب واكرر شكري لك والسلام عليكم ورحمة الله وبركاته

اخواني الرجاء ممن يستطيع المساعدة ان لا يبخل بها بارك الله فيكم

السلام عليكم ورحمة الله وبركاته : اخواني الكرام : اسعد الله مسائكم مرفق ملف اكسل المطلوب كود بحث بناءا على متغيرين وليس دالة اريد الحل بالكود ان تكرمتم وشرح المطلوب موجود في الملف المرفق بارك الله فيكم وجزاكم عنا الف خير . والسلام عليكم ورحمة الله وبركاته Test02.rar

اشكرك اخي الكريم جزيل الشكر وجعله الله في ميزان حسناتك ان شاء الله

شكرا لك اخي الكريم على تكرمك بالرد ولكن صحيح ان الكود يعمل ولكن هناك أمران مهمان بالنسبة لي 1 - ان الكود لا يعمل عندما اضعه في حدث عند التغيير في الورقة ليعمل اتوماتيكيا عند تحديث البيانات ولا حاجة للزر 2 - ان الكود محدد ب200 صف وتكون الخلايا مملوءة بالاصفار واعتقد انه يمكن تعديلها لتكون محدودة بالجدول فقط ارجو التعديل ان امكن ولكم جزيل الشكر

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته : المطلوب تحويل معادلتين الاولى جمع عمودين والثانية جمع عمودين وضربهم برقم ثابت في خلية بنفس الصفحة مطلوب تحويل المعادلتين الى كود بحدث عند تغيير البيانات والملف المرفق موضح به المطلوب . ارجو من الاخوة الافاضل ممن يستطيع المساعدة ان لا يبخل بها واجره على الله والسلام عليكم ورحمة الله وبركاته Test.rar

شكرا لك اخي العزيز : كلامك صحيح بالصدقة ومن المرة الاولى اضفت المكتبة Microsoft Data Adapter Library واشتغل كل شي تمام شكرا لك ثانية

اخواني : عندي برنامج شغال تمام وعادي ولكني نزلت مؤخرا على جهازي وندوز 7 بروفيشنال 64 بت ونزلت الاوفيس 2003 كالعادة لانه كل شغلي عليه لكنني فوجئت ان اي استعلام يحتوى على الدالة () Date لا يفتح ويعطيني رسالة " الدالة غير متوفرة في التعابير تعبير استعلام Date() " واما النماذج تفتح عادي لكن مربع النص الذي يحتوي على القيمية الافتراضية ()Date ليظهر تاريخ اليوم فيظهر بدلا منه ?Name# فاين المشكلة وما هو الحل بارك الله فيكم

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

اشكرك اخي / نارت على سرعة ردك بارك الله فيك على هذا العمل الممتاز ولا شك ان هناك من سيتفيد منه ان شاء الله ولكن ارجو تطول بالك علي شوية وبالتاكيد انا لم انجح بتوصيل فكرتي اليك : فالكود يقوم بانشاء جدول مرتبط وبكل ضغطة زر يقوم بانشاء جدول مرتبط يعني لو ضغطة 10 مرات يقوم بانشاء 10 جداول بينما انا موجود بملف الاكسس جداول مستوردة وهي3 tb_Linked_To_Exchange_Rates + tb_Linked_DATE + tb_Linked_All_Market المطلوب هو بعد تحديث بيانات ملف الاكسل من النت افتح ملف الاكسس واستورد البيانات المحدثة ثانيا : يوجد استعلامان احدهما الحاق وهو Qry_tb_Linked_All_Market مبني من الاستعلام Qry_tb_Linked_All_Market وهذا الاستعلام مبني من جدولين وهما الجدول المستورد tb_Linked_All_Market والجدول tb_Symbols _Companie s والمطلوب هو بعد استيراد البيانات مثل ما ذكرت اعلاه اشغل استعلام الالحاق لالحق البيانات في الجدول tb_Historical_data_markets ارجو ان اكون وفقت بالشرح وانا ارفق لك مثال ولكنه يستورد الصفحة الاولى من اكسل هذه المشكلة لو كان الكود مرن في استيراد صفحات معينة بالاسم لاستطعت التعديل عليه وانا اسف ثانية ان كنت تسببت باي ازعاج راجيا من الله ان يوفقك ويزيدك من علمه وان تعم الفائدة على الجميع ImportFromExcel.rar

اشكركم جميعا وبارك الله فيكم

اخي نارت انا اعتذر منك اذا كنت غير واضح في الطلب فمعك حق ولكنك ستبقى الاخ الكبير صاحب البال الطويل والصدر الواسع ونحن في انتظار ابداعاتك واجرك على الله

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

الاخ الفاضل /نارت هذا الامر ودون مجاملة ليس غريبا فأنت دائما عودتنا على اطوادك الابداعية وجربت الكود واشتغل تمام التمام وشكرا لك كل الشكر ولكن انا اتمنى عليك انا يكون الكود هو تثبيت مسار ملف الاكسل شرط ان يكون مع ملف الاكسس بنفس الفولدر لانه يمكن يكون على الجهاز نفس اسم الملف وثانيا اختيار صفحات مختارة يعني بالاسم وانا من جهتي ارفقت فولدر للتعديل عليه وهناك نموذج بحيث بضغطة زر يتم استيراد الجداول وتشغيل استعلام الالحاق وعلى ذكر استعلام الالحاق اصبح سريع جدا والمشكلة كانت في شرط الالحاق وهذا الصحيح ( Not In (select Noid from tb_Historical_data_markets where Date_No02= Noid ) ويوجد 3 جداول مستوردة من ملف الاكسس ومرشحة للزيادة وهي التي تحتوي على كلمة tb_Linked مع اسم الصفجة في اكسل وان شاء الله سيكون هذا المثال مفيد للجميع لانني وجدت الكثير من يبحث عن تثبيت المسار واستيراد صفحات مختارة من الاكسل دون جدوى وانا بالانتظار Market.rar

اشكركم جميعا جزيل الشكر وجزاكم الله عنا الف خير

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته : المرفق ملف اكسل وقاعدة بيانات اكسس يوجد جدول مرتبط واستعلام الحاق لالحاق بيانات الجدول المرتبط في الجدول tb_Historical_data_markets ولكن استعلام الالحاق اصبح بطئ جدا . الاخوة الافاضل ان تكرمتم علي بالمساعدة في : تسريع استعلام الالحاق علما ان البيانات مرشحة للزيادة حيث انه يتم الحاق حوالي 750 سجل يوميا واذا كان بالكود او لغة الاستعلام او بأي طريقة . تثبيت مسار ملف الاكسل بالكود حيث ان الجدول المرتبط عند تغيير مكان الملف يطلب المسار الجديد . ارجو ان لا اكون قد اثقلت عليكم راجيا ممن يستطيع المساعدة ان لا يبخل بها واجره على الله والسلام عليكم ورحمة الله وبركاته ملاحظة : اضطررت لان احذف نصف السجلات في الجدول tb_Historical_data_markets بسبب حجم الملف Market.rar

بسم الله الرحمن الرحيم برجاء من الاخوة الكرام المساعدة في تعديل الكود في الملف المرفق حيث انه عند تحديث البيانات بطئ جدا في النسخ وحذف الصفوف الفارغة قي الصفحة الاصلية ASE حيث ان هناك صفوف فارغة لا يلزم نسخها في الصفحة ASE02 فقمت بحذفها من الصفحة ASE واذا كانت هناك فكرة افضل تؤدي لنفس النتيجة فمنكم نستفيد ولكم جزيل الشكر Test1.rar

الاخ عبد الله المحترم : اولا اشكرك على ردك وثانيا جربت الكود ولكنه للاسف لم يعمل وانا اطمع من حضرتك ان تضع مثالا بسيطا لحذف صفوف معبنة ( شرطين ) من جدول بيانات الشرط الاول ان بكون خلية في العمود ( اختر اي عمود ) = 0 والشرط الثاني ان يكون اي خلية في العمود ( ايضا اختر اي عمود ) خالية وفى حال توفر الشرطين او احدهما يتم حذف الصف من الجدول ولك جزيل الشكر والامتنان

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته : اخواني الافاضل : لو سمحتم المطلوب كود لحذف صفوف بشرط ان تكون الخلية في العمود G صفر مثلا : Sheets1 البيانات فيها من A2 الى R1000 اي خلية في العمود G = صقر حذف الصف كامل وشكرا لكم