كل الانشطه

وعليكم السلام ورحمة الله وبركاته الكود Private Sub TextBox12_Change() If IsNumeric(Me.TextBox12.value) Then Dim value As Integer value = CInt(Me.TextBox12.value) Dim maxValue As Integer If value >= 8 Then maxValue = 40 ElseIf value >= 7 Then maxValue = 30 Else maxValue = 0 End If If maxValue > 0 Then Me.TextBox3.value = Int((maxValue + 1) * Rnd()) Else Me.TextBox3.value = 0 End If ThisWorkbook.Sheets("Sheet2").Range("L13").value = Me.TextBox3.value Sheets("sheet2").Range("l8").value = ComboBox1.value TextBox12.value = Sheets("sheet2").Range("l10").value End If End Sub الملف if أوفيسنا 3.xlsb

تمام كان الخطأ في كود اسم الورقة المفروض يكون 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

وعليكم السلام ورحمة الله وبركاته .. وجهة نظرك جميلة ، ولكننا هنا سنحذف المكررات ؛ فما حاجتك بالمقارنة اذا كان الأصل موجود في نفس الجدول !!!!!

السلام عليكم تعديل كود الاستراد والتصدير الى الاكسيل اريد تعديل كود استراد الاكسيل الى الاستعلام وكود تصدير من الاستعلام الى الاكسيل الكود.rar

السلام عليكم ورحمة الله وبركاته أحتاج رقم المهندس لو تكرمت

تفضل الملف و جرب كتابة اسماء بها عبد في العمود الثالث و طبق عليها ما تريد حذف المسافات(1).xlsm

Up

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

السلام عليكم بارك الله بجهودك استاذي الفاضل . ومنكم نستفيد