oyousef

استاذنا الجليل / الاستاذ طارق بارك الله لك وجعله فى ميزان حسناتك

الاساتذة الافاضل السلام عليكم ورحمة الله وبركاته الملف المرفق يحتوى على على عمودين بهم بيانات العمود الاول يحتوى على عدد الساعات الاضافية التى بعملها كل عامل ومكتوبة بصيغة الوقت(01:30)مثلا فهل يمكن ايجاد طريقة لتحويل هذه القيمة الى صيغة الارقام لتكون مثلا 1.50 بدلا من 01:30 ويتم كتابتها فى العمود المجاور كما هو موضح بالملف المرفق overtime.rar

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

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

الاساتذة الافاضل السلام عليكم ورحمة الله وبركاته ارجو المساعدة الملف المرفق يتم ترحيل بيانات اليه بشكل يومى من ملفات اخرى والمطلوب:- كود يجمع الكميات الموجوده فى العمود رقم 4 بشرط ان تكون الصفوف التى سيجمعها متشابهه من حيث كود الصنف والتاريخ وكود العبوة ويتم ترحيلهم على هيئة صف واحد الى شيت رقم 2 مثال اذا كان هناك اكثر من صف يحمل البيانات الاتية: التاريخ :1/1/2012 وكود الصنف :1701 وكود العبوة :11 ولكن الكميات مختلفة فى كل صف فيتم نقل هذه البيانات الى شيت رقم 2 على هيئة صف واحد ولكن خانة الكمية تكون حاصل جمع الكميات بالصفوف المتشايهة اما اذا كان هذا الصف لايوجد له شبيه من حيث الشروط المذكورة سابقا فيتم ترحيله بدون عمل اى شىء وشكرا sales Db.rar

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

الاساتذة الافاضل السلام عليكم ورحمة الله وبركاته ارجو المساعدة الملف المرفق به بيانات يالاعمدة من b الى p والمطلوب : كودينفذ الاتى:- فى حالة ان تكون الخليةالموجودة بالصف رقم19من كل عمود فى النطاق المذكور تحتوى على قيمة = صفر فيتم اخفاء العمود بالكامل اما اذا كانت تحتوى على قيمة اكبر من الصفر فيظهر العمود وشكرا انتاج.rar

الاستاذ الفاضل / استاذ طارق السلام عليكم ورحمة الله وبركاته سلمت يداك فقد ابدعت فعلا وما من كلمات توفيك حقك

السلام عليكم ورحمة الله وبركاته اجابة الاستاذ الفاضل يحى حسين عن سؤالى فى منتهى الابداع ولكن ربما اكون انا من اخطأت فى توصيل ما اريد فانا كنت اطلب ان يتم جمع قيم الاكواد الموجوده بدون احددها بمعنى اذا كان هناك اكواد مثل 1701 ,1702 فقط فيتم جمع قيم كل منهم فى خانه منفصله دون ان احدد شرط 1701, 1702 واذا تم ترحيل مثلا كود جديد مثل 1904 يتم ايضا جمع القيم الخاصه بيه فى خانه منفصله دون ان احدده وذلك يكون بمجرد تنفيذ الكود ملحوظة : لقد ارسلت بأن الكود الذى ارسله الاستاذ طارق لى لا يعمل بشكل صحيح ارجو المعذرة

استاذى الفاضل/الاستاذ طارق الف شكر على مجهودك وتعبك ولكن احب ان اوضح بأن الكود لايعمل بشكل صحيح مع الاسف ويشير الى ان هناك خطأ فى هذا الجزء من الكود: ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R" & LR & "C10", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="R4C11", TableName:="PivotTable1"

الاساتذة الافاضل السلام عليكم ورحمة الله وبركاته. ارجو المساعده فى الاتى الملف المرفق به بعض البيانات عن الانتاج ويتمترحيل البيانات لهذا الملف عن طريق كود بملف اخر و هناك عمودين مهمين بهذا الملف وهما عمود كود الصنف وعمود للكمية بالكجم والمطلوب كود ينفذ الاتى : جمع بيانات كل صنف منفرد مهما كانت عدد الاصناف ووضعهم فى صفين تحت بعض كما هو مبين بالمرفق بمعنى هناك الصنف 1701 مثلا يتم تجميع الكميات ووضع الاجمالى تحت خانة SUM 1701 وهكذا واذا اضيفت اصناف جديده يضيفها تلقائيا ويضع لها خانة ويضع مجموعها فهل هذا ممكن و السلام عليكم ورحمة الله وبركاته ملحوظة : لا اريد تنفيذ هذا باستخدام خاصية SUBTOTAL لاسباب متضاربه مع بقية الموضوع F1101.rar

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

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

الاساتذة الافاضل كل الشكر والتحية لكم جميعا انجزتم وابدعتم وكل الشكر والتحية والتقدير ومن باب التنوع ايضا فقد توصلت لهذه المعادلة =IF(A5="";A4;"")

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

نعم هذا يفى بالغرض شكرا يا استاذ يحى وجزاك الله كل خير عن ذلك وجعله فى ميزان حسناتك :fff:

الاساتذة الافاضل/ اساتذة المنتدى الكرام بالملف المرفق اريد كود او معادلة لعمل الاتى: اذا كانت الخلية بالعمود بالعمود (A) تحتوى على رقم فان الخلية المقابلة بالعمود(B) تحتوى على اخر رقمين من الخلية المقابلة بالعمود A مثال اذا كانت( A2) تحتوى 2011 فان B2 يجب ان تحتوى على اخر رقمين اى 11 year.rar

‏اللهم رب الناس، أذهب البأس، واشف، أنت الشافي لا شفاء إلا شفاؤك، شفاءً لا يغادر سقماً

‏اللهم رب الناس، أذهب البأس، واشف، أنت الشافي لا شفاء إلا شفاؤك، شفاءً لا يغادر سقماً اللهم اشف اخانا ابو احمد.........آميــــــــــــــــــــــــــن امنو معى اخوتى فى الله

الاخوه الاساتذة الافاضل (الاستاذ يحى , والاستاذ ابو احمد) شكرا لكم اوجزتم فانجزتم الف شكر :fff:

الساده الافاضل / اساتذة المنتدى الكرام السلام عليكم ورحمة الله وبركاته ارجو المساعده فى كتابة كود يضع كلمة اجمالى تحت اخر تاريخ مدرج مهما كان عدد الخلايا الموجوده فى العمود(A) وفى نفس الصف يتم جمع البيانات الموجوده فى الاعمدة (c,d,e) وذلك فى الخليه التى تقابل كلمة اجمالى ولكم جزيل الشكر costs.rar

الاخ الفاضل الاستاذ العبقرى ابو احمد ما من كلمات شكر توفيك حقك على كل حال سلمت يديك وسلم عقلك ودائما للامام ودائما نتعلم منك :fff:

اساتذة المنتدى الافاضل السلام عليكم ورحمة الله وبركاته وبعد لقد قمت بتصميم فورم داخل هذا المرفق وبها 2 من التكست بوكس ادخل بهما التاريخ على هذا المنوال (dd/mm/yyyy) على ان يتم بعد ذلك طبعهما فى الخليتان i2 ,l2 ولكن اصادف مشكله عجزت عن حلها وهى عند نقل محتوى التكست بوكس الى الخليتين المذكورتين يقلب التاريخ ليكون بهذا الشكل (mm/dd/yyyy) فهل من حل لهذه المشكله واخيرا تقبلوا وافر تحياتى expenses.rar

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

Sub acopyof() ' Dim FName As String Dim FPath As String 'Daily Movement file saving Path FPath = "C:\fr\supdata\FPDM" Sheets("sheet4").Select ActiveSheet.Copy Range("d3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False FName = Sheets("sheet4").Range("c3").Text & " " & Sheets("sheet4").Range("d3").Text ActiveWorkbook.SaveAs Filename:="C:\supData\Fr\" & FName Range("A4:f73").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveSheet.Unprotect ActiveSheet.Shapes("Button 1").Select ActiveSheet.Shapes.Range(Array("Button 1", "Button 2")).Select Selection.Delete End Sub الاخ الفاضل ابو أحمد لك منى كل شكر فالطالما كنت عونا لى جزاك الله كل خير حاولت اجرب الكود مرارا وتكرارا وجربت ان اغير فيه ولكن لم ينجح فحاولت ان اصنع كود اخر ليتلائم مع متطلباتى كلها واظن انى افلحت هذه المره وهذا هو الكود واتمنى ان لا اكون اثقلت عليك ولك منى كل الشكر