abouelhassan

السلم عليكم ورحمة الله الاخوة الافاضل لدى كود من روائع الاستاذ شعلة المنتدى الاستاذ سليم به هذا الجزء If m <> 0 Then MsgBox "الرقم مكرر: " & Chr(10) & _ Join(arr, " ; ") Exit Sub End If وهو اذا كان الرقم مكرر يتوقف الكود ويخبرنا انه مكرر فى الشيت ويكتب اسم الشيت اريد اضافة له بحيث يظهر هل تريد الاستمرار نعم يكمل لا يتوقف مع الشكر والتقدير والاحترام

بفرض ان الرقم فى c1 المعادلة تفصل ما بعد ; New Microsoft Excel Worksheet (2).xlsx New Microsoft Excel Worksheet (2).xlsx

استاذ jjafferr اسعد الله اوقاتك بكل خير قمت باستيراد صفحة من الاكسيل الى الاكسيس كتجربة الاستيراد تم عكسى بمعنى الصفحة تم استيرادها معكوس فى البرنامج تصميم حضرتك ذهبت الى الفورم البرنامج لم يتعرف على هذه الصفحة لا فى ترحيل ولا استدعاء ولا كأنها موجودة االصفحة اسمها النقدية لم استطيع حذف صفحات التجربة الموجودة بالبرنامج صفحة1 صفحة2 صفحة3 هل من شئ بعمله ام للموضوع برمجة حتى اتمكن من استدعاء باقى الصفحات مشكور مجهودك خالص دعائى عن ظهر غيب والله لك 1311.3.Data.rar

حفظك الله شكر وتقدير و احترام من اخيك

بارك الله فيك وجزاك الله خيرا يا رب

وجدت هذا الموضوع بس الروابط التى فيه لا تعمل للاسف مع الشكر والتقدير

حاضر استاذى

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

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

اتقدم بالشكر والتقدير للاستاذ جعفر على ما تقدم سيادته بعمله لهذا البرنامج جزاه الله عنا كل الخير احتاج اضافة قائمة اختار منها ِِAll or Positive OR Nigative الى واحتاج تقرير بالجمع يعنى تقرير اختار تاريخ من وتاريخ الى وبجانبه قائمة مثل ِِAll or Positive OR Nigative يحضر لنا تقرير مثل المرفق بشيت الاكسيل للتوضيح ارفقت شيت اكسيل به شكل التقرير امكانية اختيار صفحات يعى هذا التقرير مش لكل الصفحات مثلا للصفحات من 1:10 او من 2:8 وهكذا التقرير لصفحات بعينها مع شكرى وتقديرى واحترامى من عشمى فى حضرتك سامحنى بس انا هتحول الى الاكسس كلية فبالتالى احتاج الى هذا سامحنى مشكور جداااااا ربنا يبارك لك يارب 1311.3.Data.accdb تقرير.xlsx

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

رائع استاذ سليم شكر وتقدير واحترام من اخيك

اتقدم اليك بخالص الشكر وخالص الدعاء من قلبى والله ربنا يرضى عنك اخى طيب هل من شرح كيف اغير iData iName IBill Number Store_1,2.3.4.5 مشكور استاذ jjafferr

للرفع رفع الله قدركم

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

بمعنى عايز تقرير صفحات بعينها فى تاريخ من الى هل بالامكان جزاك الله خيرا

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

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

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

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

رفع الله قدرك اخى انتظرك بارك الله فيك وجزاك خيرا يا رب

مشكور جدا استاذ سليم روائع بعد اذن حضرتك استاذ سليم كان لدى من خلال الابحار بمواضيع حضرتك كود رائع يقوم بنفس المهمة بس مش عارف الخلل فين هل بالامكان الاطلاع واين اضع الكود مابين ws.unprotect 123 ws.UsedRange.Value = ws.UsedRange.Value بارك الله فيك ولك Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Unprotect 123 ws.UsedRange.Value = ws.UsedRange.Value ws.Protect 123 Next ws شكر وتقدير واحترام من اخيك

للرفع رفع الله قدركم

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