توزيع بيانات محددة لكل قسم حسب شروط معينه ( معدل )

[جيسيكا الخليج]

السلام عليكم ..

كيف الحال ..

ابي منكم مساعده لو سمحتووو ..

 

عندي ملف اكسل .. وفيه صفحه الام .. وفيه بعد صفحات كثيره لاقسااام ..

 

حابه ان شيت الام يوزع بيانات محدده لكل قسم .

يعني المريض الي موجود بالجراحه اذا سجلت كل بياناته تلقااائيا ينتقل للقسم المخصص .. وبالغرفه ..

 

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

Copy of New Microsoft Excel Worksheet (9) (6).rar

[حمادة باشا]

تصور سريع للأمر يمكن تطويره حسب المطلوب لكل جزئية علي حده

التعديل في المرفق

 

Copy of New Microsoft Excel Worksheet (9) (6).rar

[الـعيدروس]

تم تعديل عنوان الموضوع

 

يرجاء قراءة قواعد المشاركة

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[جيسيكا الخليج]

 مرحبااا اخووووي ..

 

يعطيك الف عااافيه ..  رااااااائع جدا 

 

بس سوال . كيف اربط شيت 1 .. الي هو راح يكون الام .. بالشيت الباقي .. بحيث اني لو دخلت بيانات المريض في sheet 1 ..  تلقااائيا تنتقل الي مكانهااا المخصص بالغرفه المطلوووبه 

 

وشكرررررررررررا 

[الـعيدروس]

السلام عليكم

 

هذا كود الترحيل البيانات من الـ Sheet1  الى الغرف

Public Sub Trnc()
Dim Sh As Worksheet
Dim R, Nm, Lr
Set Sh = Sheet2
With Sh
   Rw = Split(.UsedRange.Address, "$")(4)
   For R = 8 To Rw
     If Not IsError(Evaluate("'" & CStr(.Cells(R, 9)) & "'!A1")) Then
        .Range(.Cells(R, 1), .Cells(R, 18)).Copy
         Nm = CStr(.Cells(R, 9))
       With Sheets(Nm)
         Lr = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
         .Range("A" & Lr).PasteSpecial xlPasteValues
       End With
      End If
   Next
   Set Sh = Nothing
   .Application.CutCopyMode = False
End With
End Sub

تحياتي

[حمادة باشا]

 مرحبااا اخووووي ..

 

يعطيك الف عااافيه ..  رااااااائع جدا 

 

بس سوال . كيف اربط شيت 1 .. الي هو راح يكون الام .. بالشيت الباقي .. بحيث اني لو دخلت بيانات المريض في sheet 1 ..  تلقااائيا تنتقل الي مكانهااا المخصص بالغرفه المطلوووبه 

 

وشكرررررررررررا 

 

الأخت الفاضلة /

السلام عليكم ورحمة الله وبركاته

بالإضافة إلي الكود الذي تفضل به الأستاذ/ عباد

قمت بعمل تصور عملي للترحيل من الصفحة الرئيسية إلي الغرف

كما في المرفق

Copy of New Microsoft Excel Worksheet (9) (6).rar