سالم شباني

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

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

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

السلام عليكم هذا ما تعلمناه من المنتدى ( تقديم الخدمة ونقل المعارف دون بخل )

السلام عليكم أخي dvb إليك الملف كما طلبت لقد غيرت طريقة عرض البطاقات واستخدمت الدالة vlookup أرجو أن ينال استحسانك وتحية إلى أهلنا في ليبيا http://www.mediafire.com/?nmzw3bmxmd1

السلام عليكم أخي وحبيبي ياسر خليل ، أوافقك على طرح الموضوع وأضم صوتي إلى صوتك في الحاجة إلى فهم الأكواد بدل من الإعتماد على النسخ واللصق كما أننا أرهقنا السادة الأساتذة في كثرة الطلبات والإلحاح على حل المشكلات . لكن لدي رأي في كيفية إدارة هذه الدورة ، حيث نركز على شرح الأكواد بالتدريج مثلا ( كود الترحيل بمختلف المعايير - كود الفرز - كود البحث -.....الخ ) وكما قلت أخي ياسر نحن مبتدئون وعلينا أن نبدأ من تحت الصفر وأنا واحد من الذين لا يزال في مرحلة الحبو فيما يتعلق بالأكواد والبرمجة لدينا رصيد من الأكواد في مكتبة الأستاذ أبو هاجر تقوم أنت الأخ ياسر بعرضها تباعا وبعدها يأتي الشرح وفي الأخير أمثلة علما أنني طرحت فكرة وضح شروحات بين أسطر الكود حتى يكون مفهوما وعلى كل واحد استعمال الكود المناسب لملفه مع مساعدة الأساتذة التي لا غنى عنها لقد أطنبت في الحديث هذه المرة فأرجو المعذرة وأكرر تأييدي لفكرة الأستاذ ياسر ( يا أبو الأفكار )

السلام عليكم هذا مجلد سميته الملفات يحتوي على واجهة ( book1) الملفات و هي بوك2-3-4-5 كملفات افتراضية على الواجهة أزرار للوصول إلى تلك الملفات موقع الملف هو c أرجو أن تنال استحسان الجميع _______.rar

السلام عليكم أخي أحمد هذا ملف موجود بالمنتدى اطلع عليه ربما هو ما تريد وكما قال الأستاذ بوعمار ضع ملفك في المنتدى وستجد الكل يسعى لمساعدتك وأنا واحد منهم http://www.officena.net/ib/index.php?act=a...st&id=26056

كلام hbsnq صحيح الملف يغلق كل ملفات إكسل شكرا أستاذ خالد على دعواتك الطيبة لنا ولكم يا رب

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

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

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

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

السلام عليكم أخي نايف احفظ الملف بتنسيق 2003

السلام عليكم أخي mn3380 اطلعت على ملفك وقمت بما هو مطلوب وهذا اعتمادا على ملفي الخاص بي حيث نسخت الأكواد التي أنجزها أساتذتنا الأفاضل وقمت بتعديلها حسب النموذج الذي عرضته ما يجب أن تقوم به هو كتابة معلومات شركتك في الورقة المسماة شركة تدوين محتوى الفاتورة من سلعة ووزن وسعر ( التفقيط سيكون تلقائي ) هناك إشكال واحد فقط هو عند حفظ الفاتورة الماكرو ينقل حتى الأزرار حاولت حل الخلل فلم أفلح ( اطبع الفاتورة ثم احفظها ) الشرح مكتوب في الملف الملف فيه عنصران الأول الفاتورة وهي التي تدون عليها البيانات الثاني بتسمية ( نسخ ) هو الملف الذي ستحفظ فيه الفاتورات العنصران يبقيان في نفس الفولدر ويوضع في c هذا ما استطعت الوصول إليه وأكيد أن الأساتذة سيطلعون عليه وسيقومون بوضع لمساتهم السحرية التي لا يمكن الإستغناء عنها أرجو أن قد لبيت لك رغبتك واعذرني لأنني جديد وما زلت أحبو _______.rar

السلام عليكم جزاك الله خيرا أبو ثامر ( أبو الأكواد )

السلام عليكم الملف في حاجة إلى مزيد من التوضيح 1- المقصود بالمستورد ( هل هو العميل ) ؟ 2- المقصود بالمصدر 3- المقصود بالمنشأ 4- المقصود عدد الطرود 5- الوزن الصافي والوزن القائم يمكنك وضع توضيحات على الملف مع كتابة المعادلات في الخانات المناسبة بعدها سأقوم بتكييف ملفك حسب الملف الذي عندي وإذا أردت الإطلاع على ملفي فهاهو المرفق اطلع عليه لتعرف كيف تم العمل ( ضع الملف في c حتى يعمل ) _______bills.rar

أرجو من الإخوة إصلاح الملف وإعادة رفعه من جديد جزاكم الله خيرا

السلام عليكم لتكن البداية كود فرز الناجح والراسب Sub tarheel() Sheets("ناجح").Range("A7:CA1000").ClearContents Sheets("راسب").Range("A7:CA1000").ClearContents Application.ScreenUpdating = False For i = 1 To 1000 For r = 1 To 40 If Cells(i, 33) = ("ناجح") Then m = Cells(i, r).Column With Sheets("ناجح").Columns(m).Rows(1000).End(xlUp) .Offset(1, 0) = Cells(i, r) End With Else If Cells(i, 33) = ("راسب") Then N = Cells(i, r).Column With Sheets("راسب").Columns(N).Rows(1000).End(xlUp) .Offset(1, 0) = Cells(i, r) End With End If End If Next Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub

السلام عليكم بارك الله فيكم أحبائي على هذا التفاعل نأمل من الأساتذة الأفاضل تلبية هذا المطلب إذا سمح الوقت فلهم مني كل التقدير

للرفع

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

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

السلام عليكم أخي hben موضوع الطباعة باستعمال ملف pdf جديد علي شكرا على المعلومة أخي يوسف كلامك صحيح ولكن ما أريد الوصول إليه عمل كود يتحكم في الطباعة فحين نأمر الطابعة بطبع 100 صفحة معناه 100 أمر طباعة علينا أن نجعل الأوامر تمر تباعا إلى الطباعة ( لا يمر الأمر الثاني حتى تتم طباعة الصفحة 1 تلقائيا وهكذا ) أعتقد أن الوصول إلى ذلك ممكن أخي أحمد عبد العزيز أسعدني مرورك وبارك الله فيك