احمد الدقاق

هذا تواضع منك أخي. أسأل الله أن يوفقكم لما فيه خير لهذه الأمة.

أشكركم اساتذتى الافاضل . وجدت ضالتي عند أستاذي الكريم أبا جودي. أشكركم أستاذي، ودمتم سباقين للخير. تحياتي

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

السلام عليكم ورحمة الله. أطلب منكم أساتذتي الكرام مساعدتي في عمل زر يقوم بنقل بيانات الأعمدة m1 m2 m3 الموجودة بجدول أكسس إلى الأعمدة m1 m2 m3 الموجودة بملف اكسيل جاهز مسبقا. ولكم مني أطيب المتمنيات. test.rar

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

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

السلام عليكم ورحمة الله. أتقدم إليكم أساتذتي الكرام بطلبي البسيط هذا أريد إظهار محتوى اخر خلية في العمودA في مربع ZONE DE TEXTE ، مع العلم أن هذه الخلية يتغير مكانها بتغير محتوى العمود B يعني أن هناك ترقيم تسلسلي في العمود A . وفي انتظار توجيهاتكم ومساعدتكم تقبلوا مني أسمى عبارات الشكر والاحترام. .الملف المرفق يبين المطلوب. F.rar

أشكرك أخي الكريم بن علية على ردك السريع والمفيد. لقد جربته وهو شغال. جزاكم الله خيرا.

السلام عليكم سعيد بالانضمام اليكم، وأشكركم على المجهودات الجبارة التي تبذلونها في هذا المنتدى. أطلب منكم مساعدتي على تعديل هذا الكود كي يكون قادرا على إلغاء الطباعة في حالة ما أدخلت الى رقم البداية ورقم النهاية في الخلية G33 حروفا أو رموزا أو إذا لم أدخل شيئا وكذلك أريد أن يتم إلغاء الطباعة عند الضغط على الزر ANNULER وجازاكم الله خيرا. Private Sub CommandButton1_Click() On Error Resume Next Range("BB1") = InputBox("رقم البداية") Range("BB2") = InputBox("رقم النهاية") For CELP = Range("BB1") To Range("BB2") Range("G33") = CELP ' ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Activewindow.SelectedSheets.PrintOut Copies:=1 Next End Sub