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

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية

انت بحاجة الى وحدة نمطية تضع فيها كل شرط ، هكذا (طبعا لم اضع كل الشروط ، وعليك بإضافتها كلها): Function Clean_Data(S) 'S = string of numbers mixed with data If Right(S, 2) = "-x" Then C = Mid(S, 1, Len(S) - 2) ElseIf Right(S, 5) = "xxxxx" Then C = Mid(S, 1, Len(S) - 5) Else C = S End If Clean_Data = Trim(C) End Function وتنادي الوحدة النمطية من الاستعلام هكذا: B: Clean_Data([f5]) والنتيجة حسب الشروط التي في الوحدة النمطية: جعفر

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

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك عذرا اخي الكريم .. مشغوليات العمل وضعف النتي لدي هذه الايام فقط اليك المرفق التالي تم تنفيذ ( زر ادخال وترحيل بيانات ) كما قمت انت بالتوضيح في المشاركة السابقة وايضا تم تنفيذ عمل البحث بالكومبوبكس ( البحث عن علاوة ) ولكن يجب الآخذ في الاعتبار القيمة في العمود AG ان تكون كلمة TRUE وكلمة FALSE بهذا الشكل وبنفس الحروف لضمان عمل التشيك بوكس اي كما في الصورة التالية وفي انتظار ردك وتوضيحاتك .. وخلينا ماشيين كده طلب طلب لضيق الوقت لدي هذه الايام فقط ولكن ان شاء الله دائما معك وبسرعة تقبل خالص تحياتي تحديث علاوات+ .rar

بعد اذن اخي و حبيب القلب ياسر انظر الى هذا الملف صفحة Salim dup_Remover_from cel.rar

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

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

اخي @ابا جودى هل تريد بيطلع هكذا

المشاركات لم تفقد و لله الحمد كلها موجودة ، و لكنها مشكلة تتعلق بالاظهار و ربما سببها الكاش على السيرفر و جاري بحث الامر باذن الله تعالي

لا داعي للشكر استاذي الفاضل المهم ان تستفيد منه في اي وقت ممكن شكرا لك استاذي نريد منكم ان تستفيدوا منه وتساعدوا من يحتاج مساعدتكم

بالفعل .. مشكلة حيث لا تظهر الردود إلا حين ترد فقط وفي وقتها أما بعد ذلك تختفي

شكرا جزيلا أخي شفان انا شفت البرنامج سابقا ، ولكني الآن انزلته ، وبالفعل به الكثير ، وكما قلت انت : جعفر

أخوي ابو زاهر الآن انزلت مرفقك ، وماشاء الله بحر من الكائنات لازم تخبرنا وين تريدنا نطالع ، اي جدول ، اي حقل ، اي قيمة ، .... وهكذا ، واذا شرحك وافي ، فعلى بركة الله ، ولكن رجاء ، اعطنا كل التفاصيل يعني: 1. ما حد يعرف برنامجك مثلك ، فلا تتوقع منا نبحث عن حقل هنا او هناك ، 2. ساعدنا بمعرفة المطلوب وبدقة ، علشان نساعدك بالاجابة وبشرح جعفر

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

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

السلام عليكم الاخ الكريم /n_tareq بارك الله فيك بعد اذن اخي الحبيب / سليم حاصبيا .. جزاه الله خيرا انت قمت فعلا بتنفيذ ما اخبرك به من تعديل اسماء الشيتات ولكنك تجاهلت اسم هذه الشيتات في باقي الكود وبذلك تصبح التعديلات في الكود كما يلي : ** بدلا من السطر التالي للمتغيرات .. Dim i As Integer, LastR As Long, ws As Worksheet سنضيف به المتغير الآخر وهو الورقة الثانية او الشيت الثاني كما هو في السطر التالي Dim i As Integer, LastR As Long, ws, ws1 As Worksheet ** السطرين التاليين Set ws = ThisWorkbook.Sheets("البيانات") Set ws = ThisWorkbook.Sheets("المدراء") سيتم تغييرهم تبعا للمتغيرات التي قمت بوضعهم في الجزئية السابقة كما يلي : Set ws = ThisWorkbook.Sheets("البيانات") Set ws1 = ThisWorkbook.Sheets("المدراء") ** ثم جزئية آخر صف .. سيتم تغيير او اضافة للصف التالي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 كما هو يلي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1 وبالتالي ستقوم بعمل حلقة تكرارية .. لكل منهما .. لتكن مثلا S مثل T ولكن مع LastRow1 .. ثم يظل الجزء الاول في الكود والخاص بتفعيل عمل المطلوب في حالة اختيار OptionButton1 كما هو بدون تعديل ثم يتم تغيير الجزء الخاص بتفعيل عمل المطلوب من الكود في حالة اختيار OptionButton2 كالتالي If OptionButton2.Value = True Then If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws1.Cells(S, 3) UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If ارجو ان اكون قد وضحت لكم المطلوب وان لم يتتضح .. فبرجاء ارسال ملف مرفق كمثال ليتم العمل العمل عليه تقبل خالص تحياتي

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

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

الحمد لله مليون إعجاب أستاذ رمهان نجاح مبهر بل أيضا جعلت نص المعيار كاملا فى الجدول فصار أكبر من 200 أنت أنشأت حقلا يقيم ما إذا كانت القيمة أكبر من 200 هذا الحقل يعطى صواب و خطأ و جعلت المعيار له صواب ===== بينما أنا كنت أركز طريقة الحل على وضع المعيار فى الحقل [exmtotal] و مرة أخرى تقدم لنا Eval خدمة عظيمة وفقكم الله الآن نستطيع وضع معاييرنا كلها فى جدول و الإشارة إليها

هذا سريعا وبعدين نسولف استاذ عبدالفتاح SELECT t1.exmid, t1.exmtotal FROM t1 WHERE (((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true") & 200))=True)); بالتوفيق

السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك بالنسبة للمسلسل خاصتك فانت قد قمت بوضع معادلة ترقيم فيه ولذلك لا يمكن ترحيله من خلال الفورم حيث انه اذا قمت بعمل ذلك فانه سوف يسجل في الصف 500 بعد آخر معادلة موجودة في العمود A ولكن يمكنك في هذا الكود التسجيل وبمجرد التسجيل ووجود اي بيانات في العمود B سوف يتم عمل الترقيم وان اردت نجعل الترقيم من خلال الفورم نفسه تلقائيا ولكن سيجعلنا نتخلي عن معادلة الترقيم التلقائي خاصتك تقبل خالص تحياتي

وجزاك الله كل خير

السلام عليكم ورحمة الله اليك المرفق ربما يكون هذا هو الحل 2017صيفية برمجية 2استعلام.rar

شاهد المرفق اخي الكريم ولكن شاهد الطريقة فقط حيث يحتاج الكود الجديد لبعض التعديلات السهلة البسيطة للحصول علي النتائج السليمة 100% ولكنه اسرع من الكود خاصتك .. وان شاء الله ان كان يفي بغرضك نكمل .. تقبل خالص تحياتي 20171صيفية برمجية استعلام.rar

العفو منك استاذى الجليل ومعلمى القدير ما انا الا طالب علم جزاكم الله خيرا وده الملف مرة اخرى باللمسة الرمهانية AllowAdditions (1).rar

السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة ) اما بخصوص زر التعديل فعلي اي اساس سيتم التعديل وباي الاعمدة او المعطيات سيتم البحث ليتم التعديل من خلاله هل هو من العمود QUO. REF. NO. اليك كود تسجيل البيانات Private Sub CommandButton2_Click() 'كود زر تسجيل بيانات Dim iRow As Long Dim ws As Worksheet Dim ii As Integer Set ws = Worksheets("QUOTATION BLOCKS & KERBS") iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 'ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value ws.Cells(iRow, 9).Value = Me.TextBox9.Value ws.Cells(iRow, 10).Value = Me.TextBox10.Value ws.Cells(iRow, 11).Value = Me.TextBox11.Value ws.Cells(iRow, 12).Value = Me.TextBox12.Value ws.Cells(iRow, 13).Value = Me.TextBox13.Value ws.Cells(iRow, 14).Value = Me.TextBox14.Value ws.Cells(iRow, 15).Value = Me.TextBox15.Value ws.Cells(iRow, 16).Value = Me.TextBox16.Value ws.Cells(iRow, 17).Value = Me.TextBox17.Value ws.Cells(iRow, 18).Value = Me.TextBox18.Value For ii = 1 To 18 Me.Controls("TextBox" & ii).Value = "" Next End Sub تقبل خالص تحياتي

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

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar

الاخ الكريم / galal elgammal شاهد هذا الفورم به ما تريد الانتقال الي اوراق العمل مهما كان عددها تقبل خالص تحياتي فورم للنتقال لصفحات الملف.rar

السلام عليكم الاخ الكريم / sayed awad بارك الله فيك مرور طيب وكريم جزاك الله خيرا

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

السلام عليكم الاخت الفاضلة / أم عبد الله بارك الله فيكي مرور طيب وكريم من اخت كريمة وراائعة شرفتي الموضوع تقبلي خالص تحياتي جزاكي الله خيرا

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك كلمات كريمة وجميلة من شخص كريم ورااائع تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك جزيل شكري علي كلماتك الاكثر من رااائعة جزاك الله خيرا

السلام عليكم الاخ الحبيب / عباس السماوي بارك الله فيك دائما صاحب الردود المتميزة والطريقة الفريدة فردودك لها طعم ومذاق خاص ومرور يشرف الموضوع و صاحب الموضوع تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / largot2009 بارك الله فيك مرور طيب وكريم جزاك الله خيرا

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك مرورك علي الموضوع وحده يشرفني ويشرف الموضوع فما بالكم بالثناء عليه ... تقبل خالص تحياتي جزاك الله خيرا

الاخت الفاضلة / سما محمد بارك الله فيكي مرور طيب وكريم كما قلت في الرد السابق ان الكود الخاص باخفاء اللون الابيض هو كود للاخ الحبيب / شوقي ربيع - تم توظيفه فقط في هذا العمل وتم تركه بالطبع كما هو حفاظا علي حقوق الملكية تقبلي خالص تحياتي جزاكي الله خيرا

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

السلام عليكم الاخ الكريم / عبد السلام زاوي بارك الله فيك مرور طيب وكريم من شخص كريم جزاك الله خيرا

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك والله انت الاجمل والاحلي بأخلاقك العالية وبحبك الدائم لمساعدة الغير وافادة الجميع لك مني ارق وافضل تحيه جزاك الله خيرا

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك بالفعل التواضع من شيم العظماء فكل الشكر والتقدير والعرفان لك استاذنا فأنت استاذ الجميع تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ العزيز / عبد الرحمن شفيق بارك الله فيك كلماتك كبيرة جدا وغاليه .. وانا اخي العزيز طالب علم فقط في هذا الصرح العملاق جزاك الله خيرا

السلام عليكم الاستاذ القدير / عباس السماوي بارك الله فيك ردودك دائما لها طابع خاص ... ومذاق جبار .. يسعد الجميع بوجودك وردودك والاكيد انك لسه شباب .... ربنا يعطيك الصحة والعافية دائما تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاستاذ القدير / عباد بارك الله فيك سعدت جدا بمرورك ... وكلماتك اسعدتني كثيرا ومن الاكيد انه منكم دائما نتعلم تقبل خالص تحياتي جزاك الله خيرا

الاخ الكريم / عبد الحميد شقير بارك الله فيك وشرف للجميع انضمامك الينا ... وستسعد اخي كثيرا في هذا الصرح العملاق وستجد محبه غير عادية في الله بين الاخوة الاساتذة والاعضاء والجميع جزاك الله خيرا

السلام عليكم الاخ الفاضل / احمد عطية رزق بارك الله فيك شرفني مرورك واسعدني كثيرا جزاك الله خيرا

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

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك لنقل القوائم الي ملفك اتبع الشرح الموجود بالمشاركة رقم 18# بها نفس الطلب للاخ / ريان جزاك الله خيرا

السلام عليكم الاخ الكريم / alsawy_hassan بارك الله فيك جزاك الله خيرا