ِAmerAdnan

السلام عليكم عندي الماكور التالي كان يعمل بكفائة على ويندز 7 اما على ويندز 10 لم يعد يعمل وهو تحويل الصفحةالى pdf الكود يعمل ولكن لايحفظ الملف ( يعني عند تشغيل الكود يوحي لك انه عمل ولكن لايوجد ملف pdf فعلياً اما بالنسبة لإرفاق الملف فهو ملف كبير ومعقد ومتفرع Sub UTurnArrow10_Click() On Error Resume Next Dim fileName As String, saveAsFileName As Variant Dim PDFrange As Range With Sheets("sheetramhi") Set PDFrange = .Range("a1:J191") End With saveAsFileName = Application.GetSaveAsFilename(InitialFileName:=Get_SpecialFolderPath("Desktop") & fileName, _ FileFilter:="PDF file (*.pdf), *.pdf", _ Title:="Save PDF file") If saveAsFileName <> False Then On Error Resume Next PDFrange.ExportAsFixedFormat Type:=xlTypePDF, fileName:=saveAsFileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False On Error GoTo 0 On Error GoTo 0 End If End Sub Private Function Get_SpecialFolderPath(SpecialFolderName As Variant) As String Get_SpecialFolderPath = CreateObject("WScript.Shell").SpecialFolders(SpecialFolderName) & "\PDF sheetramhi" End Function test.rar

يوجد مشكلة في فتح الملف وقمت باكثر من محاولة ولم تفلح منها الرابير ومنها w +r verify that the file has not been corrupted and that the file extension matches the format يرجى المساعدة ولكم الشكر نموذج القضايا.rar

جرب هذا 23-4-2020.xlsx

سيدي انا لم افهم ماذا تريد , ولكن لاحظت ان الجمع يبداء من الصف الثالث والمفروض يبداء من السطر الثاني , ولذلك عدلت معادلة الجمع وقمت بعمل حماية للمعادلات من المسح ارجوا ان يكون هذا المطلوب 18-4-2020.rar

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

الله يعطيك الف عافية , استاذ ماذا تقترح انه عند الفلتره يظهر حساب العميل ( شركة التامين ) كم مجموع ماهو مطلوب منه وكم دفع وكم بقي عليه . وهل من الممكن عند ترحيل البيانات اذا البيانات مكرره يرفضها

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

السلام عليكم ورحمة الله وبركاته , إخواني لو سمحتوا إستخدمت الكود التالي في ترحيل البيانات ويعمل بشكل ممتاز , ولكنه لايبداء من اول خانة ولكم جزيل الشكر مطلوب تعديل كود الترحيل.rar

أستاذ نبيل تعبتك معاي الله يعطيك الصحة والعافية ويبارك في عمرك , وأود أن أوضح التالي :- فكرة البرنامج اولا /يتم ادخال المعلومات المطلوبة لعمل تقرير معين ضمن اربعة نماذج ثانيا /يتم حفظ التقرير المطلوب على شكل PDF او طباعته مباشره ثالثا /ان ترحل المعلومات المطلوبة إلى ثلاثة سجلات في اخر اوراق ( تقرير هئية التامين / وهو متطلب حكومي بجميع التقارير التي تم عملها / اما بقية التقارير لغايات الحسابات الشخصية. رابعا /بعد حفظ التقرير PDF ) يتم تفريغ البيانات . وعمل تقرير جديد مثال تم عمل تقرير رقم 1 لشركة التامين الالاردنيه . ثم تم تفريغ البيانات وثم تم عمل تقرير رقم 2 لشركة الشرق الاوسط . ثم تم تفريغ البيانات المطوب ان يظهر في السجلات المطلوبة (سجل هئية التامين او السجل العادي او السجل المفلتر ) الاتي التسلسل رقم التقرير اسم شركة التامين ........وهكذا ( استاذي الارقام الموجودة في كل سجل هي ارقام الصفحات والخلايا المطلوب ترحيلها ) 1 115 شركة التامين الاردنيه 2 116 شركة الشرق الاوسط أرجو ان تكون الصورة واضحة . أمر تفريغ الحقول يعمل بشكل جيد فيه صفحة لم تفرغ ساحوال ان اعدلها لا أعلم إن كان بالإمكان مساعدتي ولكم جزيل الشكر . السلام عليكم ورحمة الله جزاك الله خيرا اخ نبيل , ما قصرت , لقد قمت بحل الموضوع معتمدا على كثيرا من خبراتكم . لك مني كل الاحترام والتقدير ولجميع اخواني في المنتدى والقائمين عليه .

السلام عليكم ورحمة الله وبركاته , عسى أن تكون بخير جيمعا , أرفق لكم ملف باقي عليه ثلاث اورق ويكون تمام بس مش قادر اسويهم ( عبارة عن نقل بيانات وفلتره ) سأضع ملفي بين أيديكم وأمانتكم عسى أن أجد من يساعدني فيه ( أخر ثلاث اوراق وهم تقرير الهيئة والسجل والسجل المفلتر ولا أعلم لماذا اصبح الملف بطئ عن الفتح . orginalcopy-protcet.rar

السلام عليكم ورحمة الله وبركاته , تحياتي لكم جميعا أريد أيضاً بعد إذن ذووي الإختصاص كود ثاني أيضا ويكون مضمونه كالتالي ولكنه لايعمل ويعطني أخطاء ()sub clear sheet(namesheet1).range("B2:, B13).clear sheet(namesheet2).range("h4",H16).clear sheet(namesheet3).range("h6", "h12").cleat end sub ومشكوررررررررررررين

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

جزاك الله خيراً ورزقك الجنة ☘️

الكود يعمل بشكل ممتاز جزاك الله خيرا (أحمد يوسف ) , ممكن تكمل معروفك ويكون حفظ الملف بإسم خلية معينة ويكون الحفظ مباشرة بدون ما يسئل عن مكان الحفظ البرنامج كبير واصبح ثقيل في الفتح هل يوجد طريقة لتسريع فتح الملف . بارك الله فيكم Sub SHEET_SaveAsPDF() Dim Fname As String With Worksheets("13") Fname = ThisWorkbook.Name & .Range("i4").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & Fname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

شكرا اخي للاجابة السريعة ولكن الملف معقد وكبير شوي , انا إستخدمت كود بفضل هذا الموقع الممتاز . ولكن بقي فقط ان تفعل range ورقم الصفحة مع العلم انني اضفت range ولكن عند تحويل الملف الى pdf يحول كامل الشيت هذا الكود الذي استخدمته من الموقع وكان مفيد screen.pdf