كل الانشطه

وفيك بارك الله كان من المفترض عدم وضع تمت الاجابة لان من يراها في صفخة الاكسل الرئيسية وحصوصا الخبراء يعتقد ان هذا السؤال تمت الاجابه عليه فيتركه ويذهب الى موضوع اخر لم تتم الاجابة عليه وبهذا تخسر اطلاع الخبراء على طلبك ريما تكون الاجابة لديهم وارجو الغائها من الاعلى لان الاجابة السابقة غير صخيخة تم التعديل على الكود بخيث لا يتجاوز 30 او 40 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

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك الكود 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

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