ibn_egypt

أخى الفاضل وصلت المعلومة .. جرب انسخ هذا الكود والصقه في أي موديول Sub openobject() Dim oEmbFile As Object Application.DisplayAlerts = False Set oEmbFile = ThisWorkbook.Sheets(1).OLEObjects("Object 14") oEmbFile.Verb Verb:=xlPrimary Set oEmbFile = Nothing Application.DisplayAlerts = True End Sub خالص تحياتي

اخى الفاضل اضغط الملف أولا بأى برنامج ضغط الملفات ك Winzip او Winrar وارفعه أخى الكريم تحياتي

أخى الفاضل ارفق الملف حتى يتسنى لأى عضو فاضل مساعدتك تحياتي

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

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

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

اخى الفاضل سؤالك منقسم الى جزئين .. الأول فتح وورد عن طريق زر أمر بالإكسل .. اليك الكود التالى افتح Module جديد والصق الكود التالى به مع مراعاة تغيير اسم ومسار الملف الذي تريد فتحه Sub openword() Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open (ThisWorkbook.Path & "\Ahmed.docx") objWord.Activate End Sub أما بخصوص النقطة الثانية اذا كنت تريد باسورد لفتح ملف الإكسل فقط دون الحماية فاختر ملف File ثم حفظ باسم Save As ومن الأسفل ستجد كلمة أدوات Tools اختر منها خيارات عامة General Options ثم اكتب الباسورد التى تريدها لفتح الملف او للتعديل عليه ثم اعد كتابتها وشكرا مرفق ملف يوضح الإجابة على سؤاليك خالص تحياتي openword.rar

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

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

لا شكر على واجب اخى الفاضل، وهذا حل ثالث به ديناميكية في النقل من اى شيت الى اى شيت ترغب به، اختر ما يناسبك واعمل به تحياتي Tarheel3.rar

اخى الفاضل مرفق الملف به طلبك ان شاء الله تحياتي Tarheel2.rar

اخى الفاضل جرب الملف المرفق لربما به طلبك خالص تحياتي Tarheel.rar

اخى الفاضل المفترض ان ترفق ملف حتى يتسنى لأى أخ فاضل معرفة ما تريد ومساعدتك، لكن انظر المرفق لربما يكون هذا هو طلبك تحياتي auto.rar

أخى الفاضل راجع الملف المرفق ... لربما به طلبك تحياتي Fill Combo.rar

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

أخى الفاضل راجع هذا الفيديو لربما فيه طلبك ومرفق ملف للتوضيح خالص تحياتي Split-cell.rar

تفضل اخى الكريم تم التعديل ومرفق الملف بس بالله عليك بلاش قصة دمج الخلايا دى بتعمل مشاكل كثير خالص تحياتى DATA1-12.rar

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

ابا الحسن والحسين السلام عليكم the Maximum sheet length name is 31 character اى ان اسم اى شيت لا يزيد عن 31 حرف ... قم بتعديل اسماء الشركات في القائمة لديك بحيث لا يكون اسم اى شركة اكبر من 31 حرف ... لن تظهر رسالة الخطأ تحياتي

اخى الفاضل اذا كنت تقصد اخفاء خطوط الشبكة Gridlines فاما من قائمة تخطيط الصفحة Page Layout ثم قم بازالة الصح الموجودة بجانب عرض خطوط الشبكة Gridlines او من قائمة عرض View وازل الصح الموجودة بجانب خطوط الشبكة Gridlines تحياتى

اختى الكريمة رحم الله والدك وغفر له واسكنه فسيح جناته .. اللهم آمين لستى في حاجة لكتابة كل اسم . فبكل تأكيد وحسب الشريعة الإسلامية الأبناء الذكور سيكون نصيبهم متساوي وكذلك البنات سيكون نصيبهم متساوي ... يكفيكى معرفة نصيب الوالدة وكذلك نصيب الفرد الذكر ونصيب الانثي وبتصميم هذا على برنامج الإكسل فكان لابد من معرفة النسبة حسب الشريعة الاسلامية للوالدة وللذكور وللإناث ... وبالاستعانة ببرنامج الدكتور أحمد على لحساب المواريث (جزاه الله كل الخير) وعلى افتراض ان المتوفي ليس له اب او ام او جد او جدة او جد اب او جد ام على قيد الحياة وعلى افتراض ان له زوجة واحدة فقط و 4 ابناء ذكور و5 اناث كانت النسبة كالتالى نصيب الام 12.50 % نصيب الأبناء الذكور 53.85% نصيب الاناث 33.65 % وبناءا على ما سبق وعلى النسب السابقة ... مرفق ملف به المطلوب ملحوظة ::: برجاء مراجعة دار الإفتاء أو اهل العلم في هذه النسب قبل العمل بالملف ..... وبرضه راجعي الموضوع ده حساب المواريث خالص تحياتي Mirath.rar

أخى الفاضل تفضل مرفق ملف يحتوي على طلبك تحياتى GoTo--Sheet.rar

أخى الفاضل ابا الحسن والحسين ... جزاك الله كل خير لدعواتك أخى الكريم ولك من الدعوات بمثلها وزيادة بخصوص بقي الجملة الحمراء اللى فوق ... اعتقد انك اخطأت وعاوز رمز الشركة لا يقبل اى رقم خارج النطاق .... والا كيف تريد ان يقبل رقم خارج نطاق الكمبو وفي الوقت ذاته تجبره ان يختار من القائمة !!!!!! عامة مرفق ملف به المطلوب ... راجعه ولو هناك اى ملحوظة اتركها هنا خالص تحياتى Sell&Buy.rar

أخى الفاضل جرب الملف المرفق لعل به ما طلبت خالص تحياتي Sell&Buy.rar

أحبك الله الذي أحببتني فيه، وبارك لك في الحسن والحسين ورزقك برهما اللهم آمين تحياتي