محمد عبد الناصر

ماشاء الله عليك استاذ وجيه فتح الله عليك وزادك من علمه

احتاج الى كود يقوم بنقل الصف كاملا الى شيت "تقرير الدكتور" اعتمادا على المكتوب في الخلايا المحدده رقم الشهر واسم الدكتور اعتمادا على رقم الشهر المكتوب في العمود P الملف المرفق موضح المطلوب والصوره المرفقه موضحه المطلوب جعله الله في ميزان حسناتكم xd.xlsm

هو المطلوب تماما شكرااا لمجهودك

في الملف المرفق احتاج الى كود يقوم بكتابة الشهر على شكل رقم بدون اي داله اريد فقط كتابة رقم الشهر 5.xlsm

من الصف رقم ١ الى الصف رقم ٣ لم يظهرو عند وضع امر تجميد وعند الغاء امر التجميد يظهرو كيف اخل هذه المشكلة

هذا الكود عند فتح الملف لاول مره يطلب باسورد وهو 2020 المشكله انه يقوم بطلب الباسورد عند فتح الملف في كل مره المطلوب ان يطلب الباسورد مره واحده فقط هو مربوط بسيريال الهارد المطلوب ان يقوم بطلب الباسورد مره واحده فقط وهي عند فتح الملف لاول مره ولا يقوم بطلبه مره اخرى ...... تـــــــم رفـع الـــمــــلف Private Sub Workbook_Open() Dim bool As Boolean On Error Resume Next bool = [DriveSN] = GetDriveSerialNumber On Error GoTo 0 Application.EnableCancelKey = xlDisabled If bool = False Then If InputBox("Enter the Password") <> "2020" Then MsgBox "Wrong Password ..." & vbCrLf & "Workbook Closing !", vbExclamation Application.EnableCancelKey = xlInterrupt Me.Close False Else Names.Add "DriveSN", GetDriveSerialNumber, False: Me.Save End If End If Application.EnableCancelKey = xlInterrupt End Sub n.xlsm

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

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

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

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

نعم هذا هو المطلوب تماما بوركت وبارك الله في علمك

اريد ترحيل بيانات السطر بالكامل على حسب اسم الطبيب المعالج فمثلا الطبيب المعالج اسمه "احمد" ينقل بيانات الطبيب احمد الى شيت الدكتور احمد وكذلك الدكتور حاتم ينقل جميع بيانات الدكتور حاتم الى شيت الدكتور حاتم الملف المرفق موضح المطلوب جعله الله في موازين حسناتكم fik.xlsm

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

في الملف المرفق بيانات مرضى لكل مريض شيت خاص به وبتعاملاته المطلوب استدعاء بيانات المرضى من كل الشيتات ووضعها في شيت التقرير كما هيا لا اريد جمع ارقام او اجمالي اريد فقط استدعاء البيانات ووضعها في شيت "التقرير" كما هو موضح بالملف المرفق يوجد عدة شيتات اخرى ليس لها علاقة بالمطلوب مثل Sheet1 المصروفات البداية 100.xlsm

ماشاء الله استاذعلي رائــــــــــع جدااا

احتاج الى دالة تكتب لي عدد الاحرف المكتوبه في الخلية المجاورة وهل يمكن ان احدد للخلية عدد الاحرف التي تكتب بداخلها ؟ اريد الا تزيد عن 31 حرف دالة عدد الاحرف.xlsx

تم حل المشكلة شكرا لكم هذا التعديل Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("b1").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Range("B1").Copy .Range("B1").PasteSpecial xlPasteValues .Range("B2").Copy .Range("B2").PasteSpecial xlPasteValues End With Application.CutCopyMode = False Range("A1").Select End Sub

في هذا الكود يقوم بأخذ نسخه من شيت1 وفتح شيت باسم العميل المحدد في شيت البداية الكود يقوم باخذ نسخه من شيت1 بكل الدوال المطلوب ان لا ياخذ الدوال التي توجد بالخلية B1,B2 ياخذ الاسم المكتوب فقط وان ياخذ جميع الدوال في باقي الشيت الملف مرفق Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("b1").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.Copy .Cells.PasteSpecial End With Application.CutCopyMode = False Range("A1").Select End Sub R.xlsm

شكرا اخي الكريم

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

ماشاء الله استاذ سليم رائع جدااااااااا

عند وضع الام الخاص بك يعطي ايرور اذا امكن تجربة السطر على الملف الخاص بي وجزاكم الله كل خير

في الملف المرفق يوجد كود نقل اسم المريض من شيت( البداية ) الى شيت (التقرير ) المشكلة عند وجود شيت باسم المريض يقوم الكود بنقل الاسم اكثر من مره اريد اذا وجد الاسم في التقرير بان لا يقوم بنقل الاسم مره اخرى وان يظهر رسالة تحذير بان الاسم يوجد في شيت التقرير الملف مرفق test 2.xlsm

احتاج الى معادلة في الملف المرفق ان تكتب لي ايام الشهر بالترتيب عند كتابة الشهر المحدد فمثلا عند كتابة 10 ان يكتب لي عدد ايام شهر اكتوبر في خلايا محددة مثال 1/10/2020 2/10/2020 3/10/2020 4/10/2020 عند كتابة 11 ان يكتب لي عدد ايام شهر نوفمبر في خلايا محدده 1/11/2020 2/11/2020 3/11/2020 وهكذا الملف المرفق موضح المطلوب 80.xlsx

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