ياسر خليل أبو البراء

بارك الله فيك أخي الحبيب الغالي صلاح أصلح الله أمرك وأمورنا وجعلني وإياك من الصالحين ... جزيت خيراً على استجابتك لمطلبي تقبل تحياتي

أخي الحبيب وائل عوداً حميداً وبارك الله فيك على الموضوع ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء

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

أخي الحبيب جعفر يبدو أنني سأكون مصدر إزعاج لك .. قمت بالتعديل على API Declarations لكي يعمل الكود على الويندوز 64 بت وعند التنفيذ ظهرت لي رسالة File not found : olepro32.dll أعمل على ويندوز 10 64 بت ...

أبي الحبيب الغالي أبو يوسف بارك الله فيك على مجهودك الرائع .. وأتمنى أن يقوم أحد المحترفين في مجال تحويل المادة العلمية الموجودة إلى كتاب إلكتروني يجمع كل ما ييسر الله به ليكون مرجعاً لكل من أراد أن يبدأ مشوار التعلم ويكون نبراساً نهتدي به في هذا العلم تقبل وافر تقديري واحترامي

أخي الكريم ابو جنى يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة بالمنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل جرب الكود التالي عله يفي بالغرض Sub PDF() Dim MyFile As String, lRow As Long Application.ScreenUpdating = False With Sheet4 .Visible = True MyFile = "D:\NEW\" & Sheets(2).Range("F3") & "-" & Sheets(2).Range("F2") & ".pdf" lRow = Sheets(4).Range("G" & Rows.Count).End(xlUp).Row + 1 .Range("A1:Z12").Value = Sheets(2).Range("A1:Z12").Value .Range("C14:U22").Value = Sheets(2).Range("AC1:AU9").Value .Range("A26:A177").Value = Sheets(1).Range("A3:A154").Value .Range("C26:C177").Value = Sheets(1).Range("B3:B154").Value .Range("E26:E177").Value = Sheets(1).Range("C3:C154").Value .Range("F26:F177").Value = Sheets(1).Range("D3:D154").Value .Range("G26:G177").Value = Sheets(1).Range("E3:E154").Value .Range("I26:I177").Value = Sheets(1).Range("H3:H154").Value .Range("J25:J177").Value = Sheets(1).Range("L2:L154").Value .Range("K25:K177").Value = Sheets(1).Range("M2:M154").Value .Range("L25:L177").Value = Sheets(1).Range("N2:N154").Value .Range("M25:M177").Value = Sheets(1).Range("O2:O154").Value .Range("N25:N177").Value = Sheets(1).Range("P2:P154").Value .Range("O25:O177").Value = Sheets(1).Range("Q2:Q154").Value .Range("P25:P26").Value = Sheets(1).Range("R2:R3").Value .Range("Q25:Q26").Value = Sheets(1).Range("S2:S3").Value .Range("F23").Value = Sheets(1).Range("F1").Value .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile .Visible = xlSheetHidden End With Application.ScreenUpdating = True End Sub

أخي الكريم صلاح في الخلية C2 تركتها فارغة بدون ترقيم أليس من المفترض أن يتم الترقيم في هذه الخلية بالرقم 1 كبداية لترقيم الصرف النتائج المتوقعة لابد أن تكون منطقية .. أو يمكنك توضيح تلك النقطة

أخي الكريم ارفق ملف للعمل عليه من قبل الأخوة الأعضاء

أخي الكريم جعفر ..بارك الله فيك نوع الخطأ .. Compile error Type mismatch أنا بستخدم الآن ويندوز 10 64 بت .. غيرت في الكود بما يتلائم مع نظام الـ 64 ولكن يظهر الخطأ في المكان الذي أشرت إليه

أخي الكريم جرب الكود التالي Sub AddCheckboxes() Dim Cell As Long, LRow As Long Dim chkbx As CheckBox Dim MyLeft As Single, MyTop As Single, MyHeight As Single, MyWidth As Single Application.ScreenUpdating = False LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For Cell = 2 To LRow If Cells(Cell, "A").Value <> "" Then MyLeft = Cells(Cell, "G").Left MyTop = Cells(Cell, "G").Top MyHeight = Cells(Cell, "G").Height MyWidth = Cells(Cell, "G").Width Cells(Cell, "F").NumberFormat = ";;;""****""" With ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight) .Caption = "" .Value = xlOff .Display3DShading = False .OnAction = "CheckBox_Click" End With End If Next Cell Application.ScreenUpdating = True End Sub Sub RemoveCheckboxes() ActiveSheet.CheckBoxes.Delete End Sub Private Sub CheckBox_Click() With ActiveSheet.Shapes(Application.Caller) .TopLeftCell.EntireRow.Range("F1").NumberFormat = IIf(.ControlFormat.Value = xlOn, "general", ";;;""*****""") End With End Sub

أخي الغالي جعفر نفس الخطأ في نفس المكان يظهر معي ..

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

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

أخي الحبيب الزباري عوداً حميداً ونتمنى تواجدك الدائم معنا بالمنتدى .. موضوع رائع ومفيد جداً تسلم الأيادي

أفكار متميزة دائماً أخي الحبيب جعفر .. واصل بلا فواصل .. ونحن على سلمك سائرين

أخي الغالي حسام راجع المشاركة الأولى فيها درس الليبل Label موجود إن شاء الله

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

أخي الكريم الدالة Count تتعامل مع الأرقام أما الدالة Counta تتعامل مع الأرقام والحروف

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

وعليكم السلام أبي الغالي أبو يوسف كل عام وأنت بخير وكل عام وأنت إلى الله أقرب وعلى طاعته أدوم جزيت خيراً على شعورك الطيب النبيل تجاهي وإني والله في غيابي أشعر دائماً بأن جزءاً مني مفقود ، والحمد لله أنا بخير الآن وسأحاول التواجد في المنتدى قدر استطاعتي تقبل الله منا ومنكم

أخي الكريم يمكنك التغاضي عن تعريف المتغيرات بإزالة السطر الاول في الكود Option Explicit أو تعريف المتغيرات واحداً تلو الآخر ..

أخي وحبيبي في الله أبو يوسف جزيت خير الجزاء على الجهد المبذول في الموضوع وإن شاء الله يكون في ميزان حسناتك يوم القيامة أقترح تجميع كل المرفقات في مشاركة واحدة حتى يسهل على من حضر الموضوع متأخراً أن يلملم المرفقات مرة واحدة بلا جهد وبلا مشقة تقبل الله منا ومنكم صالح الأعمال وكل عام وأنتم بخير

أخي الكريم محمد الألفي إليك الملف التالي عله يكون المطلوب راجع المخرجات بشكل جيد ترحيل حسب الترتيب التصاعدى للتاريخ بشرط الفتره المحدده .rar

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

أخي الكريم كل عام وأنت بخير جرب تغير الفاصلة الموجودة السطر الأصفر اللي بين الأقواس من فاصلة عادية لفاصلة منقوطة ...