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

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

الاخ الحبيب خالد أعتقد أن الأشكال غير Form Buttons رغم أنك لو أحببت أن تقوم بعمل الأمر بالأكواد لوجدت تشابها في سطرا الأوامر .. ActiveSheet.Shapes.Range(Array("Flowchart: Alternate Process 1", "Oval 2")).Group ActiveSheet.Shapes.Range(Array("Button 1", "Button 2")).Group الظاهر أنه يتعامل في محرر الأكواد بشكل طبيعي لكل نوع .. جرب كل سطر على حدا ستجد أن الأمور تسير بشكل صحيح أما إذا أضفت إلى أحد السطرين نوع مختلف سيتسبب في ظهور رسالة خطأ .. أعتقد أن الأمر لا ينجح بهذا الشكل

الأخ الفاضل أنس أهلا بك في المنتدى ونورت بين إخوانك تم تعديل العنوان يرجى الإطلاع على هذا الرابط لمعرفة قواعد وتوجيهات المنتدى يرجى القراءة الجيدة مش مجرد الإطلاع http://www.officena.net/ib/index.php?s=e02fb8358a927366055b78022e8eba3d&showtopic=60147

الأخ ياسر فتحي الأخ حسام عيسى الأخ عمرو طلبة الأخ أوريون الأخ إبراهيم أبو ليلة الأخ مصطفى فرج الأخ أبو عيد الأخ جلال الجمال أبو أدهم الأخ أبو سليمان بارك الله فيكم إخواني جميعاً وجزاكم الله خير الجزاء لقد وقفت الكلمات (قلت لها Sit down بس مصممة تفضل واقفة) .. وقفت الكلمات عاجزة عن التعبير أمام ردودكم الطيبة والجميلة والرقيقة .. ولا أقول لكم إلا ما يدور بقلبي : إني أحبكم في الله .. أما بالنسبة لحلاوة الإشراف .. المفروض أن اللي يكون لي فيه هدايا .. والهدايا وصلت منكم بردودكم الجميلة وبلاش تزنقني تاني يا أبو سليمان .. أنا لو فيه حاجة مش بستخسرها فيكم وربنا اللي يعلم وإنت يا عم حماده مصدقت عشان تضم صوتك ..الحلاوة دي المفروض عليك إنت المرة دي (يلا حاجة ساقعة للموجودين ..) الأخ الجديد مصطفى فرج أهلا ومرحبا بك في المنتدى .. ومش مهم إنك عرفت المنتدى من أسبوع .. المهم هتفضل في المنتدى لأد ايه .. وهتستفيد أد ايه .. وقبل دا كله هتفيد أد ايه اللي هتقدموا هيفضل لك مش بس في الدنيا وإن شاء الله في الآخرة ، يمكن تلاقي نفسك مزنوووووووووووووق في الآخرة ودا أمر واااااااارد أكيد ، ساعتها تيجي تدور على أي حسنة ، ممكن ساعتها تلاقي دعوة بظهر الغيب واحد دعها لك تكون سبب في نجاتك في زنقتك .. أما بالنسبة للدورة اللي وضعت الرابط بتاعها دي قديمة أوي أنا نفسي نسيتها ..فيه موضوع إن شاء الله يفيدك بردو في نفس المجال بس بأسلوبي على الرابط ده http://www.officena.net/ib/index.php?s=e02fb8358a927366055b78022e8eba3d&showtopic=56941 افتح الباب ويا ريت متنساش تفتح الشباك عشان الجو بدأ يبقا حر شويتين تمنياتي للجميع بالتوفيق إن شاء الله وإن شاء الله نسمع خبر ترقيات لكل الأعضاء (المجتهدين بس) واللي مجتهدتش ميزعلش (الحق ميزعلش ..) وعلى فكرة فيه ناس أقسم بربي أولى مني في الترقية .. بس مش هقدر أقول لهم غير كلمة واحدة ..(لا تنتظر الترقية فهي مجرد وسام بسيط أما الهدية الحقيقية والوسام الحقيقي هو حب الناس ودعواتهم) تقبلوا تحياتي

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

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

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

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

الأخوة الكرام ما أهدف إليه الآن ليس المسافات فقط بين الأسماء إنما هي عملية تصحيح شاملة إن شاء الله ..كل ما في الأمر أن يتم تغذية ورقة العمل Con بالتصحيح لكل خطأ لاحظوا كيف تمت كتابة الأسماء في المرفق .. وكيف تم التغلب على هذه المشكلة .. منصــــــــــــــــــــــــــــــــور تكتب هكذا .. معظم الأسماء فيها هذه الحركة ..(هل ضايقك الأمر أخي أيمن أم أن هذا الأمر لم يضايقك) Fix Names V3.rar

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

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

الأخ الفاضل إليك أول طلبين .. وللعلم إذا قرأت التوجيهات على الرابط التالي ستعرف السبب في عدم مشاركة الأخوة في الموضوع http://www.officena.net/ib/index.php?showtopic=60147 ملحوظة : تم الغاء دمج الخلايا في ورقة الفاتورة وتفاصيل المبيعات حيث أنه يسبب مشكلة في الترحيل Sales V1.rar

جرب الكود بهذا الشكل Sub Save_as_pdf() Dim FSO As Object Dim s(1) As String Dim sNewFilePath As String Set FSO = CreateObject("Scripting.FileSystemObject") s(0) = "C:\Users\" & Environ("UserName") & "\Desktop\" & ThisWorkbook.Name If FSO.FileExists(ThisWorkbook.FullName) Then '//Change Excel Extension to PDF extension in FilePath s(1) = FSO.GetExtensionName(s(0)) If s(1) <> "" Then s(1) = "." & s(1) sNewFilePath = Replace(s(0), s(1), ".pdf") '//Export to PDF with new File Path ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=sNewFilePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Else '//Error: file path not found MsgBox "Error: this workbook may be unsaved. Please save and try again." End If Set FSO = Nothing End Sub

مفيش متبرعين ؟!!!!!!!!

بارك الله فيك أخي الغالي عمرو إليك الملف بتنسيق 2003 الأسماء مقسمة 2003.rar

يمكنكم التعامل مع هذا الملف للتصحيح آخر نسخة من ملف التصحيح .. Fix Names V2.rar

الأخ الحبيب أيمن اعذرني يبدو أنني نسيت إرفاق ملف التقسيم في المشاركة رقم 14 لقد قمت بتقسيم الأسماء إلى عدة أوراق عمل لكي يتبرع الأعضاء بتناول الأخطاء وتصحيحها كما أسلفت .. بالنسبة لمشاركتك رقم 16 ..طبيعي أن يكون هناك المزيد من الأخطاء ..فأنا قمت بالتعامل مع 300 اسم فقط وما زال هناك الكثير من الأسماء ومن ثم الكثير من الأخطاء .. بنظرة ثاقبة يعتبر وصلنا لحل ولكن يحتاج لمجهود لوضع الأخطاء في عمود وتصحيحها في عمود آخر ، يعني يعتبر الموضوع منتهي من هذه الناحية ولكن لكثرة الأسماء اقترجت أن يتبرع كل عضو بتصحيح ورقة عمل في الملف المرفق ، وقد بدأت حملة التبرع وصححت الأسماء في ورقة العمل 001 نرجو من الأعضاء المساهمة في الموضوع ليكتمل في النهاية بفضل الله ثم بفضلكم تقبلوا تحياتي الأسماء مقسمة.rar

جرب الملف التالي ...تم الانتهاء بحمد الله من تصحيح 300 اسم (الورقة التي تبرعت بها) في ربع ساعة تقريباً إليك الملف التالي ..تم وضع الأسماء في العمود A وبالنقر على زر Process سيتم تصحيح الأسماء وفقاً لورقة العمل الشروط والأسماء الصحيحة إن شاء الله في العمود D أتمنى أن تكون قد وصلت الفكرة .. وأعتقد بعد هذا الكم من الأسماء يمكن أن يكون الملف مرجع لتصحيح الأسماء :dance1: Fix Names.rar

وعشان نبدأ تنفيذ الفكرة .. أنا قسمت الأسماء لـ 26 شيت .. وإن شاء الله هاخد الشيت رقم 001 ... نشوف مين المتبرع الثاني (العمل هيكون كالآتي ... بصرف النظر عن الأسماء كل المطلوب من الأعضاء المتبرعين إنهم يستخرجوا الأخطاء الموجودة ويصححوها يعني مثلا في العمود الأول هيكتب آية وفي العمو الثاني العمود B هيكتب تصحيح الاسم ايه أو حسب ما سيتم الاتفاق عليه

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

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

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

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

استخدم جملة WorksheetFunction والدالة Round التي تحقق الهدف ... حاول أن تستفيد من الدرس الذي تم شرحه مسبقاً ..لكي تتعلم

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