عبدالرحمن بدوى

جزاكم الله خرا على مجهودك أخى الفاضل

جزاكم الله خيرا على الاهتمام ولكن لعلى ما استطعت ان اشرح قصدى بشكل واضح المقصود هو أنه فى حال وجود العرض مثلا 170 فى الخانة B4 يتم استدعاء البيانات الموجودة فى الشيت roll width وادراجها فى العمود 170 وهكذا فى العرض 154 مثلا يتم ادراج البيانات من شيت roll width فى العمود 154 وهكذا

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

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

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد للأعضاء الأفاضل فى منتدى أوفيسنا الكريم أتمنى للجميع أن يكون فى خير حال لى طلب بسيط عند حضراتكم فى الملف المرفق يوجد شيت اسمه roll width واخر اسمه collected results انا فى عمليى أقوم بتسجيل نتائج الاختبارات للخطوط المختلفة خط 1 وخط 2 وخط 3 وهكذا كما هو موضح فى شيت roll width وفى الشيت الثانى هو تجميعة لنتائج كثيرة منها width ولكن انا فى بشتغل بعروض مختلفة أقوم بتسجيلها فى الخلية b4 واحتاج أن أقوم باخذ القيمة من شيت width الى شيت collected results من خلال='Roll Width'!B18 ولكن كما هو موضح فانى اعمل بأكثر من عرض 154 و 158 و 170 و 234 و .......... المطلوب بعد الحكاية الطويلة دى هو عمل معادلة او ماكرو او ما شابه وأظنها هتتم بدالةif الشرطية بحيث أنه حينما يكون العرض المسجل فى الخليةb4 مثلا هو 154 يتم انزال النتائج مباشرة فى العمود الخاص بعرض 154 ولو العرض 170 يتم انزال النتائج مباشرة فى العمود الخاص ب 170 وهكذا لأنى فى كل مرة يتم تغيير العرض اضطر بتغيير المعادلات ونقلها فى العمود الخاص بالعرض المدون فى الخليةb4 وشكرا لكم مقدما 1.rar

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

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

اخى الفاضل جزاكم الله خيرا على الاهتمام والرد سأحاول شرح الموضوع بشكل اخر لعلى لم استطع فى البداية ان اوضح المقصود لو اخذنا مثالا بكيك السويسرول فالجامبو فى الشغل عندى بالضبط مثل شكل رول السويسرول قبل تقطيعه وبعد ذلك يتم تقطيعه الى رولات كما هو الحال فى شرائح السويسرول كما بالصورة ده بالنسبة لتوضيح عملية التصنيع عندى هى الفكرة احيانا بتكون فيه مشكلة على الجامبو الكبير الذى يشبه رول السويسرول وأريد ان اعرف بالضبط فى اى رول من الرولات (مثل شرائح السويسرول) توجد المشكلة ليتم التعامل معها مثلا واخراجها من الانتاج فاذا كان عرض الجامبو 4000 سم وبه عيب على بعد 250 سم من جهة اليمين وعرض الرول 200 سم فسيكون لدينا 20 رول فى اى رول بالضبط ستكون المشكلة ؟ هذا هو ما اريد توضيحه فى الرسم البيانى طبعا انا لا اريد رسم بيانى بالتحديد فاى فكرة تؤدي الغرض سأكون شاكر لمن قدمها \ ولكن جتئتنى فكرة رسم بيانى فأردت ان اعرضها عليكم كمثال حتى اذا لم اجد غيرها اطلب من الافاضل التعديل عليها لتتناسب مع ما اريده فى العمل وجزاكم الله خيرا مرة اخرى

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد لى طلب احتاجه ضرورى جدا فى شغلى ولكن اريد مساعدتكم انا اعمل فى مجال النسيج ويكون الانتاج على مرحلتين مرحلة رول كبير يسمى جامبو بيكون عرضه حوالى 4 متر ثم يدخل على مرحلة اخرى ليتم تقطيعه الى رولات صغيرة تتفاوت عروضها من عميل لاخر احيانا احتاج ان اقوم بمتابعة مشكلة معين على عرض مثلا 2 متر من هذا الجامبو واريد ان اعرف رقم الرول الذى يكون فيه المشكلة ده شرح لمجال شغلى المطلوب هو عمل ملف اكسل به شكل كبير يعبر عن هذا الجامبو وعندما اقوم انا بادخال عرض الرولات الصغيرة يقوم هذا لشكل بتقسيم الشكل الكبير الى العدد المطلوب لاستطيع تحديد رقم الرول المطلوب مع العلم انه غالبا الرولات الموجودة على الاطراف تكون بعرض مختلف عن باقى الرولات انا عملت ملف كده كنوع من التصور لما اريد ولكن انا ليست لدى ادنى خبرة فى التعامل مع الرسومات البيانية على الاكسل ولكنى عملت هذا الملف لاشرح المقصود لو احد الافاضل لديه فكرة اخرى ياريت يفيدنى بيها او يفيدنى بالتطوير على هذا الملف المطلوب فى هذا الملف انا اقوم بادخال عرض الجامبو وبعد ذلك اقوم بادخال قيمة الحافة اليمنى واليسرى وبعدها اقوم بادخال عرض الرول وعدد الرولات وبعد ذلك اقوم بكتابة بعد العيب من جهة اليمين مثلا واقوم بوضع معادلة لاحتساب الرول المصاب ويتم تعليمه او تلوينه بلون مختلف على الرسم البيانى الموجود وياريت لو ينفع ارقام الرولات تكون مكتوبة على الاعمدة نفسها بدلا من ان تكون اسفلها اتمنى اكون شرحت المقصود وارجو المساعدة repositioning.rar

السلام عليكم ورحمة الله وبركاته اخى الفاضل جزاكم الله خيرا وقد وجدت ضالتى فى هذا الموضوع http://www.officena.net/ib/topic/32704-إرسال-رسائل-بريدية-بمرفقات-عن-طريق-outlook/#entry168449 ولكن لى طلب للتعديل عليه ان كنت تستطيع مساعدتى 1- الملف يقوم بإلرسال معلومات معينة فى السبت الذى يتم اختياره ولكنى اريد ارسال نسخة من الملف كله (workbook) طبعا مع الإحتفاظ بالملف الأصلى 2- يقوم الكود بارسال رسالة بعنوان ثابت ولكنى اريد ان يرسلها بعنوان مقتبس من خلية محددة فى الملف وجزاكم الله خيرا على الإهتمام

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

انا وجدا هذا الكود على النت ولكن اريد التعديل عليه ليقوم بعمل المهام التى كتبتها فى الموضوع Sub Mail_workbook_Outlook_2() ' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010. Dim wb1 As Workbook Dim wb2 As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim OutApp As Object Dim OutMail As Object Set wb1 = ActiveWorkbook If Val(Application.Version) >= 12 Then If wb1.FileFormat = 51 And wb1.HasVBProject = True Then MsgBox "There is VBA code in this xlsx file. There will" & vbNewLine & _ "be no VBA code in the file you send. Save the" & vbNewLine & _ "file as a macro-enabled (. Xlsm) and then retry the macro.", vbInformation Exit Sub End If End If With Application .ScreenUpdating = False .EnableEvents = False End With ' Make a copy of the file. ' If you want to change the file name then change only TempFileName variable. TempFilePath = Environ$("temp") & "\" TempFileName = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") FileExtStr = "." & LCase(Right(wb1.Name, _ Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1))) wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next ' Change the mail address and subject in the macro before you run this procedure. With OutMail .To = "ron@debruin.nl" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hello World!" .Attachments.Add wb2.FullName ' You can add other files by uncommenting the following line. '.Attachments.Add ("C:\test.txt") ' In place of the following statement, you can use ".Display" to ' display the mail. .Send End With On Error GoTo 0 wb2.Close SaveChanges:=False ' Delete the file. Kill TempFilePath & TempFileName & FileExtStr Set OutMail = Nothing Set OutApp = Nothing With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

يرجى غلق الموضوع تمت الإجابة عليه فى مشاركة الاستاذ سيد حمدى ردا على طلبى http://www.officena.net/ib/topic/63484-فلترة-سريعة-للقوائم-بمجرد-كتابة-الحروف-الأولى-شبيهة-بعملية-البحث-على-جوجل-و-اليوتيوب/ جزاكم الله خيرا ويمكن ايضا تغيير العنوان ليعبر اكثر عن المحتوي

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد انا أريد كود ماكرو يقوم بالوظائف الآتية 1- يقوم بحفظ نسخة من الملف كله وليس شيتات معينة باسم معين كما بالمرفقات وليكن مثلا work وبالطبع يكون الحفظ باسم الكلام الموجود فى هذه الخلية b4 ايا كان هو كما هو فى الملف المرفق و فى امتداد معين وليكن مثلا F:\Programes\Windows 2- يقوم بارسال نسخة من الملف كله عبر برنامج الإيميل الموجود على الجهاز (وللعلم عندى مسطب برنامج lotus notes) عشان لو هنحدد اسم البرنامج ولا حاجة على ان يكون العنوان باسم يؤخذ من الملف نفسه على سبيل المثال هنا يكون العنوان هو الكلام المكتوب فى الخلية c9 وهو هنا اسمه results of work 200 وجزاكم الله خيرا 1.rar

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

اخى الفاضل هذا ما ابحث عنه كيف تقوم بتحديد مصدر ComboBox (ActiveX control)

جزاكم الله خيرا أخى الفاضل ولكن لى استفسارين 1- كيف تم عمل هذه القائمة ؟؟ 2-هل من الممكن تطبيق ذلك من خلال data validation ? فى خلية عادية بدلا من ادراج كومبو بوكس ؟

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اعزائي فى المنتدى الكريم فى المرفق تم عمل قائمة list من خلال data validation ولكن لكتابة الإسم فى القائمة إما ان يتم كتابة الإسم كاملا او اختيار الإسم من خلال القائمة فهل من طريقة تجعل المربع يستكمل الإسم الموجود بالليست بمجرد كتابة حرف او 2 من الإسم ؟ فقد رأيتها فى ملفات اكسل لكن لا اعرف كيف يتم عملها اشكركم مقدما 1.rar

ولو وجد برنامج اكسل او اكسس اخر يقوم بالوظيفة التى اريد الرجاء وضع رابط له هنا

السلام عليكم ورحمة الله وبركاته اعضاء المنتدى الأفاضل بالطبع برنامج المخزون والفواتير الشامل غنى عن التعريف هنا فى المنتدى وقد تم شرحه فى هذا المشروع http://www.officena.net/ib/topic/46059-جديد-نزول-برنامج-المخزون-و-الفواتير-الشامل-الاصدار-الثالث-المشروع-الكبير/ وهو برنامج تخطى مرحلة الرائع بمراحل وقد راسلت الأستاذ عمرو عنه فى الإيميل وعبر الخاص فى المنتدى ولكنه لم يرد عليا فى اى منهما والموضوع نفسه الخاص بالبرنامج مغلق تقريبا بحيث انه لا يمكن الرد عليه فقررت طلب المساعدة منكم إن كان هذا بالإمكان انا اريد ان اضيف فى البرنامج شىء بسيط جدا ليتناسب مع احتياجى 1- اضافة فى خانة ادخال الاصناف سعر للبيع الجملة وسعر للقطاعى وسعر الشراء (على ان يكون هناك بعد ذلك اختيارين لسعر الشراء إما باحتساب المتوسط او بتسجيل السعر الجديد) 2- فى شاشة الفاتورة يكون من ضمن انواع الفواتير ( فاتورة المبيعات جملة / قطاعى ) تحديد ما اذا كانت الكمية المباعة جملة او قطاعى وعلى اساسها يتم احتساب السعر الذى قمت بادخاله مسبقا اثناء تسجيل الصنف الجديد يعنى مثلا لدى منتج x سعر بيعه فى الجملة 10 جنيهات وفى القطاعى 13 جنيه فانا اريد فى شاشة فواتير المبيعات جملة / قطاعى يكون هناك امكانية بعد تحديد الكمية المباعة (quantity) ان يكون هناك زرار مثلا لتحديد ما اذا كان السعر المحدد قطاعى او جملة وعلى اساسه يتم تحديد السعر والغاء البونص او الخصم طبعا فى هذا النوع من الفاتورة بالطبع اريد هذا النوع من الفاتورة (مبيعات جملة / قطاعى ) مع الإبقاء على الأنواع الأخرى (مشتريات - مبيعات - مرتجعات .......) وعدم إلغاؤها الإضافة الثانية التى أريدها هى فكرة التركيبات انا لدى مصنع دهانات مثلا وأستخدم مواد اولية فى صناعة الدهانات وأريد إضافة فكرة التركيبات لتكون كالتالى التركيبة تنتج مثلا المنتج النهائى معجون ويدخل فى تصنيعها من المواد الأولية (x , y & z) المطلوب ان يتم استخدام خانة التركيبات لإضافة تلك التركيبة على ان يتم خصم ما سيتم استهلاكه فى التركيبة من المواد الأولية (x , y & z) من المخزن واضافة المنتج النهائى (المعجون) بكميته فى المخزن وهكذا البرنامج على جوجل درايف لأنه اكبر من المرفقات https://drive.google.com/file/d/0B8PR-9tDZoxfSktHeG5UemdieTQ/view?pli=1 ولكم جزيل الشكر والتقدير مقدما وجزاكم الله خيرا

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

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

تمام يا استاذ ياسر خليل ابو البراء جزاكم الله خيرا وهذا ما كنت اطلبه بالضيط ولكن عند تطبيقه عمليا فى شغلى وجدت انى اريد تعديل بسيط جدا وهو اختيار اعمدة معينة فى استيراد البيانات وليس اعمدة متجاورة كما فى المعتاد ففى المرفق فى ملف 1 كتبت مجموعة من البيانات وسميت كل عمودة باسم result 1 , result 2 ,result 3....... وهكذا وانا اريد ان اعدل فى الكود ليتم استيراد البيانات الموجودة فى result 1.3.5.6 الممثلة فى الأعمدة c , e , k & L والادراج فى ملف 2 فى اعمدة متجاورة عادى كما بالمرفق فهل يمكن مساعدتى وتطبيق ذلك فى المرفق وجزاكم الله خيرا Work.rar

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

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد كما فى المرفق لدى ملفان اكسل 1و2 وفى الملف 1 توجد مجموعة من البيانات اسم سن رقم ...... اريد كود ماكرو فى ملف 2 بمجرد الضغط عليه يقوم باستيراد هذه البيانات فى اماكنها فى الجدول وايضا لا يتم فتح ملف واحد اثناء استيراد البيانات وبالطبع فإن ملف 1 و 2 لن يكونو فى نفس المسار على الجهاز انا بحثت على النت ووجدت كود ولكنى لم استطع استخدامه لا ادرى ما السبب فالكود يقوم فقط باستدعاء البيانات فى ملف فى الخلية a1 فقط الكود Sub Read_External_Workbook() '''''Define Object for Target Workbook Dim Target_Workbook As Workbook Dim Source_Workbook As Workbook Dim Target_Path As String '''''Assign the Workbook File Name along with its Path '''''Change path of the Target File name Target_Path = "D:\Sample.xlsx" Set Target_Workbook = Workbooks.Open(Target_Path) Set Source_Workbook = ThisWorkbook '''''With Target_Workbook object now, it is possible to pull any data from it '''''Read Data from Target File Target_Data = Target_Workbook.Sheets(1).Cells(1, 1) Source_Workbook.Sheets(1).Cells(1, 1) = Target_Data '''''Update Target File Source_data = Source_Workbook.Sheets(1).Cells(3, 1) Target_Workbook.Sheets(1).Cells(2, 1) = Source_data '''''Close Target Workbook Source_Workbook.Save Target_Workbook.Save Target_Workbook.Close False '''''Process Completed MsgBox "Task Completed" End Sub وإن امكن نقوم يقوم الكود ايضا بمسح البيانات من ملف 1 بعد استيرادها فى ملف 2 ولكم جزيل الشكر work.rar