طارق محمود

السلام عليكم أخي العزيز لابأس ، المهم تصل لما تريد ، هذا هدفنا جميعا تفضل الكود بعد التعديل كما تريد وبه تلميح باللغة العربية لأماكن التعديل Dim OldValue Private Sub Worksheet_Change(ByVal Target As Range) 'في السطر التالي تم إضافة العمودين رقم 3 ، 4 للعمود رقم 2 If Target.Count > 1 Or Target.Column < 2 Or Target.Column > 4 Then Exit Sub 'وفي السطر التالي يتم تحديد الصفوف من 10 إلي 5000 If Target.Row < 10 Or Target.Row > 5000 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False Target = OldValue & Target OldValue = vbNullString Application.ScreenUpdating = True Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target End Sub

السلام عليكم أخي الكريم لاداعي لأي اسف ولايوجد أي إزعاج أهلا بك ومرحبا في أي وقت حيث أنك ليس عندك تصور معين ومن واقع البيانات التي أعطيتها فقد جمعت لك بالمرفق بعض الفورم الجاهزة من هنا وهناك فأرجو أن يكون به ولو بداية لما تريد ستجد بالمرفق (غير الورقة الأولي: صرف عينات) ورقة ثانية إسمها: موظفين ، تستطيع مليء بيانات الموظفين لديك فيها ورقة ثالثة إسمها: حضور وانصراف، تستطيع فيها تسجيل بيانات حضور وانصراف للموظفين لديك ، وتشمل فترة صباحية / فترة مسائية ، تحديد أوتوماتيك لأيام الأسبوع والشهر ، .. ورقة رابعة إسمها: KPI ، تستطيع حساب تقييم الاداء للموظفين على اساس الإنتاجية / الموارد المتاحة / الإلتزام بالقواعد ورقة خامسة إسمها: عملاء ، تستطيع فيها مليء بيانات العملاء ورقة سادسة إسمها: المواد ، تستطيع فيها مليء بيانات المواد / الخامات / الأغذية المستخدمة وطبعا كل تلك الفورم تستطيع النعديل عليها بحذف أو إضافة مايلزمك من أعمدة أخري حسب ماتريد تسجيله من بيانات وكذلك إليك هذا الموقع التالي http://www.vertex42....onal-chart.html ستجد به الكثير من الفورمات التي تناسب إحتياجاتك وقد حملت لك منه علي سبيل المثال ملف organizational-chart ستجده بالمرفق وهو يساعدك علي بناء الهيكل الوظيفي للشركة تفضل المرفقات مع خالص تمنياتي بالتوفيق صرف عينات لشركة أغذية2.rar

السلام عليكم سأل أخونا العزيز / said abo rawash في المشاركه رقم 26 من موضوع /طلب معلومة في ملف اكسيل لحساب الحضور والانصراف علي الرابط http://www.officena.net/ib/index.php?showtopic=30404&st=20 سأل واجبته بأنني / سأضف موضوع جديد لهذا الخصوص وبه الرد وهذا هو الموضوع وبالمرفق الرد صرف عينات لشركة أغذية.rar

السلام عليكم سأضف موضوع جديد لهذا الخصوص وبه الرد لأنه بعيد عن هذا الموضوع

السلام عليكم أخي الكريم تفضل المرفق موقف.rar

السلام عليكم أخي العزيز الكود الذي قدمه أخونا أبوأحمد (حفظه الله) شغال وليس به شيء قد تكون أنت لم تستطع نقله بعد إذنك أبوأحمد (غيرت تغييرات طفيفة : عمود التغيير B وليس C وكذلك محتوي الخلية القديم قبل الجديد) تفضل الملف المرفق وبه الكود يعمل كما تريد حاول الكتابة علي أي من الخلايا الصفراء وحتي لو كررت الكتابة ، سيتراكم المكتوب القديم والجديد Book3.rar

السلام عليكم الدالة المستخدمة =VLOOKUP(B15,$H$19:$I$24,2) تحتوي علي ثلاثة مكونات يفصلها عن بعضها فاصلة وهي B15 قيمة البحث $H$19:$I$24 مجال البحث 2 رقم العمود المطلوب أي أنها تبحث عن قيمة المبلغ بالخلية B15 في المجال H19:I24 (وهو طبعا يحتوي عمودين) ويكون البحث دائما في العمود الأول ، إن وجد القيمة يأتي بالمقابل لها في العمود الثاني (2) وإن لم يجد القيمة يأتي بالمقابل لأقرب قيمة أقل منها في العمود الثاني (2) لتوضيح (أقرب قيمة أقل منها) مثلا لو المبلغ 4999 فلن يأخذ قيمة الـ 5000 بل يأخذ السابقة لها مباشرة وهي 1000 أي موظف د 5 السبب أن القيمة الموجودة بالخلية B15 ليست رقما أو أنها سالبة مثلا طبعا يمكن في هذه الحالة استخدام الدالة IF ولو أنها ستكون طويلة نسبيا لتعدد الإحتمالات - إلا إذا كان الأشخاص المسموح لهم بالتوقيع 2 أو 3 فيكون الأفضل استخدام الدالة IF

السلام عليكم أولا: اهلا ومرحبا بك بين إخوانك ثانيا : السؤال غير واضح لكن أنظر المرفق قد يكون هو ماتريد غير ميلغ الفاتورة بالخلية B15 وسوف يتغير الشخص الذي له صلاحية بالتبعية المعادلة بالمرفق بالخلية B18 قاعدة شرطية على صلاحية مبالغ.rar

السلام عليكم أخي العزيز أصلحت البطء في حال تسجيل المشتروات (صنف جديد ) Record2 ولاأعتقد أنه يلزمك تعديل لــ Record1 وهذا هو الكود المعدل Private Sub CommandButton1_Click() Application.ScreenUpdating = False If [D3] = "" Or [d4] = "" Or [D5] = "" Or [d6] = "" Or [d7] = "" Or [D8] = "" Or [d9] = "" Or [d10] = "" Or [d11] = "" Or [d12] = "" Then MsgBox " من فضلك أكمل البيانات الناقصة ", vbOKOnly + vbMsgBoxRtlReading, " البيانات المدخلة غير كاملة " [D3].Select Else With Sheets("buys").[B65536].End(xlUp) .Offset(1, -1).Value = Format(Now(), "hh:mm:ss am/pm") .Offset(1, 0) = [D3]: .Offset(1, 1) = [D5] .Offset(1, 2) = [d7]: .Offset(1, 3) = [d6] .Offset(1, 4) = [d10]: .Offset(1, 5) = [d11] .Offset(1, 6) = [B11]: .Offset(1, 7) = [B8] .Offset(1, 8) = [D8]: .Offset(1, 9) = [B9] .Offset(1, 10) = [d9]: .Offset(1, 11) = [d12] .Offset(1, 12) = [d4] End With With Sheets("Stor") r = .[A65536].End(xlUp).Row + 1 .Cells(r, 1) = [D5] .Cells(r, 2) = [d7] .Cells(r, 3) = [d6] .Range("D2:Q" & r).FillDown End With [D3:D12].ClearContents [D3].Select End If Application.ScreenUpdating = True End Sub ستلاحظ أنني حذفت المعادلات الزائدة من ورقة Stor ويقوم الكود بنسخها علي قدر مايحتاج وليس 2000 صف بلاداعي وهكذا ستجد الترحيل سريع تفضل المرفق Store2.rar

السلام عليكم أخي الكريم تفضل المرفق تم نقل الأسم والجنسية من صفحة (1) باللغة الإنجليزية باقي البيانات مثل المهنة والــ Authorized Area ليست مترجمة مهم4.rar

السلام عليكم أخي الكريم تفضل المرفق إضغط الزر الأحمر jg.rar

السلام عليكم أخي العزيز المرفق به زر ، بالضغط عليه سيمر علي خلايا العمود C إذا كان أولها لايبدأ بما هو في مقابلها بالعمود B فسيتم إضافتها له وأما إذا كان أولها يبدأ بما هو في مقابلها بالعمود B فسيحذفها عنها أي أنه يصلح للدمج والفصل أيضا تفضل المرفق link_release.rar

السلام عليكم عذرا للإنقطاع لظروف السفر تفضل أخي الكود التالي ضعه في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Cells.FormatConditions.Delete [A2:C100].Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=COUNTIF($A$2:$A2,$A2)=1" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False [A1].Select End Sub

السلام عليكم لايوجد ملف مرفق !!!!!!

السلام عليكم مرفق الملف وقد نزلته فقط ولم أفتحه بعد وهذه المقدمة الموجودة عليه ============================================= المطلوب من الاعزاء المشرفين والاعضاء الكرام في شيت المخزن : ان يتم احتساب متوسط سعر الوحدة وفق المتوسط المرجح ÷ أي مجموع سعرالمتبقي + مجموع سعر المشتري ÷ عدد المتبقي + عدد المشتري حيث اضطر الي ادخال بيانات مشتريات الصنف مع المتبقي واستخراج سعر الصنف وفق المعدل المرجح يدويا من خلال الجدول الموجود في شيت المخزن ===================================================== sales analysis .rar

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

السلام عليكم اخي الحبيب / أحمد للأسف سانشغل لمدة اسبوعين تقريبا أرجو المعذرة

السلام عليكم في المرفق المساحة الصفراء كلها تحقق المطلوب في خلايا العمود A المقابلة لها تفضل المرفق تجميد الوقت1.rar

المشكلة أن الكود في حدث التغيير أي أنه مع كل تغيير لأي من قيم أي خلية من الصفحة سيتوقف حتي عمل التالي: 1. مراجعة الصفوف إن كانت تحتوي علي 0 ثم إلغاؤها 2. نسخة المجال المطلوب للصفحة الثانية أعتقد ان يكون عمل الكود فقط عند تنشيط الصفحة (مرة واحدة) وسيظل أوتوماتيكيا

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

السلام عليكم أخي العزيز إستخدم الدالة SUMIF تفضل المرفق sumif.rar

السلام عليكم أخي العزيز في المرفق ، الخلية A1 بها الدالة now والخلية الصفراء B2 إذا عند ملئها سيتحول قيمة ، الخلية A1 إلي قيمة فقط وإذا حذفت محتويات الخلية الصفراء B2 ، تعود الدالة now للخلية A1 الكود هو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub [A1].Value = [A1] If [B2] = "" Then [A1].FormulaR1C1 = "=NOW()" End Sub تفضل المرفق تجميد الوقت.rar

السلام عليكم أخي العزيز غير B1 إلي B2 في المعادلة لتصبح =SUMIF(A2:A182,"<="&D1,B2:B182)-SUMIF(A2:A182,"<"&F1,B2:B182) وكذلك غير B1 إلي B2 في معادلة الأستاذ الفاضل / بن علية لتصبح =SUMPRODUCT(((A2:A182>=F1)-(A2:A182>D1))*(B2:B182)) لكن انتبه إلي التاريخ في الخلية D1 غير صحيح (ليس نفس التاريخ الذي حسبت أنت عليه ولونته بالأصفر أي أنه يوم 20-2 وليس 12-2) مرفق الملف وبه المعادلتين مضبوطتين Excel 3.rar

أخي الحبيب / محمد مصطفى مبارك علينا (قبل عليك) الترقية مع خالص أمنياتي بالتوفيق ومزيد من العطاء والترقي إن شاء الله

تقبل الله منك ، عمرة مقبولة بإذن الله تعود لنا وللمنتدي بألف سلامة ، إن شاء الله ولاتنسانا في الدعاء