محمد طاهر عرفه

هذا هو الملف كما يظهر لدي ، طبعا مازالت الحقول تحتاج لضبط و لكن العربي يظهر سليم قد يكون الامر مشكلة فى اعدادت الويندوز جرب تغيير بعض الامور فى الاعدادت الاقليمية بلوحة التحكم Control pannel ما نسخة الويندوز و الاوفيس لديك

لماذا الخاص أخي ياسر ؟ أرجو التوضيح الأخ وليد وجدت هذا الكود، و قام بتصدير السطر الثاني في ملفك بنجاح الي ملف VCF مرفق الكارت الخاص بالسجل الثاني الذي تم تصديره ، و العربية تظهر بصورة سليمة OutputVCF.rar و يمكن تعديله ليصدر السجلات كلها اذا كان هذا هو المطلوب Sub Create_VCF() 'Open a File in Specific Path in Output or Append mode Dim FileNum As Integer Dim iRow As Double iRow = 2 FileNum = FreeFile OutFilePath = ThisWorkbook.Path & "\OutputVCF.VCF" Open OutFilePath For Output As FileNum 'Loop through Excel Sheet each row and write it to VCF File While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> "" FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2)) PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3)) Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:3.0" Print #FileNum, "N:" & FName & ";" & LName & ";;;" Print #FileNum, "FN:" & FName & " " & LName Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum Print #FileNum, "END:VCARD" iRow = iRow + 1 Wend 'Close the File Close #FileNum MsgBox "Contacts Converted to Saved To: " & OutFilePath End Sub و الملف شامل الكود الاسماء.xls

منقول مقارنة ذكية و واقعية تبين الفرق بين الشخص الإيجابي والسلبي وهو تحليل منطقي لشخصية كل منهما فاحرص ان تعدل شخصيتك لتكون إيجابيا. 😊الإيجابي يفكر في الحل. 😞والسلبي يفكر في المشكلة. ☺الإيجابي لا تنضب أفكاره. 😞والسلبي لا تنضب أعذاره. ☺الإيجابي يهتم بإيجابيات الآخرين ومزاياهم. 😞والسلبي تشغله عيوب الناس وسلبياتهم. 😊الإيجابي يتذكرويحفظ للأخرين أعمالهم الطيبه. 😒والسلبي يتذكر ويحفظ للأخرين إسآئاتهم فقط. 😉الإيجابي يعطي للآخرين أعذارهم عند حصول خطأ منهم ويسامحهم ولا يلومهم. 😒والسلبي يعتقد أنهم أسأؤا عمدا وبنية سيئه ويحقد عليهم. 😊الإيجابي يسارع إلى الاعتذار للآخرين عند حصول خطأ منه. 😔والسلبي يتأخر في الاعتذار وقد لا يعتذر اعتقادا منه أن في ذلك تنقيصا من شخصيته. ☺الإيجابي دائم الإبتسامه. 😞والسلبي دائم العبوس. 😊الإيجابي يساعد الآخرين. 😞والسلبي يتوقع المساعدة من الآخرين. 😊الإيجابي يرى حلا لكل مشكلة. 😞والسلبي يرى مشكلة في كل حل. 😉الإيجابي الحل صعب لكنه ممكن. 😔والسلبي الحل ممكن لكنة صعب. 😊الإيجابي يعتبر الإنجاز التزاما يلبيه. 😞والسلبي لايرى في الإنجاز أكثر من وعد يعطيه. ☺الإيجابي لديه أحلام يحققها. 😒والسلبي لديه أوهام وأضغاث أحلام يبددها. ☺الإيجابي (عامل الناس كما تحب أن يعاملوك). 😞والسلبي (هاجم الناس قبل أن يهاجموك). 😉الإيجابي يرى في العمل أمل. 😒والسلبي يرى في العمل ألم. ☺الإيجابي ينظر إلى المستقبل ويتطلع إلى ما هو ممكن. 😞والسلبي ينظر إلى الماضي ويتطلع إلى ما هو مستحيل. 😊الإيجابي يناقش بقوة وبلغة لطيفة. 😞والسلبي يناقش بضعف وبلغة فظة. 😉الإيجابي يتمسك بالقيم ويتنازل عن الصغائر. 😒والسلبي يدقق و يتشبث بالصغائر ويتنازل عن القيم. 😊الإيجابي يصنع الأحداث. 😞والسلبي تصنعه الأحداث. 😊الإيجابي دائماً يشكر. 😞والسلبي دائماً يشتكي ☺الإيجابي يقرأ هذه الرساله بأهتمام ثم يفكر كيف جديا عما يجي ان يبدأ في عمله من آلان. هل ستبحث عن موضوع تستطيع أن تتفاعل فيه . ام ستستمر في التصفح ؟ 🙄

اعتقد هذا مناسب جدا و لكن الكمية هنا تعبر عن المتاح ام الكمية التي ستضاف الى الفاتورة الحالية ـ اعتقد هناك حاجة للاثنان

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

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

السلام عليكم بالتوفيق باذن الله تعالى و مشكورين على جهودكم لست خبيرا بالمحاسبة و المخزون ،و لكن اري ان المتوسط لن يكون دقيقا و أقترج ان الافضل و ان كان تنفيذه أصعب هو ما يلي: ان لا يتم جمع الصنفين اذا احتلف اي من سعر البيع او الشراء من حيث القيمة انما يتعرف التطبيق على ان هناك 50 متبقي بالسعر القديم و 200 بالسعر الجديد و طبعا المجموع المتاح من حيث العدد 250 و لكن قيمة المخزون 50 * السعر القديم + 100 فى السعر الجديد و عند البيع يتم البيع بترتيب اقدمية التوريد فى حالة تماثل المواصفقات او بدءا بالصلاحية الاقل اذا كانت الاصناف لها صلاحية بصرف النظر عن تاريخ التوريد ما دامت الصلاحية سارية الي حد مقبول اذكر منذ يومين ذهبت لشراء دواء فاخبرتني المسؤلة بان هناك ثلاثة اشرطة من الدفعة القديمة عليها صرفها اولا لأن صلاحيتها اقرب ، ثم تستكمل باقي الكمية من الدفعة الجديدة و اعتقد ان هذه ممارسة جيدة و طبعا قد يختلف السعر ، و فى نفس الوقت قد يسير لغطاً مع المشتري لماذا هناك سعران ، و عليه يمكن حساب متوسط السعر للكمية المباعة لكل فاتورة علي حدة و اظهاره فى الفاتورة ، كما يمكن تفعيل اختيار عدد معين من كل كمية من الكميتان الاصلية و الجديدة لاضافة مرونة اكبر ، فربما بعض الاصناف تباع كعبوات متكاملة او يرفض المشتري ما قاربت صلاحيته على الانتهاء. اعتقد اني اضفت الكثير من اللخبطة التي اراها و انا اكتب منطقية كمشتري و ليس كمن يدير الامر ، و ربما تتعارض مع اصول البيع و الشراء و المخازن ، لذا ساتوقف هنا و اعانكم الله على قراءة ما سبق و سامحوني على ابداء الرٍأي الغير متخصص

مقال اعجبني المصدر اكتشف قاعدة 10/90 ربما ستغير لك حياتك.. على الأقل ردود أفعالك تجاه مواقف معينة ماهي هذه القاعدة ؟ عشرة في المائة فقط من الحياة تتشكل من خلال ما يحدث لنا، و الـتسعون في المائة من الحياة يتم تحديدها من خلال ردود أفعالنا . ماذايعني هذا؟ معنى هذا الكلام أننا في الواقع ليس لدينا القدرة على السيطرة علىال 10% مما يحدث لنا , فنحن لا نستطيع منع السيارة من أن تتعطل أو الطائرة منالوصول متأخرة عن موعدها.. مما سيؤدي ذلك إلى إفساد برنامجنا بالكامل.. أو سائق ماقطع علينا حركة المرور أو السير ، فنحن في الواقع ليس لدينا القدرة على التحكمبـ10% و لكن الوضع مختلف مع الـ90 % ، فنحن من يقرر كيف يمكن أن تكون الـ90 % كيف ذلك ؟؟ عن طريق ردود أفعالنا نحن لا نستطيع التحكم في إشارةالمرور الحمراء ، و لكن نستطيع السيطرة على ردة فعلنا ، لا تدع الآخرون يجعلونكتتصرف بحماقة، أنت تستطيع أن تقرر ماهي ردة فعلكالمناسبة دعونا نستخدم هذا المثال كنت تتناول طعامالإفطار مع عائلتك و فجأة أسقطت ابنتك الصغيرة فنجان القهوة على قميص عملك. لم يكنلك دور فيما حدث هنا ولكن ماسوف يحدث لاحقا سيتقرر حسب ردة فعلك بدأت بالصراخو الشتم و قمت بتوبيخ ابنتك.. فأخذت الطفلة في البكاء ، ثم استدرت إلى زوجتك موبخاإياها لوضعها الفنجان على حافة الطاولة ، و بعد مشادة لفظيه قصيرة بينكما، اندفعتإلى الطابق العلوي و قمت بتغيير قميصك و من ثم عدت إلى الطابق السفلي ، فوجد أنابنتك قد انشغلت بالبكاء عن إنهاء فطورها و الاستعداد للمدرسة ، و نتيجة لذلك فاتهاباص المدرسة و زوجتك كان لابد أن تغادر لعملهااضطررت إلى إيصال ابنتكبسيارتك الخاصة إلى المدرسة ، و بما أنك متأخر قدت سيارتك بسرعة 40 ميل في الساعةمن أصل 30 ميل في الساعة كحد أقصى.. و بعد 15 دقيقة تأخير و دفع مخالفة مروريةبقيمة 60 دولار وصلت إلى المدرسة.. ركضت ابنتك إلى مبنى المدرسة دون أن تقول لك معالسلامة و بعد و صولك إلى المكتب متأخراً 20 دقيقة ، وجدت أنك قد نسيتحقيبتك ها هو يومك بدأ بصورة سيئة و استمر من سيء إلى أسوء.. بعد عودتك إلىالمنزل تجد توترا في العلاقة بينك وبين زوجتك وابنتك لماذا ؟؟ بسبب ردود أفعالك منذ الصباح لماذا كان يومك سيئا؟؟ أ) هل هو بسبب القهوة ؟؟ ب) هل هو بسبب إبنتك ؟؟ ج ) هل هو رجلالشرطة ؟ د )هل أنت سببت لنفسك ذلك؟ الإجابة هي : د لم يكن لك دخلأو سيطرة على حادثة الفنجان ولكن ردة فعلك في الخمس ثواني التالية هي من تسببت في إفساد يومك هنا هو ما كان ممكن وينبغي أن يحدث : فنجان القهوة وقع عليك، و بدأت ابنتك بالبكاء.. و قلت لها بكل لطف: لابأس يا عزيزتي.. و لكن كوني في المرة القادمة أكثر حذراً و انتباه تتناولالمنشفة وتسرع إلى الطابق العلوي.. تستبدل قميصك وتتناول حقيبة أوراقك وثم تعود إلىالطابق السفلي في الوقت المحدد لترى ابنتك من النافذة و هي تصعد إلى حافلة المدرسةملوحة بيدها لوداعك تصل إلى عملك مبكراً بـ 5 دقائق و تحيي زملائك بكل مرح وابتهاج.. ويبدي رئيسك تعليقا حول يومك الرائع لاحظت الفرق؟ يوجد سيناريوهانمختلفان لهما نفس البداية ،ولكن نهاية مختلفة لماذا ؟؟ بسبب ردةفعلك هنا بعض الطرق لتطبيق قاعدة ال 10/90 إذا فالأحد الأشخاص: بعض الأشياء السيئة عنك ، فلا تكن مثل الأسفنج.. بل دع الهجوم يسيلعليك مثل الماء على الزجاج ...و لا تسمح للتعليقات السلبية أن تؤثر عليك فردةالفعل الإيجابية لن تفسد يومك ، بينما ردة الفعل السلبية قد تؤدي إلى فقدانكللأصدقاء أو فصلك من العمل و تكون في حالة من العصبية و الإرهاق ..... إلخ كيفتكون ردة فعلك إذا قطع عليك أحد الأشخاص حركة السير ؟؟ هل تفقد أعصابك ؟؟ هل تضربمقود السيارة بقوة حانقا. أحد أصدقائي أسقط مقود السيارة هل تشتم؟؟ هل يرتفع ضغطدمك عاليا؟؟.. من سيهتم إذا وصلت إلى العمل متأخراً بعشر ثواني ؟؟ لماذا تسمحللسيارات بإفساد قيادتك ، تذكر قاعدة الـ 10/90 و لا تقلق لما سيحدث لكَ بعدذلك قيل لك بأنك فقدت وظيفتكَ ... لماذا الغضب و الانزعاج و الأرق ؟؟؟ .استغلطاقة القلق ووقتك في إيجاد وظيفة أخرى تأخر إقلاع الطائرة ، وأفسد ذلك برنامجكَاليومي.. لماذا تصب جام غضبكَ و إحباطكَ على مضيفة الطائرة ؟؟ هي ليس لديهاالقدرة على التحكم في موعد وصول الطائرة استغل وقتكَ في الدراسة أو التعرف علىمسافر آخر.. التوتر لن ينتج عنه إلا تعقيد أوضاعك وجعلها إلىالأسوأ وفي النهاية طبق قاعدة 10/90 وستدهشكالنتائج , لن تخسر شيئا إن حاولت قاعدة 10/90 مذهلة والقليل من الناس من يعرفهاويطبقها في حياته والنتيجة ؟الملايين من الناس تعاني من إرهاق وإجهاد لامبرر له ومحاكم ومشاكل في القلب إذن علينا جميعاً أن نفهم ونطبق هذهالقاعدة حياتك عندها ستتغير المصدر

جربت موضوع تصدير بيانات الريجيستري المشار اليها من اوتلوك 2013 و استيرادها فى اوتلوك 2016 ، و لم اجد اي تعريفات للبريد كما توقعت و بحثت عن السبب فوجدت التالي فقد قمت بالتصدير من HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Profiles\Outlook و هو مسار الاوتلوك 2013 فى الجهاز الاول و تم الاستيراد على نفس المسار فى الجهاز الثاني و ليس كما توقعت فى المسار الخاص بالاوتلوك 2016 المحمل على الجهاز الي HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Profiles\Outlook و لهذا لم سظهر شيئ فى اعدادت الاوتلوك 2016 على الجهاز الثاني فكرت فى سجب البيانات يدويا بين المجلدين ، و لكن تراجعت عن ذلك خشية جدوث مشاكل الخلاصة ان هذه الطريقة قد تنفع اذا كان الجهازان يحملان نفس اصدار الاوفيس ـ فاذا اردت تجربة ذلك فيجب ان يكون الجهازان بنفس الاصدار لتجنب المشاكل

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

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

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

السلام عليكم يمكنك استخدام خاصية Task Scheduler في ويندزو 10 و اختيار التوقيت و الملف ز لاخيار الملف و فى الاصدارات السابقة اعتقد Start All Programs Accessoris System Tools Task Scheduler

السلام عليكم فى المثال السابق ، كان يتم قراءة القيمة بعد الانتقال و ليس فبله جرب التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim CellValue As Long Dim SizeCellValue As String If Target.Column = 1 Then CellValue = ActiveCell.Offset(-1, 0).Value 'MsgBox CellValue If CellValue < 20 Then ActiveCell.Offset(-1, 1).Activate SendKeys "%{DOWN}", True End If End If If Target.Column = 2 Then SizeCellValue = ActiveCell.Value CellValue = ActiveCell.Offset(0, -1).Value 'MsgBox CellValue & "-" & SizeCellValue If CellValue < 20 Then If Len(SizeCellValue) <> 3 Then SendKeys "%{DOWN}", True End If End If End If End Sub FilterListbox.xlsm

جرب التالي من لوحة التحكم Control Pannel Region Adminstrative Change System Local و اختار عربي لاحدى الدول المتاحة

السلام عليكم النقطة الاولي ممكنة و لكن تحتاج لبعض الوقت للتجارب ، و ساحاول فيها بعد عدة ايام باذن الله ، و الثانية ايضا ممكنة و باذن الله احاول اضافتهما الي المثال قريبا

مقال اعجبني من هناhttps://www.facebook.com/arageek/posts/1784483918289180

السلام عليكم أولا أشكرك على اقتراحك و تفاعلك و احب ان اوضح ان النسخة الحالية من المنتدى متوافقة تماما م الهاتف اي يمكن التفاعل والرد ، بل و الادارة من خلال الهاتف يمكن فتح الموقع من اي متصفح على الهاتف و حفظ الصفحة كايقونة مستقلة من جوجل اضغط على الثلاث نقاط اعلي يمين الصفحة فى الاندرويد ثم Add to homescreem و من الفايرفوكس Page Add Page Shorcut فتظهر الايفونة كانها تطبيق فى الموبايل و تفتح المنتدى مباشرة

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

صراحة ليس لدي سجل بالتوافق للنسخ المختلفة و لكن مع نسخ الاوفيس القديمة يمكن استخدام الاصدرات الاقدم من الملف عند التجميل يوجد فى المكتبة 5 اصدارات من البرنامج مرفق اولها لانه اقدم الاصدارات ليعمل مع النسخ المختلفة و لكنه قبل اضافة النموذج و المزيد من الخيارات و هو يفي بالمطلوب اذا عمل معك DataCollectorWithSheet.xlsm قم بكتابة المسار فى الخلية J7 و قم بكتابة المجال المطلوب استخراجه فى الخلية J11 ثم اضغط على زر استخراج البيانات و يتم الاستخارج من ورقة العمل الاولي من كل ملف اما اذا اردت تحديد ورقة عمل بعينها فاكتب اسمها فى الخلية J18 مع ملاجظة انه مع تقدم الاصدارات تم اضافة خصائص مختلفة جديدة كما هو فى وصف الملف بالمكتبة

و لتسجيل القيم فى خلايا مستقلة نستبدل الجزء الاخير من الكود بالتالي For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 ActiveCell.Value = mymatrix(1, i) ActiveCell.Offset(0, 1).Value = mymatrix(2, j) ActiveCell.Offset(0, 2).Value = mymatrix(3, k) ActiveCell.Offset(1, 0).Activate Next k Next j Next i مرفق الملف به الكودان Conmbinations.xlsm

شغل الكود التالي للحصول على كافة الاحتمالات الممكنة للدمج بين القيم Sub GetCombinations() Dim i As Long, j As Long, k As Long Dim mymatrix(3, 3) As String mymatrix(1, 1) = "A" mymatrix(1, 2) = "B" mymatrix(1, 3) = "C" mymatrix(2, 1) = "1" mymatrix(2, 2) = "2" mymatrix(2, 3) = "3" mymatrix(3, 1) = "ZZ" mymatrix(3, 2) = "XX" mymatrix(3, 3) = "VV" For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 ActiveCell.Value = mymatrix(1, i) & mymatrix(2, j) & mymatrix(3, k) ActiveCell.Offset(1, 0).Select Next k Next j Next i End Sub

السلام عليكم عذا لم انتبه لردك مبدأيا لتصدير كافة اوراق العمل و ليس الاولي فقط الكود بالفعل يحتاج سطر اضافي و هو السطر الثاني التالي هنا ، و اضفه بعد السطر الاول الموضح و باذن الله يتم حفظ كافة اوراق العمل دون تكرار For Each wsh In wbk.Worksheets wsh.Activate بالنسبة لاختيار تصدير ال pdf ام لا يمكن عمل ذلك عن طريق نموذج او رسالة تجيب عليها بنعم او لا و يمكنك عمل نسخة من الكود للاستبدال فقط دون تصدير الpdf وذلك بحذف الحزء التالي ShFile = strPath & Left(wbk.Name, Len(wbk.Name) - 4) & Sheetcounter & "-" & wsh.Name ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ShFile _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False او تفعيل رسالة للسؤال هل تريد الطباعة ام لا كما يلي كابسط الطرق اولا عرف المتغير PrintOrnot مع تعريفات المتغيرات فى بداية الكود ثم السؤال هل تريد الطباعة ام لا Dim PrintOrnot As String ' to choose print pdf or not PrintOrnot = UCase(InputBox("Print PDFs ??? ", "Do you want to print ?", "yes")) ثم اضف شرط قبل الطباعة بناء على قيمة المتغير السابق و ستم الطباعة فقط فى حال الاجابة على السؤال السابق ب yes If PrintOrnot = "YES" Then ShFile = strPath & Left(wbk.Name, Len(wbk.Name) - 4) & Sheetcounter & "-" & wsh.Name ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ShFile _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End If مرفق الملف بعد التعديل Replacer -5.xlsm

السلام عليكم الملف لدي يعمل بطريقة مختلفة و لا يتم الانتقال راسيا و انما يتنقل للخلية المجاورة و يفتحها للاختيار ربما الفرق فى هذا الخيار من خيارات الاكسيل المتقدمة After Pressing Enter Move Selection و الحل البديل غير قيمة ال offset في الكود ActiveCell.Offset(-1, 1).Activate علي سبيل المثال تعني الانتقال خلية واحدة للاعلي ثم خلية لليمين حيث ان الاعدادات لدي عند ضعط ادخال يتم الانتقال الي خلية واحدة الي الاسفل لذا اعود خطوة واحدة للاعلى (-1) ثم اخري لليمين (1) و يمكنك تعديل الارقام بحسب الاعدادت لديك

السلام عليكم الترقبات نوعان نوع آلي يتم دون تدخل بحسب عدد المشاركات ايا كان محتواها ، اي انه يعبر عن التواجد و درجة التفاعل ، و الترقية التالي فى هذا المسار عند 100 مشاركة الي عضو فضي ثم ذهبي ثم ماسي و النوع الاخر بالترشيح بناء على فعالية التفاعل مع أسئلة الاخرين بتقديم حلول او شرح و هذا المسار و الترقية فيه الي عضو متميز ثم خبير معتمد