نجوم المشاركات

أ.حسين العربى عسى أن يكون المطلوب test.accdb

بعد اذن استاذنا الكبير سليم ولإثراء الموضوع يمكنك تجربة هذا اكثر من شخص1.xlsx

هذه المعادلة =IF(COUNTIF(البيانات!$E$2:$E$500,الخلاصة!A2)>1,"ERROR",VLOOKUP(الخلاصة!A2,البيانات!$E$1:$F$1500,2,0))

أستاذنا kha9009lid .. أ.حسين العربى أعزكم الله .. ولكن لى طلب بعد إذنكم .. يعنى بالمصرى اللى سؤاله إتجاوب يفوت أى حاجة مش كله شكر شكر شكر .. مفيش دُعا ..🥰

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

اهلا بك فى المنتدى-تفضل 1التسويات.xlsx

شوف المرفق Database501.accdb

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

رائع اخي @essam rabea

جرب المرفق back.rar

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء https://pastebin.com/DdEr76jc

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 الفيديو

فورم السابق والتالى والبحث واضافة البيانات فيديو 2 الفيديو

اخي واستاذي عصام دعوة طيبة من زميل ساعدته تسوى الدنيا ومافيها بارك الله لك في صحتك واصلح لك ذريتك فَمَا أُوتِيتُم مِّن شَيْءٍ فَمَتَاعُ الْحَيَاةِ الدُّنْيَا ۖ وَمَا عِندَ اللَّهِ خَيْرٌ وَأَبْقَىٰ لِلَّذِينَ آمَنُوا وَعَلَىٰ رَبِّهِمْ يَتَوَكَّلُونَ لَٰكِنِ الَّذِينَ اتَّقَوْا رَبَّهُمْ لَهُمْ جَنَّاتٌ تَجْرِي مِن تَحْتِهَا الْأَنْهَارُ خَالِدِينَ فِيهَا نُزُلًا مِّنْ عِندِ اللَّهِ ۗ وَمَا عِندَ اللَّهِ خَيْرٌ لِّلْأَبْرَارِ اسأل الله ان يجعلنا من الابرار وممن تقضى حوائج الناس على ايدينا فذلك فضل من الله

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

انت ادرى منى بما تريده ولكنى احببت ان اوضح ما اعرفه من خلال ما قرات وتعلمت القليل فى هذا البحر الشاسع والمشاركه وان شاء الله سوف احاول وحتى اتعلم ايضا وحتى يساعد احد اساتذتنا الافاضل بما لديهم من علم بالتوفيق استاذى وتقبل تحياتى

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

اشكرك على المرور ان اقاصد انه يكون بجدولين منفصلين وهذا مثال فقط لكي انقل الطريقة على البرنامج الرئيسي حيث فيه سند قبض وسند صرف

استاذ @عبد اللطيف سلوم السلام عليكم ورحمه الله وبركاته لما جعلتهم فى جدولين منفصلين؟ اجعله جدول واحد وبدل حقل Notes اجعله حقل نوع العمليه وبه دائن او مدين او حتى بجدول منفصل كود 1 = دائن كود 2 يساوى مدين ثم هتحتاج حقل ترقيم بعيد عن الترقيم التلقائى لضبط العمليه ثم هيتم التجميع والطرح ع اساس كود النوع دائن و مدين وكود العميل هذه مساهمه منى لعلها تكون بفائده والله اعلى واعلم وان شاء الله تجد اقتراحات وحلول اخرى من اساتذتنا الافاضل ذوى الخبره بالمجال تقبل تحياتى وبالتوفيق ان شاء الله

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

حسب ما فهمت : تريد جمع العدد الموجود في حقل HO لكل دورة الا وهي الحقل المسمى: sub اذن نستخدم هكذا معيار: =DSum("[ho]","[searchfinal2]","sub='" & [sub] & "'") report.accdb

أستاذنا أحمد الفلاحجى الله يفتح عليك ويزيدك من نعمه

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

أحسنت أستاذ shetosalex

عليكم السلام اتفضل اخي الكريم اليك الداله التي تقوم بالمطلوب حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP.xlsm

العفو في خدمتكم اخي

الكووود شغال ميه ميه شكرا لك والى الاخ علي

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

أ.محمد صلاح1 فك الضغط .. شغل .. سيتم إنشاء فولدر على المسار التالى C:\Users\Public\Way to Heaven وستجد بداخله RenameDB.cmd به كود التحقق من إسم الملف وإمتداده برمجيا جرب ورد Test.zip

السلام عليكم اخ ايهاب ملاحظ انك نسخت اكواد حدث Workbook لماكرو وهذا غير صحيح تعتبر احداث خاصة لاتعمل الا بواجهة المصنف فقط او يرمز لها بأكواد مثلا حدث WorkBook Open بـ Auto_Open Private Sub Workbook_Open() Ref_Sh End Sub اذا اردات استخدامه عبر مودويل كالتالي Sub Auto_open() Application.Run "Thisworkbook.Ref_Sh" End Sub واليك المرفق وبه طلبك ehab3.xlsm

استاذى @kha9009lid انا بشكر حضرتك جدا جدا

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

بارك الله فيك عمل اكثر من رائع

تفضل لأنك لم تطبق المعادلة بطريقة صحيحة تقاطع العمود مع السطر OK.xlsx

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

ادارة ستوديو.xlsm برنامج سهل وبسيط الدخول 123 اعداد عوض كارو

جرب الان HCT Permit To Work System.mdb

السلام عليكم ورحمة الله هذه محاولة أولى (بتحفظ) في الملف المرفق... بن علية حاجي الفرق بين الاجراءات - Copy.xlsx

لا اعلم هل فهمت المطلوب ام لا جرب المرفق الاسماء تسجل في tbl2 وفي النموذج الرئيسي عند اختيار الموظف اذا كان مسجل في جدول2 يسمح لك بالاستمرار واذا لم يكن يعطيك رسالة HCT Permit To Work System.mdb

أخى محمد صلاح1 على عجالة جرب ورد Test.zip

المعذه اخي في المشاركه الاساسه طلبي ان يكون جدول مخصص للموضفين يربط User ID مع Lead Name في حال كتابه User ID يضهر Lead Name فقط وهادي البيانات انا من اضيفها للبرنامج وفي حال تسجيل User ID غير مضاف تضهر رساله تخبر المستخدم انك غير مؤهل لهادا العمل راجع المسئول اتمنا ان يكون شرحي افض واسف ع الازعاج عزيزي ارجو العمل على هادا المرفق بعد اذنك اضف لي يوزر ايدي HB77465 ليد نيم H.ALI شاكرلكم حسن تعاونكم وصبركم تحيه طيبه HCT Permit To Work System.rar

HCT Permit To Work System.zip

السلام عليكم اخي الكريم حاتم مشكور على كلماتك الطيبه هذه تعديلات على حدث Private Sub TextBox1000_Change() Private Sub TextBox1000_Change() If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet Dim c As Range ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets SS = x.Cells(Rows.Count, 10).End(xlUp).Row For Each c In x.Range("D10:D" & SS) b = InStr(c, TextBox1000) If Trim(c) Like TextBox1000 & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 4) ListBox1.List(k, 1) = c.Worksheet.Name ListBox1.List(k, 2) = c.Row k = k + 1 End If Next c Next x End Sub وحدث Private Sub ListBox1_Click() Private Sub ListBox1_Click() For I = 0 To ListBox1.ListCount If ListBox1.Selected(I) = True Then For j = 1 To 32 Controls("TextBox" & j).Text = Sheets(ListBox1.List(I, 1)).Cells(ListBox1.List(I, 2), j) Next j r = ListBox1.List(I, 1) Exit For End If Next I End Sub ان شاء الله يعمل معك كما ترجو تحياتي

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm

اتفضل اخى الكريم الملف الترحيل من الاكسيل الى الورد.xlsm

جرب هذا الملف كنموذج Super Adv_Filter.xlsm

من لا يشكر الناس لا يشكر الله الف الف شكر اخوي nawafabufars الف الف شكر اخوي ali mohamed ali اجبتم فاجتم جزاكم الله كل خير

لك ما تريد percent _simple.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي جلب بيانات فى خلية من أربع خلايا.xls

تصدير قاعدة بيانات التلاميذ من الاكسيل إلى قاعدة البيانات الخاصة بالحكومة الاكترونية الملف في الرابط التالي https://drive.google.com/file/d/1DP739A1BdYCGxTzIN_WYc_EFKYIcKvsq/view?usp=sharing وللاستفسار أنا في الخدمة وسوف أقوم بعمل فيديو لشرح كيفية تسجيل البيانات في الاكسيل ثم رفع على موقع الوزارة دفعة واحدة وذلك في حال طلب ذلك من الاعضاء الكرام إن شاء الله تعالى