ِ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

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

عسى أن تكونوا جميعكم بخير ,

أريد لو سمحتوا من ذوي الخبرة في الاكواد , كود لحفظ sheet13.range(a1:j286)pdf ويكون زر التفعيل على صفحة أخرى في Sheet2. ويظهر مباشرة على Desktop

علما بأن pdf محفوظ عندي على C:\ProgramData\Microsoft\Windows

وجزاكم الله عني خيرا,