مهند الزيدي قام بنشر أبريل 15, 2015 قام بنشر أبريل 15, 2015 السلام عليكم ... ممكن عمل المطلوب ....جزاكم الله خيرا إجور.zip
ياسر خليل أبو البراء قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 الأخ الفاضل مهند يفضل شرح المطلوب بدون إجبار الأعضاء على تحميل المرفق .. قم بشرح المطلوب ..
مهند الزيدي قام بنشر أبريل 16, 2015 الكاتب قام بنشر أبريل 16, 2015 شكرا لك اخي العزيز ياسر...سبب وجود المرفق هو لتوضيح المطلوب وسهولة ايجاد الحل..مع الشكر الجزيل
ياسر خليل أبو البراء قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 الأخ الفاضل مهند يفضل شرح المطلوب بدون إجبار الأعضاء على تحميل المرفق .. قم بشرح المطلوب .. مشكور على الاستجابة للتوجيهات .. الأمر لن يكون صعب بالنسبة إليك في توضيح المطلوب بالموضوع .. عموما جرب المرفق التالي ... تم تغيير البيانات في ورقة العمل المسماة (جدول الإدخال) ليتناسب مع ورقة العمل المسماة (أجور الطبيب) .. إليك الكود التالي Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim X As Long, Y As Long, Cell As Range Dim lRow As Long Set WS = Sheets("جدول الإدخال"): Set SH = Sheets("أجور الطبيب") Application.ScreenUpdating = False For Each Cell In WS.Range("F3:F16") If Not IsEmpty(Cell) Then X = Application.WorksheetFunction.Match(Cell.Value, SH.Rows(1), 0) lRow = SH.Cells(49, X).End(xlUp).Row + 1 WS.Range(Cell.Offset(, -5), Cell.Offset(, -3)).Copy SH.Cells(lRow, X).PasteSpecial xlPasteValues Cell.Offset(, 1).Copy SH.Cells(lRow, X + 8).PasteSpecial xlPasteValues On Error GoTo 1 Y = Application.WorksheetFunction.Match(Cell.Offset(, -2), Range(SH.Cells(2, X), SH.Cells(2, X + 8)), 0) SH.Cells(lRow, X + Y - 1).Value = Cell.Offset(, -1).Value 1 End If Next Cell Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Doctors' Wages.rar 2
مهند الزيدي قام بنشر أبريل 16, 2015 الكاتب قام بنشر أبريل 16, 2015 شكرا لك أخي العزيز ياسر خليل .. على مجهودك ...هناك مشكلة عند إدخال بيانات جديدة وعند الضغط على زر الترحيل يقوم بتكرار البيانات .. وهل من الممكن عمل زر الترحيل على أكثر من شيت حسب حسب زيادة المدخلات في الشيت جدول الإدخال..وهل من الممكن أن تكون المعادلات أكثر سهولة وإنسيابية .. مع جزيل الشكر .. وفقكم الله لكل خير
ياسر خليل أبو البراء قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 بالنسبة لتكرار البيانات يمكن التغلب عليها بإضافة سطر لمسح محتويات ورقة العمل التي سيتم الترحيل إليها .. لم أفهم طلبك الثاني هل من الممكن عمل زر الترحيل على أكثر من شيت حسب حسب زيادة المدخلات في الشيت جدول الإدخال أما بالنسبة لطلبك الثالث فكان من المفترض أن توضحه في بداية الموضوع وان تحدد طريقة حل الموضوع (إما بالأكواد أو بالمعادلات أو أن الأمر سيان) اعذرني لعدم القدرة على محاولة الحل بالمعادلات سأترك الأمر لمن هو أكثر مني خبرة
مهند الزيدي قام بنشر أبريل 18, 2015 الكاتب قام بنشر أبريل 18, 2015 شكرا لك اخي العزيز ...ياسر خلبل عند اضافة جدول جديد في صفحة اجور الطبيب يقوم بترحيل البيانات الى حقل الزيارة ولا يرسل الى بقية الحقول ...مع حدوث خطا في الكود...علما ان عدد الجداول في الصفجة اجور الطبيب قد تصل الى اكثر من 500 جدول
ياسر خليل أبو البراء قام بنشر أبريل 18, 2015 قام بنشر أبريل 18, 2015 أخي الفاضل لكي يعمل الكود بشكل صحيح يفترض أن تكون الجداول متطابقة تماما في العناوين وفي عدد الأعمدة وأن تكون متجاورة بدون أعمدة تفصل بين كل جدول والآخر كما في المثال الذي أرفقته.. والعناوين تكون كما عدلتها في المرفق رقم 5 لو حدثت مشكلة يرجى إرفاق الملف الأصلي الذي يحتوي على الـ 500 جدول للإطلاع عليه
عبدالله فاروق ابو ريان قام بنشر أبريل 18, 2015 قام بنشر أبريل 18, 2015 اخي الفاضل بعد اذن استاذنا الفاضل أ. ياسر خليل شوف هذا الملف ينفع معاك إجور.rar
مهند الزيدي قام بنشر أبريل 18, 2015 الكاتب قام بنشر أبريل 18, 2015 السلام عليكم أخي العزيز (عبد الله فاروق))..شكرا على مجهودك ..ولكن لاأريد ان يتقيد الفرز برقم قائمة متسلسل ...أي يكون الفرز حتى لوكانت رقم القائمة بأرقام عشوائية في جدول الإدخال ..وكذلك هناك مشكلة في الفرز حيث أن الفرز حسب نوع العملية في أجور الطبيب لايكون مطابق لما هو في جدول الطيبيب .. اي مااريده هو عند إختار نوع عملية مثلا كبرى في جدول الإدخال يكون الترحيل الى الحقل كبرى وكذلك البقية وعند تكون مراقبة يكون الترحيل الى الزيارة فقط.. مع الشكر
عبدالله فاروق ابو ريان قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 بالنسبة لطلب حضرتك (لاأريد ان يتقيد الفرز برقم قائمة متسلسل ) يتم العمل عليه
مهند الزيدي قام بنشر أبريل 19, 2015 الكاتب قام بنشر أبريل 19, 2015 شكرا لك أخي العزيز (( عبد الله فاروق )) ...شكرا جزيلا .. هنالك بقيت مشكلة في رقم القائمة حيث لاتظهر النتائج الا عند إدخال أرقام متسلسلة في رقم القائمة ... مثلا من واحد الى 10 وما أريده هو عدم التقيد برقم القائمة أي يكون الإدخال عشوائياً... وكذلك عند أضافة جدول جديد في صفحة أجور الطبيب ما هو التغيير في المعادلة حتى تظهر النتائج بأسم جدول أخر ..علما أن عدد الجداول قد يصل اكثر من 500 جدول مع االشرح إذا ممكن وشكرا
مهند الزيدي قام بنشر أبريل 21, 2015 الكاتب قام بنشر أبريل 21, 2015 ارجو من عمالقة المعادلات اكمال الحل ...وفقكم الله لكل خير
عبدالله فاروق ابو ريان قام بنشر أبريل 25, 2015 قام بنشر أبريل 25, 2015 اخي مهند الزيدي عفوا على التاخير كان فيه ظروف طارئة منعتني من التواجد ممكن تجرب المرفق وتقول رايك إجور.rar
مهند الزيدي قام بنشر أبريل 25, 2015 الكاتب قام بنشر أبريل 25, 2015 شكرا أخي العزيز على مجهودك ...وفقكم الله لكل خير ... عمل رائع ... لكن ماأريده هو عمل ترحيل لكل جدول حسب إسم الطبيب كما هو مبين في المرفق .. حيث يعمل على نقل البيانات لكل طبيب في الجدول الخاص به دون قائمة منسدلة في جدول واحد ...علما أن عدد الجداول قد يصل الى أكثر من 500 جدول 4إجور.zip
عبدالله فاروق ابو ريان قام بنشر أبريل 26, 2015 قام بنشر أبريل 26, 2015 عفوا ياأخي لافهمك انت تقصد ان عدد الاطباء ممكن يصلو الى 500 طبيب وهل هذه الطريقة لاتؤدي الغرض الغرض من استخدام الاكسل هو تسهيل والمساعدة على انهاء المهام فما افهمه منكم انك تريد عمل جدول خاص بكل طبيب هل انا فهمت صح ام لا
مهند الزيدي قام بنشر أبريل 26, 2015 الكاتب قام بنشر أبريل 26, 2015 اشكرك اخي العزيز...نعم اريد جدول لكل طبيب
عبدالله فاروق ابو ريان قام بنشر أبريل 26, 2015 قام بنشر أبريل 26, 2015 عفوا اخي ممكن اى شخص من عمالقة ال VBA يقدر يساعدك انا بصرحة ومتقولش لحد مبتدأ في ال VBA واتمنى ان تجد الحل
مهند الزيدي قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 شكرا لك أخي العزيز عبد الله فاروق ... لقد وجدت أن حلك للموضوع بالمعادلات كان اكثر الحلول فاعلية لعملي ... ولكن عندي طلب أخر هو حل هذا بالمعادلة كما مبين بالمرفق .. جزاك الله خيرا أجور 5.zip
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.