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

اللي عليه فولس يبعتها يا شباب .. عايز النسبة بتاعتي إنت عارف أي برنامج بيكون مجاني لأول 10 أفراد (هدية يعني .. فمتحسبنيش من اللي عليه فلوس !!! أخوك مزنووووووووق) تقبل وافر حبي وتقديري

أخي الكريم مختار تأكد من وجود المجلد المسمى Mokhtar في البارتشن D ثم جرب التعديل البسيط الذي يسرع من عمل الكود Sub Tarheel() Dim myFile As String, iRow As Integer myFile = "D:\Mokhtar\" & Sheets(1).Range("C8") & "-" & Sheets(1).Range("I7") & ".pdf" iRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Sheets(2).Range("A" & iRow).Value = Sheets(1).Range("H6").Value Sheets(2).Range("B" & iRow).Value = Sheets(1).Range("I7").Value Sheets(2).Range("C" & iRow).Value = Sheets(1).Range("C8").Value Sheets(2).Range("D" & iRow).Value = Sheets(1).Range("I28").Value Sheets(2).Hyperlinks.Add anchor:=Sheets(2).Range("F" & iRow), Address:=myFile, TextToDisplay:=myFile Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile MsgBox "Done", 64 Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Calculation = xlCalculationAutomatic End Sub أرجو أن يفي بالغرض ويحل المشكلة ..إذا استمرت المشكلة يرجى تحديد السطر باللون الأصفر لمعرفة مكمن الخطأ .. من خلال النقر على زر Debug

أخي الحبيب الغالي المتميز محمد الريفي بارك الله فيك وجزاك الله كل خير موضوع جميل ودالة مفيدة جداً ويمكن استخدامها في الفيجوال بيسك أيضاً تقبل وافر تقديري واحترامي

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

أخي الكريم مفتاح طلبك غير واضح ..يرجى إرفاق ملف للتوضيح تقبل تحياتي

بسم الله الرحمن الرحيم هذه المشاركة لتوثيق وتأكيد البرنامج وأنه يعمل بكفاءة جربت الملف وبالفعل يعمل بشكل مدهش وعجيب .. واللي يقول عليه فانكوش أنا معرفوش .. بارك الله فيك أخي الحبيب ياسر العربي وأقترح أن يكون البرنامج بمقابل مادي لأنه فريد من نوعه .... بسوق لك البرنامج بس ليا نسبة على المبيعات (أنا مش طماع النسبة هتكون 50% بس .. مقابل الكتماااااااااان) تقبل تحياتي

وجزيت خيراً بمثله أخي الغالي احمد فضيله (هانكوك) تقبل تحياتي

أخي الحبيب إبراهيم أبو ليلة جرب الكود التالي عله يكون المطلوب Dim Str1 As String, Str2 As String Sub CreateWorkbook() Dim WB As Workbook Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub OpenWorkbook() Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" End Sub

يعني دي غلطتي إني بحاول أساعد حقك عليا يا أبو العربي .. أعتذر عن التدخل

أمر آخر أخي الكريم ياسر العربي فيما يخص الأداة الخاصة بالتسجيل يبدو أنها تعمل على 64 بت بدون مشاكل .. ولكن يجب أولاً نسخ الملف المراد تسجيله إلى مساره المحدد في Windows فهل بالإمكان أن تقوم الأداة بنسخ الأداة المراد تسجيلها إلى المسار System32 في حالة التعامل مع 32 بت ..أو إلى المسار SysWOW64 في حالة التعامل مع 64 بت؟ أخي الكريم إبراهيم فيما يخص مشكلتك .. لا داعي لإرفاق الملف actskin4.ocx في نفس مسار المشروع .. ولكن يجب أن تقوم بنسخ الملف actskin4.ocx إلى المسار المحدد في مجلد الويندوز إما إلى System32 في حالة التعامل مع ويندوز 32 بت أو إلى SysWOW64 في حالة التعامل مع ويندوز 64 بت .. ثم تقوم بتسجيل الأداة من خلال Command Prompt .. لابد من تشغيل البرنامج كمسئول أولاً ثم قم بتنفيذ السطر التالي regsvr32 C:\Windows\system32\actskin4.ocx أو في 64 بت regsvr32 C:\Windows\SysWOW64\actskin4.ocx

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

الأخ الكريم سيف الدين يرجى تغيير اسم الظهور للغة العربية وأهلاً بك في المنتدى ونورت بين إخوانك أخي الكريم أحمد السيد سليمان إليك الملف التالي فيه شرح مبسط لكيفية التعامل مع GoalSeek بالأكواد Goal Seek YasserKhalil.rar

أخي الحبيب ياسر العربي جيت متأخر أوي .. ويبدو إن المصطبة مفيهاش مكان فاضي للعبد لله إن شاء الله عندما أنتهي من بعض المشاغل والأمور سأقوم على الفور بمتابعة الموضوع الشيق والممتع والأكثر من رائع وفقك الله لما يحب ويرضى أبي الحبيب أبو يوسف مشكور على الهدية الغالية يا غالي وربنا ما يحرمني منك ولا من هداياك القيمة .. عمل رائع وجميل لي استفسار أخي الكريم ياسر العربي بالنسبة للأداة التي تقوم بتسجيل ملفات ocx وملفات dlll لا تعمل على ويندوز 64 بت !! لأني جربتها مع ملف ولم تقوم بالتسجيل فقمت بتسجيلها بشكل يدوي فهل من طريقة لجعل الأداة تعمل على 64 بت نظراً لسهولة التعامل معها

فين الفنكوش يا عربي ؟ ولا هو فاشوش .. شوقتنا لرؤية القنبلة الموقوته

أخي الكريم هل الأسماء ستتكرر أكثر من مرة في ورقة العمل الواحدة أم أن الاسماء غير متكررة ؟ وهل هي نفس الأسماء في كل أوراق العمل ؟ يرجى مزيد من التفصيل

الأخت الفاضلة يمكن عمل التوقيع كصورة ثم إدراج الصورة .. كفكرة لمحاولة حل المشكلة وننتظر آراء إخواننا الكرام

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

الأخ الكريم محمد يرجى تغيير اسم الظهور للغة العربية جرب الكود التالي .. حدد الخلية التي بها عدة أسطر ثم نفذ الكود ..ستظهر النتائج في الصف التالي للخلية النشطة Sub SplitTextToRows() Dim SplitVals As Variant Dim TotalVals As Long SplitVals = Split(ActiveCell.Value, Chr(10)) TotalVals = UBound(SplitVals) ActiveCell.Offset(1).Resize(TotalVals + 1).Value = Application.Transpose(SplitVals) End Sub إذا لم يفي الكود الغرض ..يرجى إرفاق ملفك للإطلاع عليه .. والأفضل طرح موضوع مستقل بطلبك تقبل تحياتي

بارك الله فيك أخي الغالي أبو يوسف سأحاول التواصل معه إن شاء الله قريباً

أبي الغالي أبو يوسف هل تواصلت معه وعرفت أخباره ؟ هل ما زال عازف عن التواصل مع إخوانه المحبين له ؟ أرجو أن يكون بخير وصحة وعافية وأن يتغمده الله بعفوه ورحمته لا تنسى أن تبلغه سلامي

بارك الله فيك أبي الغالي أبو يوسف موضوع جميل و في غاية الروعة والبساطة فاصل بلا فواصل .. فإخوانك في انتظار المزيد والممتع والمفيد

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

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

أخي الكريم ميمو يرجى تغيير اسم الظهور للغة العربية قم بالإطلاع على المرفق التالي عله يفيدك في طلبك (مشابه لطلبك) CansSum UDF Function.rar

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