كل الانشطه

الأستاذ الفاضل hegazee الأستاذ الفاضل lionheart نعم هذا المطلوب لكم جزيل الشكر والتقدير

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

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

وفيك بارك الله تم التعديل Private Sub ComboBox1_Change() On Error Resume Next Application.EnableEvents = False Sheets("Sheet2").Range("L8").value = ComboBox1.value TextBox12.value = Sheets("Sheet2").Range("L10").value Application.EnableEvents = True On Error GoTo 0 End Sub Private Sub TextBox12_Change() Static lastValue As Variant On Error Resume Next Application.EnableEvents = False If IsNumeric(Me.TextBox12.value) Then Dim value As Integer value = CInt(Me.TextBox12.value) Dim minValue As Integer, maxValue As Integer, newValue As Integer If value >= 8 Then minValue = 0 maxValue = 40 Else minValue = 0 maxValue = 30 End If Randomize Do newValue = Int((maxValue - minValue + 1) * Rnd()) + minValue Loop While newValue = lastValue Me.TextBox3.value = newValue lastValue = newValue ThisWorkbook.Sheets("Sheet2").Range("L13").value = newValue End If Application.EnableEvents = True On Error GoTo 0 End Sub if أوفيسنا 3.xlsb

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

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

بارك الله فيك أستاذ وجزاك الله خيرا لكن ليس هذا المطلوب ربما أنا اخطأت في شرح المطلوب العمل في الفورم المطلوب TextBox12 -1 اذا كان التكست بوكس 12أقل أويساوي 7 النقطة تكون ما بين 0 حتى 30 لا تقبل 31 -2اذا كان التكست بوكس12 أأكبر أويساوي 8 النقطة تكون ما بين 0 حتى 40 لا تقبل 41 النقطة في التكست بوكس 3 متغيرة TextBox3

الاجابة في المشاركة التالية

تمام كان الخطأ في كود اسم الورقة المفروض يكون www

اليك البرنامج تصدير.rar

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

الملف الصحيح العفو if أوفيسنا.xlsb السلام عليكم طلب مساعدة في دالة if الشرح في الملف المرفق fhvm hggi tdml if أوفيسنا 2.xlsb if أوفيسنا 2.xlsb

Try the file كود إخفاء واظهار شيتات محددة برقم سري والباقي ظهار.xlsm

أستاذي الفاضل / hegazee اشكر لك سرعة تفاعلك نفس المشكلة وجزاك الله خير

و عليكم السلام جرب الملف الرقم السري 1234 كود إخفاء واظهار شيتات محددة برقم سري والباقي ظهار 2.xlsm

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

جرب الملف التالي مع أن حجم البيانات هائل و يستغرق وقت طويل و يستهلك رامات الكمبيوتر 512 صفحة و كل صفحة بها 3 كشوف. الكود يقوم بتصدير الكشوف إلى مجلد على شكل ملفات بي دي اف كل ملف به 3 كشوف و كذلك إنشاء ورقة عمل بالتقسيمات Book2.xlsm

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

@ابو جودي رائع جداً ، ولكن أستاذي هل ينجح مع مربعات التحرير والسرد المنظمة ، أي مرتبطة بمصدر للحقل

السلام عليكم ياكرام لدي خطاء في الكود لا اعرف السبب عند فتح الملف كود إخفاء واظهار شيتات محددة برقم سري والباقي ظهار امل المساعدة ولكم جزيل الشكر مرفق الملف كود إخفاء واظهار شيتات محددة برقم سري والباقي ظهار.xlsm

كأنك تريد حلا برمجيا لزر رجوع الورق ؟ طابعة الفواتير مثلا تحتوي على خصيصة تفعيل قاطع الورق من عدمه راجع خصائص الطابعة .. اذا خصائص الطابعة لديك تحتوي على امر الرجوع ؟ وإلا : غير الطابعة

Up

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

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

الاساتذة الافاضل .. نظراً لكثرة الصفوف .. المطلوب كود يقوم بترحيل صف كاملا اذا تحقق احد الشروط من ثلاثة شروط التوضيح كما بالمرفق المطلوب نظراً لكثرة الصفوف يوجد 3 شركات وهم : 93409 شركه مصر للغزل و النسج الرفيع/كفر الدوار 93401 شركه المحموديه للغزل والنسيج 93412 شركه مصر للحرير الصناعي المطلوب معيار البحث هو الجهة اذا كانت احد هذه الجهات يتم ترحيل الصف كاملاً الى الشيت الخاص بالشركات وحذفه من شيت المصدر للمراجعة عدد هذه الشركات مجتمعة 3886 وبالتالى 3886صف Book1.rar