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

أخي الكريم محمد أبو صهيب بارك الله فيك وجزاك الله كل خير هلا وضعت الكود بين أقواس الكود ليستطيع الأخوة نسخ الكود وتجربته؟! أخي الكريم إبراهيم أبو ليلة حاول لما تضع مثال مرفق أن تسمي عناوين البيانات بعناوين أخرى غير A B C حيث أن الأمر مربك عند شرح المطلوب ..فقد يختلط الأمر على الأعضاء بين العمود B والعنوان المسمى B ؟..!! أرجو توضيح المسألة بشيء من التفصيل حيث اطلعت على الملف ولم أفهم الكثير .. هل عملية الطرح ستكون للخلايا الظاهرة فقط ؟؟ وماذا عن الخلايا الغير ظاهرة نتيحة عملية الفلترة؟ تقبلوا تحياتي

جزاكم الله خيراً أخي وحبيبي في الله أبو يوسف بارك الله فيك وجعل عملك في ميزان حسناتك يوم القيامة أما بالنسبة للنقد فلن أستطيع المشاركة فيه حيث أجهل طبيعة الملف من حيث أنني أجهل طبيعة العمل ولكن لا تقلق ما أكثر النقاد في منتدانا - لا أقصد الإهانة - بل أقصد أن أشكر الله على تلك النعمة؟ تقبل تحياتي

ربنا يبارك فيك ويجازيك خير أخي وحبيبي في الله ياسر العربي صراحة أنا أطمح في عمل إبداعي منقطع النظير عن طريق إنشاء الكتب الإلكترونية .. أريد احترافية في العمل بحيث يظل العمل منارة لكل سائل في الوطن العربي .. نريد أن نرتقي وإن شاء الله نتكاتف جميعاً من أجل تحقيق هذا الهدف المنشود لي سؤال أثناء بحثي وجدت برنامج اسمه Sigil هل لديك فكرة كيف يمكن التعامل مع هذا البرنامج؟ سؤال آخر : هل يمكن عمل موضوع على المنتدى وتصدير الصفحة لصفحة html ولكن يكون ملف واحد منفرد لا مجموعة ملفات؟ تقبل وافر تقديري واحترامي

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

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

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

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

أخي الكريم يرجى تغيير اسم الظهور للغة العربية شاهد الخطوات في الملف التالي Watch.rar

صحيح العربي صناع الثقة تسلم على الهدايا الجميلة دي .. بس ممكن نركز على برنامج واحد وليكن الأول .. رغم إن التاني شكله اشيك لكن البرنامج الأول بحس إنه عملي أكتر .. أنا عايز كتاب إلكتروني يكون فيه مرونة وفيه فهرس ممكن يتعمل ويدعم النسخ منه .. من الآخر عايز أعمل كتاب تجميعة أكواد .. البرنامج الأول أعتقد هيكون أقرب لإنجاز العمل .. بس الشرح الموجود في الفيديو الأول قاصر على الصور ..جربت الخطوات وتمام التمام ..تمام تمام ؟؟ بس أنا كنت عايز أعرف إزاي بتتعمل صفحات الـ html .. عارف إنه موضوع ممكن يكون صعب بس نحاول فيه ولو البدايات فقط فأكيد دلوك مش فاضي إن شاء الله ..اتعودنا منك على كدا لو الموضوع طويل ومحتاج شغل يا ريت تخصص موضوع منفصل وتشرح فيه بالتفصيل الممل وبلاش شغل الفيديوهات ..عايزين الشرح منك إنت عشان نستفيد اكتر تقبل وافر تقديري واحترامي VBE Basics Officena.rar

Je ne sais pas parler français tres bien

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

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

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

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

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

جاري دي فكرتني بمثل كنت أبدعته زمان .. المثل بيقول : كودك حصانك واخدك وجاري .. يا يظبط الملف يا ترميه في المجاري وعجبي تقبل تحياتي أخي الفاضل محمد علي (شكلك لسه كتكوت صغير !! عندك كام سنة)

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

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

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

أخي الكريم استبدل الجزء الأخير في الكود في الفورم المسمى Account بالكود عاليه

أخي الكريم اسخدم كلمة ClearContents بدلاً من ClearFormats

أخي الكريم محمد علي يرجى إزالة الرقم 7 في نهاية اللقب من اسم الظهور الخاص بك .. فضلاً لا أمراً جرب الكود التالي عله يفي بالغرض Sub SortData() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row Range("B3:E" & LR).Sort Key1:=Range("B3:B" & LR), Order1:=xlAscending, Header:=xlNo End Sub تقبل تحياتي Sort Data YasserKhalil.rar

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

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

أخي الكريم أبو خالد يرجى تغيير اسم الظهور للغة العربية إليك حل بالأكواد إثراءً للموضوع Sub Test() Dim I As Long, FirstName As String, FatherName As String, Str As String For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row FirstName = Kh_Names(Cells(I, 1), 1) FatherName = Cells(I, 2) Str = Mid(Cells(I, 1), Len(FirstName) + 1) Cells(I, 4).Value = FirstName & " " & FatherName & Str Next I End Sub Function Kh_Names(FullName As String, ParamArray iNdex1()) As String Dim I As Integer Dim Kh_Split, MyArray, Ar Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray RE = Replace(Ar, " ", "^") SN = Replace(SN, Ar, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & Kh_Split(iNdex1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function تقبل تحياتي