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

السادة الأعضاء الأفاضل أرجو المساعدة فى طريقة تصدير سجلات محددة بتاريخ معين من جدول و إستيراد نفس البيانات الى نفس الجدول فى نسخة أخرى لنفس قاعدة البيانات (( مع عدم تكرار السجلات إذا كان عدد من الحقول متطابق ))

السلام عليكم جرب هذا الكود Sub CopyToSheets() Application.ScreenUpdating = False Dim i As Integer, sh As Worksheet, HS As Worksheet, Lr As Integer, iLr As Integer Set sh = Sheets("ÇáÑÆíÓíÉ") With sh Lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To Lr 'Sheets.Count For Each HS In Sheets If HS.Name = sh.Cells(i, 1) Then iLr = HS.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A" & i).Resize(, 7).Copy HS.Range("A" & iLr).PasteSpecial (xlPasteValues) End If Next Next End With Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

السلام عليكم ورحمة الله وبركاته يشرفنى وجودي في هذا الصرح العظيم واحب ان اقدم لكم برنامجى المتواضع لادارة المخازن من اول وضع الاصناف وتكويدها وحتي صرفها بالفواتير وحساب قيمة الخصم ايضا فالبرنامج مكون من : صفحة الاصناف والسعر ورصيد اول المدة والوارد والمنصرف لكل صنف صفحة حركة المخزن والتى تضم تاريخ العملية رقم الآذن ونوع المستند وهو معد بقائمة مسبقا بإشهر العمليات في المخزن ونوع الحركة وارد او منصرف للمخزن وقائمة لكتابة الصنف والمتاح لتوفير الكمية المتاحة في المخزن واخيرا الكمية اي المصروفة او الواردة للمخزن واخيرا صفحة الفواتير التي تعتمد علي ملئ صفحة الاصناف والاسعار طبعا البرنامج مجانى لا اريد سوا الدعاء لي وارائكم علي الملف ومن اراد التعديل عليه يرجي مراسلتى علي الميل او الفيس المدمج في البرنامج الباسورد : 123456 Stores V2.xlsm

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

السلام عليكم ورحمة الله تعالى وبركاته أريد فتح نموذج انطلاقا من قيمة كمبو بوكس في نموذج آخر مع تعطيل الكمبو بوكس في النموذج الجديد عند فتح البرنامج تظهر الصورة التالي بعد ذلك اريد فتح النموذج Realisation بشرطين الأول : أن تظهر نفس القيمة التي أخترتها في Opérateur code في نموذج الدخول في الكمبو بوكس Opérateur في النموذج Realisation الثاني : أن تتحول الخاصية Enable إلى Disable الخاصة بالكمبو بوكس Opérateur في الفورم Realisation المشكلة عندي أن النموذج يفتح لكن قيمة الكمبو بوكس Opérateur تبقى فارغة ملاحظة 392 كلمة السر 0000 124 كلمة السر 1111 188 كلمة السر 2222 بارك الله فيكم وفي علمكم RealisationReintegration - 7.zip

الحمد لله و جزاكم الله كل الخير

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

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

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

شكرا والف شكر ابدعت وهذا هو المطلوب تبعثرت الكلمات عن شكركم على ابداعكم ووصف هذا المنتدى ماذا عساي ان اقول لما تقدمونه من كرم علمكم وحسن اخلاقكم الطيبة بحيث لا تبخلوا علينا بأي معلومة عذرا لتأخري بالرد عليكم انت مبدع لك كل التقدير والاحترام انت مبدع لك كل التقدير والاحترام انت مبدع لك كل التقدير والاحترام انت مبدع لك كل التقدير والاحترام انت مبدع لك كل التقدير والاحترام انت مبدع لك كل التقدير والاحترام انت مبدع لك كل التقدير والاحترام

جهز أدواتك واعمل ما تريد بنفسك شاهد هذين الفديوهين

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

بعد اذن الاخ ابو حنين هذا الكود ربما يكون اسرع قليلاً Sub transpos_data() Dim Sh_Principal As Worksheet Dim lr As Integer Dim my_row As Integer Set Sh_Principal = Sheets("الرئيسية") Dim My_rg As Range lr = Sh_Principal.Cells(Rows.Count, 1).End(3).Row For I = 3 To Sheets.Count my_row = Sheets(I).Cells(Rows.Count, 1).End(3).Row ' Sheets(I).Range("a4:G" & my_row).ClearContents Sh_Principal.Range("a1").AutoFilter field:=1, Criteria1:=Sheets(I).Name Set My_rg = Sh_Principal.Range("a2:g" & lr).SpecialCells(12) my_row = Sheets(I).Cells(Rows.Count, 1).End(3).Row If my_row < 4 Then my_row = 4 If my_row = 4 Then My_rg.Copy Destination:=Sheets(I).Range("A4") Else My_rg.Copy Destination:=Sheets(I).Range("A" & my_row + 1) End If Next End Sub

لمسح المحتويات Sub CopyToSheets() Application.ScreenUpdating = False Dim i As Integer, sh As Worksheet, HS As Worksheet, Lr As Integer, iLr As Integer Set sh = Sheets("الرئيسية") With sh Lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To Lr 'Sheets.Count For Each HS In Sheets If HS.Name = sh.Cells(i, 1) Then iLr = HS.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A" & i).Resize(, 7).Copy HS.Range("A" & iLr).PasteSpecial (xlPasteValues) End If Next Next .Range("A2:G" & Lr).ClearContents End With Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

الاخ حاتم عيسى شاهد المرفق Omar_2.rar

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

الاخ حاتم عيسى شاهد المرفق Omar_1.rar

اذا كان مصدر التقرير استعلام فالمسألة يسيرة جدا ففي حقل جديد في الاستعلام تكتب هذا الكود باعتبار ان الحقل الذي يحمل القيمة -1 اسمه fld1 expr1:iif ([fld1]=-1;"غ";"") لاحظ انك ستجعل الحقل expr1 هو مصدر الـــ غ في التقرير

وعليكم السلام ورحمة الله وبركاته قمت بتعديل على مرفقك جرب ووافني بالنتيجة :: تحياتي waz-asasi.rar

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

وعليكم السلام ورحمة الله وبركاته نعم يمكن ذلك وجدت لك مثالا بهذا الخصوص فانظر اليه photos.rar