طارق محمود

السلام عليكم الأفضل عملها نصف يدويا كالتالي مثلا إسم محمد إستخدم خاصية الاستبدال Ctrl-H مرتين المرة الأولي لاستبدال "محمد" بـ " محمد " أي تستبدله بما يزيد عليه بمسافة قبله ومسافة بعده وتكرر ذلك مثلا لكلمة "عبد" وأي إسم آخر تشتبه في أن به خطأ ثم المرة الثانية لاستبدال مسافتين متتابعتين" " بـمسافة واحدة" " أي تستبدل أي مسافتين متتابعتين في الشيت بمسافة واحدة =============== لاحظ أن عند استخدام المرة الأولي سينتج كثيرا من المسافتين المتتابعتين

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

أين الملف المرفق

السلام عليكم بعد إذن أخي الغالي سليم تفضل الكود التالي (تعديلا علي الكود الذي أرسلته) يتم تفعيل الكود بالضغط علي الزر بعد تغيير الخليتين الحمراوين Sub FilterData() Dim jobs As String, cycl As String jobs = [B1].Value: cycl = [I1].Value On Error Resume Next ActiveSheet.AutoFilterMode = False With [B3:O999] .AutoFilter Field:=13, Criteria1:=cycl .AutoFilter Field:=14, Criteria1:=jobs End With End Sub تفضل الملف أيضا عمل SORT بناء على إختيارين.rar

السلام عليكم لم أفهم ماتريد بعمل sort لنتيجة البحث عمل sort علي أي أساس : الاسم المهنة الجنسية نتيجة الدورة عموما ، مرفق شرح بسيط للكود شرح الكود_احمد بهجت.rar

السلام عليكم تفضل المرفق التمرين.rar

تكون العمليه في نقل البيانات ثقيلة وبطيئة لأن ورقة الأرشيف بها 10 آلاف بيان مرفق الملف مرة أخري وبه ربط لكودي الإظهار والاخفاء BON4.rar

السلام عليكم تفضل اخي غير إسم العميل (في ورقة كشف حساب) وسيتم فرز بياناته من ورقة الأرشيف أوتوماتيكيا BON3.rar

السلام عليكم أخي العزيز تفضل المرفق وبه تعديل الكود لاحظت أنك أضفت أعمدة في ورقة الأرشيف وقد عدلت الكود أيضا ليناسب أرقام الأعمدة الجديدة تذكر أن الكود تم تفصيله علي هذا الشكل ولايجوز إضافة مثل هذه الأعمدة ، إلا إذا كنت تستطيع التعديل علي الكود الكود الجديد Sub Tarheel() LR = [A58].End(xlUp).Row If LR < 20 Then MsgBox "No data to shift": Exit Sub nm = [B11]: dt = [B17]: bil = [K11] Set Q_P = Union(Range("A20:A" & LR), Range("E20:E" & LR)) Set dsc = Range("B20:B" & LR) n = dsc.Count Sheets("الارشف").Activate nr = [E9999].End(xlUp).Row + 1 dsc.Copy Cells(nr, 7).PasteSpecial Paste:=xlPasteValues Q_P.Copy Cells(nr, 8).PasteSpecial Paste:=xlPasteValues Range("E" & nr & ":E" & nr + n - 1) = dt Range("F" & nr & ":F" & nr + n - 1) = nm Range("D" & nr & ":D" & nr + n - 1) = bil Sheets("bon de livraison ").Activate Set dsc = dsc.Resize(n, 3) dsc.Select dsc.ClearContents [B11:C11].ClearContents [B17].ClearContents Q_P.ClearContents [K11] = [K11] + 1 End Sub هل لاحظت مثلا أن Sheets("الارشف").Activate nr = [B9999].End(xlUp).Row + 1 dsc.Copy Cells(nr, 4).PasteSpecial Paste:=xlPasteValues Q_P.Copy Cells(nr, 5).PasteSpecial Paste:=xlPasteValues Range("B" & nr & ":B" & nr + n - 1) = dt Range("C" & nr & ":C" & nr + n - 1) = nm أصبحت Sheets("الارشف").Activate nr = [E9999].End(xlUp).Row + 1 dsc.Copy Cells(nr, 7).PasteSpecial Paste:=xlPasteValues Q_P.Copy Cells(nr, 8).PasteSpecial Paste:=xlPasteValues Range("E" & nr & ":E" & nr + n - 1) = dt Range("F" & nr & ":F" & nr + n - 1) = nm BON1.rar

السلام عليكم أخي العزيز تفضل المرفق وبه كود لعمل المطلوب الكود هو Sub Tarheel() LR = [A58].End(xlUp).Row If LR < 20 Then MsgBox "No data to shift": Exit Sub nm = [B11]: dt = [B17] Set Q_P = Union(Range("A20:A" & LR), Range("E20:E" & LR)) Set dsc = Range("B20:B" & LR) n = dsc.Count Sheets("الارشف").Activate nr = [B9999].End(xlUp).Row + 1 dsc.Copy Cells(nr, 4).PasteSpecial Paste:=xlPasteValues Q_P.Copy Cells(nr, 5).PasteSpecial Paste:=xlPasteValues Range("B" & nr & ":B" & nr + n - 1) = dt Range("C" & nr & ":C" & nr + n - 1) = nm End Sub ويتم تفعيله بالضغط علي زر ترحيل BON.rar

?????? أين الملف

السلام عليكم استخدم الدالة COUNTIF أنظر المرفق hafz.rar

السلام عليكم بالمرفق كل ماسبق مع أمثلة مع الفورم التي تريدها ايضا تفضل نموذج.rar

وبتصليح طفيف في الدالة التي قدمها لنا أخونا الحبيب/ ياسر لأن بها نفس المشكلة تتصلح للتالي وقد جربتها وأعطت ناتج مضبوط Function VOL(Rad, Length, Height) Dim X, Y X = Application.WorksheetFunction.Acos((Rad - Height) / Rad) * 2 Y = Sin(X) VOL = Rad * Rad * (X - Y) /2* Length End Function

السلام عليكم أخي العزيز/ عماراللهيبي بعد إذن أخونا العزيز الغالي / ياسر ============ في ملف "نموذج" الخطأ عندما استخدمت القطر في الحساب أن العلاقات الرياضية لها أولويات في التفيذ بمعني أنك حين تترك المعادلة بلا محددات يبدأ معالج الإكسل في معالجة الأقواس فلها الأولوية ثم الضرب والقسمة ثم الجمع والطرح ولنفهم ذلك أكثر ، خذ جزءا من المعادلة الخطأ بالخلية I9 ، مثلا '=ACOS((G9/2-E9)/G9/2) ستجد الإكسل يبدأ بحساب ماداخل القوس وهذا لاخلاف فيه بعد ذلك يقسم الناتج علي G9 ثم يقسم الناتج مرة أخري علي 2 قسمة ÷ قسمة أي ضرب وهنا يحدث الخطأ فإما أن تغير /2 إلي *2 وأنا لاأفضل ذلك وإما (وهذا الأصح) أن تستبدل كل G9/2 في المعادلة إلي (G9/2) أي بإضافة الأقواس حولها وستجد النتيجة صحيحة شكل المعادلة النهائي =(G9/2)*(G9/2)*(2*ACOS(((G9/2)-E9)/(G9/2))-SIN(2*ACOS(((G9/2)-E9)/(G9/2))))/2*C9

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

السلام عليكم معذرة ليس لدي وقت للمعادلات الآن الأسهل بالأكواد بالمرفق إن شاء الله يكون كل ماتريد ============= بالمناسبة يتم الرفع علي الموقع عن طريق 3 خطوات اضغط الملف باستخدام winrar أو winzip ثم إختر الملف المضغوط زرChoose File ثم إرفع الملف المضغوط زر رفع الملف ارشيف الاستلام2.rar

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

لرفع الملفات ، الموقع لايقبل صيغة الاكسل فقط اضغطها باستخدام winrar أو winzip ثم إرفع الملف المضغوط

السلام عليكم أرجو أن يكون هذا ماتريد إضغط الزر الأزرق علي اليسار بالورقة "invoice" 2015_2.rar

السلام عليكم تفضل المرفق إن شاء الله يكون هو ماتريد وقد أضفت لك أيضا عمود باللون الأحمر في ورقة "موقف تفصيلي" لاظهار آخر تاريخ تم ذكره للمحطة ارشيف الاستلام.rar

السلام عليكم أخي العزيز أولا معذرة علي التأخر في الرد ثانيا أريد بعض الاستفسارات تقول في الملف الكود الموجود علي الزر "BACKUP" في صفحة "invoice" يحفظ نسخة من تلك الورقة "invoice" في المجلد "D:\abdalwahd\" بنفس الإسم الموجود بالخلية E5 بالورقة وهو يقوم بنقل نسخة كاملة من الورقة ================= أرجو شرح طلبك بهذه الطريقة مثلا تغيير الكود علي الزر "كذا" بالورقة "كذا" ليفعل كذا وكذا

السلام عليكم أخي الفاضل /MAHMOUD ALSADEQ أنظر المرفق تستطيع أن تضع يدويا عدد أيام الحضور للثلاثة في الأعمدة الثلاثة الأولي وتضع قيمة العمولة الشهرية في العمود E وستجد العمولة تتقسم بالمعادلات في الأعمدة الزرقاء الثلاثة الأخيرة أيضا يمكنك زيادة عدد العمال كما تشاء بإدراج أعمدة بين س، ص أو بين ص، ع --->> فقط ستنسخ المعادلات تفضل المرفق هل هذا ماتريد Equal-Tips.rar

لا أدري أرسلت لك رسالة علي الخاص

نظام الاوفس عندي انجليزي لكن ممكن تتابع الخطوات الأربع من الصورة التالية