a.kawkab

شكرا استاذ عبد الله جربت الحل على جهازين وازلت علامة الصح من امام missing ,وانتهت المشكلة ولكن بالجهاز الثالث لم اجد اى شئ بالقائمة به كلمة missing ولا زالت المشكلة قائمة به هذا رابط الملف الاصلى وباسورد الاكواد a.kawkab2010 نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

Option Explicit 'The code below are used by the macros in the other two modules 'Do not change the code in the functions in this module Function RDB_Create_PDF(Source As Object, FixedFilePathName As String, _ OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String Dim FileFormatstr As String Dim Fname As Variant 'Test If the Microsoft Add-in is installed If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _ & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then If FixedFilePathName = "" Then 'Open the GetSaveAsFilename dialog to enter a file name for the pdf FileFormatstr = "PDF Files (*.pdf), *.pdf" Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _ Title:="Create PDF") 'If you cancel this dialog Exit the function If Fname = False Then Exit Function Else Fname = FixedFilePathName End If 'If OverwriteIfFileExist = False we test if the PDF 'already exist in the folder and Exit the function if that is True If OverwriteIfFileExist = False Then If Dir(Fname) <> "" Then Exit Function End If 'Now the file name is correct we Publish to PDF On Error Resume Next Source.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=OpenPDFAfterPublish On Error GoTo 0 'If Publish is Ok the function will return the file name If Dir(Fname) <> "" Then RDB_Create_PDF = Fname End If End Function FunctionsModule.rar

شكرا اخى لاهتمامك ولكن ليس هذا هو حل المشكلة فالمتغيرات معرفة والماكرو مفعل ارجو المساعدة فى ايجاد حل اخر حاولت رفع الملف لكن دون جدوى لان حجمه كبير

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

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

مطاوب كود لمسح المدى المحدد دون حذف الصف ثم ترحيل البيانات لاعلى بحيث لا توجد صفوف فارغة بين البيانات وإعادة ترتيب التسلسل 1,2,3 Data1.xlsm

شكرا استاذ أحمد يوسف للتنويه وشكرا للاستاذ سليم فمنكم نتعلم وعفوا قد يكون سقط منى سهوا ان اضغط على علامة الاعجاب فشكرا لك على التذكير فشكرا للأستاذ سليم على حسن استجابته وتفضله بالاجابة على السؤال وشكرا لك استاذى الفاضل للتذكرة ومعذرة للسهو فلكل اساتذتى بالمنتدى كل التقدير والاحترام فمنكم نتعلم

شكرا استاذ سليم جزاك الله خيرا

السلام عليكم مطلوب كود بحيث لما اختار الشهر من القائمة المنسدلة يتم تغير أيام الشهر اتوماتيكيا مثل المثال المرفق الشهر سبتمبر تكون الأيام 1/9 الخ لوغيرت لاكتوبر تصبح الأيام 1/10 الخ مرفق ملف للتوضيح a.k2010.xlsx

السلام عليكم اليك هذا الملف لعله يفى بالمطلوب برنامج التقرير.xlsm

اليك هذا الملف لعله يفى بالمطلوب افتح ملف kawkab.rar تجد اربع ملفات kawkap,kawkap1,kawkap2,kawkap3 ضعهم داخل فولدر وافتح الملف الرئيسى kawkap واضغط على ذر import dيتم جلب البيانات من الملفات الثلاث الاخرى دون فتحها ويمكنك زيادة الملفات كما تريد بتكرار الكود وتعديل اسم الملف واسم الشيت فى الكود kawkap.rar

شكرا استاذ على حياك الله

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

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

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

السلام عليكم اخى الفاضل الحسامى اين الملف لا اجده

السلام عليكم اخى الفاضل سليم حاصبيا شكرا جزيلا على الملف أسأل الله ان يزيدك من فضله ويمن عليك علما نافعا جزاك الله كل خير

شكرا اخى سليم للمتابعة والاهتمام /الملف المرفوع غير محمى لكنه بتنسيق اكسل2016 وتم تنفيذ طلبك اعدت رفع الملف بدون الوان وبتنسيق اكسل2016 وكذلك 2003 ارجوا من حضرتك اضافة الكود وهو عند ترحيل البيانات عندما اصل للصف 21 لا يتم الترحيل ويعطينى رسالة عفوا هذا الصف الاخير من فضلك انتقل للبيان التالى وهكذا مع بقية الجداول بيان2.rar

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

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

لدى ملف اكسل مكون من صفحة بها ثلاث جداول كل جدول مكون من21 صف مطلوب كود ترحيل من الفورم للجداول الثلاثة بحيث عندما بصل الترحيل للصف 21 الاخير يتم وقف ترحيل البيانات ويعطبنى رسالة انتقل للجدول التالى مرفق الملف ارجو المساعدة ولكم فائق الاحترام https://www.4shared.com/rar/8P2J2L_lca/ss_online.html رابط مباشر https://dc703.4shared.com/download/8P2J2L_lca/ss_online.rar?tsid=20170818-154045-dda7e6b2&sbsr=68f731ffbf65840d7d2d8b40dcc38d279b5&bip=NDEuNDUuODIuMTE2&lgfp=2000