اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

فرز بيانات جدول


الردود الموصى بها

الأخ الفاضل مهند

يفضل شرح المطلوب بدون إجبار الأعضاء على تحميل المرفق ..

قم بشرح المطلوب ..

مشكور على الاستجابة للتوجيهات ..

الأمر لن يكون صعب بالنسبة إليك في توضيح المطلوب بالموضوع ..

عموما جرب المرفق التالي ...

تم تغيير البيانات في ورقة العمل المسماة (جدول الإدخال)  ليتناسب مع ورقة العمل المسماة (أجور الطبيب) ..

إليك الكود التالي

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

  • Like 2
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

بالنسبة لتكرار البيانات يمكن التغلب عليها بإضافة سطر لمسح محتويات ورقة العمل التي سيتم الترحيل إليها ..

لم أفهم طلبك الثاني

 

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

أما بالنسبة لطلبك الثالث فكان من المفترض أن توضحه في بداية الموضوع وان تحدد طريقة حل الموضوع (إما بالأكواد أو بالمعادلات أو أن الأمر سيان)

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

رابط هذا التعليق
شارك

شكرا لك اخي العزيز ...ياسر خلبل

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

رابط هذا التعليق
شارك

أخي الفاضل

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

والعناوين تكون كما عدلتها في المرفق رقم 5

لو حدثت مشكلة يرجى إرفاق الملف الأصلي الذي يحتوي على الـ 500 جدول للإطلاع عليه

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

شكرا لك أخي العزيز (( عبد الله فاروق )) ...شكرا جزيلا .. هنالك بقيت مشكلة في رقم القائمة حيث لاتظهر النتائج الا عند إدخال أرقام متسلسلة في رقم القائمة ... مثلا من واحد الى 10 وما أريده هو عدم التقيد برقم القائمة أي يكون الإدخال عشوائياً... وكذلك عند أضافة جدول جديد في صفحة أجور الطبيب ما هو التغيير في المعادلة حتى تظهر النتائج بأسم جدول أخر ..علما أن عدد الجداول قد يصل اكثر من 500 جدول مع االشرح إذا ممكن وشكرا

رابط هذا التعليق
شارك

شكرا أخي العزيز على مجهودك ...وفقكم الله لكل خير ... عمل رائع ...

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

4إجور.zip

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

أجور 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information