Mohdbns3id

يا سلام عليك شكرا يا يا استاذ نفع الله بعلمك

السلام عليكم ورحمة الله وبركاته الاساتذة الزملاء الكرام لدي مشكلة عند فتح ملف الاكسل يتم اخفاء الملف وعرض userform ولم اعمل bottom للعودة او لإظهار ملف الاكسل مره اخري ما الحل؟؟

لدي جدولة موظفين عددهم يفوق ٣٥٠ موظف يعملون بنظام المناوبات Sheft فـ من الصعب البحث عن موظف معين بالطريقة البدائية لتعديل جدوله او لتغير يوم راحة او اضافة اجازة سنوية/مرضيه/اضطراريه ليوم معين..... الخ. فلجأت الي البحث بالمعادلات INDEX & MATCH ومن ثم الي برمجة كود VBA لتحويل المعادلات الي قيم للتعديل على البيانات ومن ثم نسخها كـ قيم وتعيين متغير لمعرفة رقم الصف الخاص بالموظف ولصقها في الجدولة العمومية للموظفين. و بفضل الله ثم الشرح المتوفر في المنتدى من قبل الاساتذه الافاضل وصلت للكود التالي: كود الإستدعاء On Error Resume Next Sheets("Search").Activate If [C1].Value <> "" Then Range("A5:BLL5").Copy نسخ القيمة التي تم إيجادها بالمعادلات INDEX & MATCH Range("A16").PasteSpecial xlPasteValues لصقها في هذا النطاق كـ قيمة فقط Range("C15").Activate Application.CutCopyMode = False Else MsgBox ("الرجاء إضافة كافة البيانات المطلوبة") End If End Sub كود الترحيل On Error Resume Next Dim x As Long x = Range("D1").Value If [C1].Value = "" Then MsgBox ("لاتوجد بيانات، الرجاء كتابة الرقم الوظيفي للتعديل") Else Range("A16:BLL16").Copy Sheets("Roster").Activate Rows(x).PasteSpecial xlPasteValues MsgBox ("تم تعديل البيانات بنجاح") Application.CutCopyMode = False Sheets("Search").Select Range("A16:BLL16").Value = Clear Range("C1").Value = Clear End If ولكن احتاج بعض الاضافات للكود بحيث لا ينسخ الا الخلايا التي بها بياناتَ فقط واذا تم الترحيل الخلايا الخاليه تبقى كما هي ولا يضع بها قيمة 0 وهل بالامكان تطبيق الفكرة التاليه: حصر الموظفين المتمتعين بالاجازة VAC بين تاريخ بادية وتاريخ نهايه في شيت مخصص للحصر فقط "form" حيث يتم عرض الرقم الوظيفي والاسم وتاريخ البداية وتاريخ النهاية وعدد الايام. مرفق لكم ملف للتوضيح roster test.xlsm

تفضل ممكن يفيدك

لك كل الود والتقدير

بارك الله فيك هذا المطلوب هل بالامكان عدم ظهور sheet2 نهائيا؟

جزاك الله خير ولكن للأسف مازالت المشكلة لم تحل

السلام عليكم ورحمة الله وبركاته اسعد الله جميع اوقاتكم بكل خير لدي كود تصدير ورقة العمل من اكسل الي PDF وتعمل بشكل صحيح. لدي sheet1 يتم ادخال كافة البيانات فيه و sheet2 مخفي غير ظاهر ويأخذ بيانات محددة من sheet1 المطلوب تعديل في الكود بحيث يتم تصدير sheet2 الي PDF " Sub PDFActiveSheet() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant On Error GoTo errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strTime = Format(Now(), "yyyymmdd\_hhmm") strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" strName = Replace(wsA.Name, " ", "") strName = Replace(strName, ".", "_") strFile = strName & "_" & strTime & ".pdf" strPathFile = strPath & strFile myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") If myFile <> "False" Then wsA.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox "PDF file has been created: " _ & vbCrLf _ & myFile End If exitHandler: Exit Sub errHandler: MsgBox "Could not create PDF file" Resume exitHandler End Sub"

ماشاء الله عليك هذا المطلوب بارك الله فيك وفي علمك وجزاك الله كل خير شكر

ياسلام أبدعت يا أستاذي العزيز الان واجهة مشكلة في حال تم إدخال رقم وظيفي لا يوجد في القائمة الخاصة بالارقام الوظيفية يعني رقم وظيفي خطأ يفتح لي واجهة الفجيول بيسك

بارك الله فيك وفي علمك ونفع بك هل نقدر نكرر معادلة Titres علي اكثر من صف؟ او احتال على الاكسل بعمل شيت واستخدام معادلة index و Match ما هو الافضل؟ صدقت من لا يشكر الناس لا يشكر الله

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

لا يوجد أي تعديل في الملف الذي قمت بإرفاقة أنت إلى الان لم نصل للهدف المطلوب

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

السلام عليكم يوجد لدي ملف قمت بطلب تعديل عليه وتم من قبل الاستاذ ali mohammed ali وينقصه بأن الاسم الذي يتم تحضيره وإستدعائة يبقى بعد تغير الرقم الوظيفي مرفق الملف Test Search.xlsx