AhmedSaeed01

السلام عليكم ورحمة الله وبركاته تم عمل تبيه صوتى ونبيه برسالة تفيد بتحديث المحتوى تم اضافة مديول يحتوى على معادلة لتحقيق الشرط المطلوب وتم ربطها مع العمود (اسم الموظف) يمكنك تغيير العمود بعمود أخر كما تشاء. وفى حالة قمت بتغيير اسم الملف يجب الدخول على المديول (Sound) وتغيير اسم الملف بالاسم الجديد. تم اضافة معادلة (countA) لعد قيمة العمود، ومعادلة (SoundMe) التى تم اضافتها عن طريق المديول ويتحقق الشرط اذا كانت قيمة خليه (CountA) أكبر من صفر. يجب تواجد الملف الصوتى فى نفس مجلد ملف الاكسل، أو يمكن ان تقوم بتعديل الكود لإمكانية اضافة مسار الملف الصوتى. تنبيه صوتى ورسالة.rar

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

لينك تحميل ملف الاكسل لعل وعسى يفيد حد فى شغله. اضغط هنا للذهاب لصفحة التحميل

انا شاكر لحضرتك واهتمامك. تم ارسال الملف على البريد الإلكتروني الخاص بحضرتك

السلام عليكم ورحمة الله وبركاته فى البداية أحب أشكر كل القائمين على هذا الموقع المحترم والأعضاء الكرام اللى كتير قدمولنا المساعدة فى أمور كثيرة سواء معايا او غيرى. وربنا يزيدكم من فضله وعلمه. أنا بحب البرمجة لكن للأسف ما اتعلمتش اى لغة برمجة. واشتغلت شوية على اكسل واتعلمت بعض الأمور من الأكواد الجاهزة والممارسة وفهم طريقة عمل بعض الأكواد. وصممت ملف اكسل فيه يوزرفورم بحيث أضيف فيه ملفات PDF وشاركت الملف على الشبكة المحلية LAN بحيث كل الأجهزة تفتح الملف فى نفس الوقت وتكون على اطلاع بالتغييرات اللى بتم والملف شغال كويس وقدرت اعمل تنبيه صوتى بحيث لما أضيف ملف جديد المستخدمين على الأجهزة التانيه يسمعوا صوت جرس. بس المشكلة دلوقتى إن بتظهر رسالة خطأ (This file is locked try the command again later ) بضغط End والملف بيشتغل عادى لكن بردو المشكلة بعد شويه بتظهر تانى. انا حبيت اتجه لاكسس علشان اصمم الملف تانى بنفس آلية العمل دى، لأني أعرف أن الاكسس أقوى فى البنية بتاعته من اكسل خصوصا مع البرامج والحاجات اللى شبه كده. انا نزلت كورس اكسس من يوتيوب ل(منذر سفان) بحيث ابدأ اتعلم. فهل لو قدرت اتعلم الاكسس هقدر اعمل برنامج بسيط زى اللى عملته على الاكسل ويقبل العمل من اكتر من مستخدم فى نفس الوقت؟ وهل ده هيبقى سهل عليا فى البداية ام هناك لغة برمجة وبرامج أفضل المفروض اتعلمها علشان اقدر اصمم اللى انا عايزه؟ - إن شاء الله هرفق ملف الاكسل اللى انا شغال عليه بحيث لو فيه حد من حضراتكم عنده وقت فراغ وشاف إن الموضوع بسيط ويقدر يصممه أكون شاكر جدا ليه. وبردو يفيدنى وينصحنى ايه اللى المفروض اتعلمه ويفيدنى فى الاكسس او غيره بيعتمد على البرمجة. شكراً لحضراتكم واسف للاطالة.

شكراً على المساعدة يا استاذ عبدالفتاح لكن من خلال الكود الظاهر ليس هذا المطلوب لقد قمت بإرفاق ملف وبه كود يحتاج الى التعديل وتصحيح الخطأ اللى بيظهر يجب اولا تغيير مسار الفولدرات ليعمل بشكل صحيح. وفى تيكست بوكس اسم الملف يجيب حذف المسار وترك اسم الملف. تم توضيح المطلوب على الفورم ايضا. شكرا لحضرتك. الكود المستخدم فى الملف يستند فى طريقة عمله الى 3 اشياء 1- اسم الملف 2- المكان المتواجد فيه الملف 3 -المكان الذى تريد نسخ الملف إليه اذا كانت هناك طريقة اسرع تقوم بنسخ الملف من خلال رايط الملف الموجود فى Textbox2 الى فولدر اخر والمحدد فى ComboBox1 سيكون افضل. تم تصحيح الخطأ فى الكود بإضافة ( \ ) فى نهاية مسار الفولدر المراد النسخ إليه .الموجود فى القائمة المنسدلة المطلوب الان كود يستخرج اسم الملف من الرابط الموجود فى Textbox2 ويحذف باقى المسار مثل (/:D) او اى شيئ يسبق اسم الملف ويضع اسم الملف فى Textbox1 test.xlsm

السلام عليكم ورحمة الله وبركاته أرجو من حضراتكم تقديم المساعدة فى الأتى : عندى هايبرلينك لملف PDf موجود فى فولدر، واللينك ده موجود فى textbox5، وعندى combobox2 موجود فيه قائمة لأسماء مطابقة لأسماء فولدرات مجمعين داخل فولدر اسمه data محتاج كود يوضع فى commandbutton1 بحيث ينسخ الملف اللى موقعه موجود فى textbox5 إلى الفولدر data وتحديدا فى الفولدر اللى اسمه يساوى الاسم اللى موجود فى combobox2 توضيح اضافى: فولدر data يحتوى مثلا على 5 فولدرات أسمائهم وليكن من 1 إلى 5 وcombobox2 تحتوى على أسماء الفولدرات من 1 إلى 5 عايز الكود ينسخ الملف اللى موقعه مكتوب فى textbox5 ويحط النسخه دى فى الفولدر اللى انا حددته فى combobox2 وليكن مثلا رقم 2. شكراً لحضراتكم. ده رابط موضوع مشابه لطلبى لو حد قدر يعدل عليه ليناسب اللى طلبته من حضراتكم فى حالة لو طلبى فيه صعوبة فى تنفيذه. لفتح الرابط رجاءً اضغط هنا

تم وضع هذا الكود فى زر جديد لفتح الملف وتم التنفيذ بنجاح. الكود للاستفاده Private Sub CommandButton10_Click() ThisWorkbook.FollowHyperlink TextBox5.Text End Sub

تمام كده ظبط شاكر لحضرتك جدا. محتاج بقى كود يفتح اللينك اللى موجود فى التيكست بوكس .

شكرا لاهتمامك لكن الكود بوظ الملف

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

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

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بخير عندى 4 تيكست بوكس مربوطين بشيت لإظهارقيمة أربعة خلايا دون ترحيل او تعديل فقط إظهار المحتوى الأرقام تظهر بهذا الشهر 25000.45 اريد التنسيق ان يجعل الرقم يظهر بهذا الشكل 25,000.45 شكراً لحضراتكم

شكراً لإهتمام حضرتك، أنا ما غيرتش الكود زى حضرتك ما قلت لكن جربت البحث بحروف كبيرة والنتيجة ظهرت بدون مشاكل

السلام عليكم ورحمة الله وبركاته الإخوة الكرام أرجو التعديل على هذا الملف حيث أن عملية البحث بالكود لا تظهر النتيجة بشكل صحيح اذا كانت تحتوى على حروف انجليزية لكى لا أطيل على حضراتكم فى وصف المشكلة الملف المرفق سوف يوضح المشكلة اريد البحث ان يظهر النتيجة عند كتابة اى حرف من كود الصنف حيث المشكلة الموجوده تظهر الرقم وتتجاهل الحروف وهذه امثلة على اكواد الأصناف المستخدمة فى الملف BAJAJAB181017 EE02 SW2014 2805101001/301 شكرا وجزاكم الله خيراً بحث عن صنف.xlsb

برجاء ارسال الملف على الايميل hello@shofha360.com

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

السلام عليكم ورحمة الله وبركاته محتاج معادلة تجمع خلية التاريخ بأكثر من شرط الشروط عبارة عن أربعة انواع أ، ب، ج، بدون وليكن الشرط موجود فى A1 والتاريخ موجود فى B1 محتاج الجمع يتم فى C1 الجمع محتاجه يكون بالاربعة شروط لنفس الخلية وهى كالتالى أ، يتم جمع التاريخ +30 يعنى إضافة 30 يوم للتاريخ ب، جمع التاريخ +21 ج، جمع التاريخ +15 يوم بدون، جمع التاريخ +7 أيام شكراً لحضراتكم.

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

يعنى المشكلة كلها طلعت فى الصفر 😂 انا شاكر لحضرتك جداً على اهتمامك ومساعدتك، أسأل الله لك الصحة والسلامة من كل سوء 💙

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

اتفضل اخى الكريم كلمة السر لفتح ملفك 305814

لقد وجدت هذا الكود للترحيل إلى الشيت ولكن المشكلة انه يرحل كل محتوى الليست بوكس بدون الصف الأول . لذا أرجو تعديله ليرحل كل محتويات الليست بوكس Private Sub CommandButton2_Click() Dim i As Long For i = 1 To Me.ListBox1.ListCount - 1 Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Me.ListBox1.List(i, 0) Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = Me.ListBox1.List(i, 1) Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 2) = Me.ListBox1.List(i, 2) Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = Me.ListBox1.List(i, 3) Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Me.ListBox1.List(i, 4) Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 5) = Me.ListBox1.List(i, 5) Next i End Sub

السلام عليكم ورحمة الله وبركاته أرجو من الأساتذة الكرام تكملة اليوزرفورم المرفق المطلوب فى قورم المبيعات SalesFrm اضافة كود ترحيل من اللست بوكس إلى شيت (الصادر) فى الزر ذو اللون الأخضر - تأكيد البيع والزر الأحمر الذي يرمز له بالحرف اكس أن يقوم بحذف السطر المحدد فى لست بوكس، أو اذا قمت بالضغط على السطر دبل كليك يقوم بحذف السطر أيهما اسهل فى التنفيذ المطلوب فى الفورم الأخير ReportFrm ايجاد فترة البيع اللى تمت فى شيت (الصادر) بين التاريخين المحددين فى المدة من/ إلى فى خانة الإجمالى جمع كل المبالغ التى تم ايجادها وإذا الامر معقداً يمكن تجاهل هذا الطلب شكراً لحضراتكم، اسأل الله لكم الصحة والعافية. مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى Sales.xlsm

السلام عليكم ورحمة الله وبركاته اشكر أولا صاحب هذا العمل الرائع الاستاذ شوقى ربيع على ما قدمه لنا ليستفيد منه الجميع ثم أتوجه ثانيا بشكر لكل من سيقوم بمساعدتى هناك مشكلتين لاحظتم أثناء الإستخدام 1- أريد أن يظهر التاريخ بهذا التنسيق يوم/شهر/سنة 2- أثناء الطباعة بعد إضافة فاتورة جديدة او حذف فاتورة قديمة تظهر رسالة خطأ بخصوص نطاق الورقة او الخلايا اللى تم تحديدها للطباعة، اعتقد ان حل المشكلة يتطلب نطاق مطاطى هذا تخمين قد يحتمل الصواب او الخطأ. ** أرجو تعديل طريقة الإدخال بعكس الطريقة الحالية بحيث لما اكتب كود الصنف يتم إيجاد الاسم تلقائي واذا أمكن إضافة زر لتحديث الفورم لأن بعد حذف جميع الفواتير تظل هناك فاتورة تبقى ولكن إذا ضغطت على أي حدث اخر مثل الطباعة اجد انه تم حذف جميع الفواتير.. وإن كان الأمر ليس بهذه الضرورة يمكن لحضراتكم تجاهل هذا الطلب الاخير. شكرا لحضراتكم واتمنى لكم دوام الصحة والعافية FcteurRabie2.rar