Ali994m

السلام عليكم أرجو المساعدة في تعديل الكود ليعمل على النسخ الاحتياطي مع كل فتح للملف وإضافة مسار للحفظ بدلاً من الحفظ بنفس المكان وجزاكم الله كل خير backup.xlsm

جزاك الله كل خير كود رائع لكن حصلت معي مشاكل في جعل الأعمدة B, C هي فقط من تظهر أرجو المساعده في تعديل الكود وشكراً

السلام عليكم ورحمة الله وبركاته أرجو المساعدة في شرح كود لتكون بيانات الlistbox بحيث تحتوي اخر عشر قيم من عمود ..... وجزاكم الله كل خير >>>>تــــم رفع الملف listbox.xlsm

السلام عليكم عندي مشكلة في أن الدالة VLOOKUP تقرأ الخلية من دون التنسيق أي تقرأ F20-001 على أنها 1 المطلوب المساعدة في طريقة لتقرأ الدالة VLOOKUP الخلية كما هي F20-001 وشكراً --k.xlsx

اجابة رائعة جزاك الله كل خير

السلام عليكم أرجو المساعدة في تنسق خلية لتحويل 1 الى 0.001Kg وجزاكم الله كل خير format cell.xlsx

السلام عليكم أرجو المساعدة في اضافة دالة لنسخ من شيت لاخر في حال تحقق الشرط أي يتم نسخ قيمة C3 في حال كانت قيمة B3 لاتساوي الصفر وجزاكم الله كل خير نسخ بشرط.xlsm

جزاك الله كل خير

جزاك الله كل خير أخي لكن المعادلة التي تفضلت علي بها كانت صعبة التطبيق قليلا لو شرحتها بعد اذنك أنا أحاول في تطبيق الكود التالي لكن لم ينجح Sub ãÓÊØíáãÓÊÏíÑÇáÒæÇíÇ1_ÇäÞÑ() Dim a(250) Repport.Activate lam = Range("f11").Value Date.Activate Cells(lam + 2, 40).Select Ro = Selection.Row For i = 1 To 250 a(i) = Cells(Ro, i).Value Next i Date.Activate Cells(4, 4).Value = a(2) Cells(4, 8).Value = a(3) Cells(4, 12).Value = a(4) Cells(5, 4).Value = a(5) Cells(5, 8).Value = a(6) Cells(5, 12).Value = a(7) Cells(6, 4).Value = a(8) Cells(6, 8).Value = a(9) Cells(6, 12).Value = a(10) Cells(8, 4).Value = a(11) Cells(8, 8).Value = a(12) Cells(8, 12).Value = a(13) Cells(10, 4).Value = a(14) Cells(10, 8).Value = a(15) Cells(10, 12).Value = a(16) Cells(11, 4).Value = a(17) End Sub

السلام عليكم أرجو المساعدة في اضافة كود لنقل المعلومات من صفحة البيانات الى صفحة التقرير بناءاً على الكود وهل يمكن أن يكون مربع البحث (شكل) طالما انك تريد الحل والإجابة بالأكواد , فكان لزاماً عليك رفع الملف بإمتداد Xlsm وذلك تجنباً لعدم اهدار وإضاعة وقت الأساتذة .... تـــــــــــم التــــعـديــــل وجزاكم الله كل خير report.xlsm

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

السلام عليكم أرجو المساعدة في اظهار اخر عشر خلايا تحوي بيانات من عمود في جدول في صفحة اخرى وجزاكم الله كل خير TEST.xlsx

اجابة ممتازة جزاك الله كل خير

جزاك الله كل خير أخي نجح الكود على الزر الأول لكن حصل خطأعلى الزر الثاني

المطلوب اغلاق جميع الصفحات عدا الصفحة micro عند الضغط على الزر CommandButton2 واغلاق جميع الصفحات عدا Raw عند الضغط على الزر CommandButton2

جزاك الله أخي لكن حصلت أخطاء أثناء اضافة للكود للزر في userform1 Private Sub CommandButton2_Click() Application.Visible = True Sheets("micro").Activate UserForm1.hide End Sub Private Sub CommandButton4_Click() Application.Visible = True Sheets("raw").Activate UserForm1.hide End Sub أرجو المساعدة في اضافة الكود للأزرار 1-2 أو شرح تعديل الكود ليتم اضافة اسم الصفحة التي لا يراد اخفاءها داخل الكود

السلام عليكم أرجو المساعدة في اخفاء الشيتات عدا شيت محدد TEST.xlsm

Sub PrintAllFirstPage() Dim xWs As Worksheet Set xWs = Sheets("report") xWs.PrintOut from:=1, To:=1 End Sub Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\USP41 - NF36\" & Range("C8").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.Range("A1:D33").ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("p12").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox "Done" End Sub ‫‫Daily order - نسخة.xlsm

السلام عليكم أرجو المساعدة في تعيين زر ليتم تنفيذ 2 ماكرو وجزاكم الله كل خير ‫‫Daily order - نسخة.xlsm

جزاك الله كل خير أخي سؤال ثاني اذا تفضلت هل يمكن تنفيذ الأمر ترحيل بعدد معين أي يتم تنفيذ الأمر عدة مرات حسب الرقم combobox بالإضافة الى عدم تفريغ الخانة في textbox1 & textbox2 Labels.xlsm

السلام عليكم أرجو المساعدة في ترحيل بيانات الى خلايا A2+A3 وِA4+A5 أي تخطي سطر حيث أن A1 عنوان ثابت في حين A2 :material name A3:Batch No وجزاكم الله كل خير لصاقات M.xlsm

جزاك الله كل خير

السلام عليكم اذا أمكن أرجو المساعدة في دالة شرطية لتعبئة مستطيل بلون معين بشرط على سبيل اذا المثال اذا كانت L16=aaaa وجزاكم الله كل خير ورقة عمل.xlsx

السلام عليكم ترجى المساعدة في تعديل كود الترحيل الىpdf ليتم تصدير الصفحة الأولى فقط وجزاكم الله كل خير Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\Settle Plate\" & Range("e9").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox " Export To PDF Done" End Sub 1050معدل.xlsm

السلام عليكم أخي تم توضيح كل خلية من أسماء الاعمدة بما يتوافق مع ال report أرجو المساعدة في تطبيق الكود على خلية واحدة مع عمود وأنا سأكمل ان شاء الله وجزاك الله كل خير 1050معدل.xlsm