هادى محمد المامون سالم

بسم الله الرحمن الرحيم الملف يفتح معى عادى جدا السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم test_01.rar

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

بسم الله الرحمن الرحيم اخى ابو اسامة العينبوسي اخى assahir شكرا على التشجيع لقد جربت الكود مره اخرى و وجدته شغال , جربى تعديل البيانات باى من الملفان و سوف بتأثر ملف Main بعد الترحيل السلام عليكم

بسم الله الرحمن الرحيم تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور, Setup & Install http://www.officena.net/ib/index.php?showtopic=17769 السلام عليكم

بسم الله الرحمن الرحيم ستجد الحل فى هذا الموضوع ان شاء الله http://www.officena.net/ib/index.php?showt...69&hl=الصور السلام عليكم

بسم الله الرحمن الرحيم كل عام و جميع المسلمين بخير السلام عليكم

بسم الله الرحمن الرحيم هل تقصد أمان الماكرو السلام عليكم

بسم الله الرحمن الرحيم الاخوه الكرام كل عام وانتم بخير بمناسبه حلول عيد الفطر اعاده الله علينا و على المسلمين باليمن و البركات اللهم امين 0 امين 0 امين 0 امين 0 اهدى اليكم رد على سؤال دائما تكرر فى الملنتدى عن الترحيل الى عده اوراق عمل و فضلت ان يكون بمشاركه مستقله و تكون ضمن مشاركاتى بعد الالف راجيا من الله ان تكون هذه الاعمال فى ميزان حسناتى و اجد دعوه صالحه فى هذه الايام المباركه بلا حجاب بينها و بين الله تعالى 0 مرفق اليكم ملف مضغوط اسمه " Post " و بعد فك الضغط ستجد ثلاثه ملفات Main File1 File2 يقوم ملف Main بالتالى البحث على الملفان فى المسار اى كان مكانه فتح الملفان الترحيل الى كل ملف طبقا لاسمه بالعمود B حفظ البيانات ثم غلق الملفان عدم رؤيتك لما يحدث أتمنى ان يسعفنى الوقت لشرح هذا الكود قريبا و كل عام و انتم بخير السلام عليكم Post.rar

بسم الله الرحمن الرحيم هديه غاليه و مقبوله السلام عليكم

بسم الله الرحمن الرحيم راجع هذا الموضوع http://www.officena.net/ib/index.php?showt...mp;hl=هادى+سالم السلام عليكم

بسم الله الرحمن الرحيم اخى اسلام لقد قمت برفع الملف على روايط أوفيسنا بالمشاركه الاولى , و لاحظت انك لم تكتب اسمك بالمقدمه مع ان ما قمت انت به يعادل ماقمت انا به و قد يزيد فاذا استطعت قم بتعديل الملف و ارسله لى على الميل اذا كان لديك وقت القى نظره على المشاركه التاليه و قد تعجبك و تقوم بتحولها ايضا لانها مفيده جدا http://www.officena.net/ib/index.php?showt...mp;hl=هادى+سالم السلام عليكم

بسم الله الرحمن الرحيم موضوع مشابه http://www.officena.net/ib/index.php?showtopic=19550 السلام عليكم

بسم الله الرحمن الرحيم أرفق مثال و الملفان المطلوب الربط بينهما السلام عليكم

بسم الله الرحمن الرحيم مرفق ملف بداله التفقيط لاستاذى أبو هادى مع تعديل بسيط السلام عليكم Change_No.rar

بسم الله الرحمن الرحيم اخى أبو أسامه فوق الرائع و لكن جرب مسح الارقام ثم الحروف السلام عليكم

بسم الله الرحمن الرحيم اخى أسلام : بارك الله فيك اللهم أنفع بك و بعلمك الأسلام و المسلمين برجاء أرسال الملف على الميل لرفعه على روابط أوفيسنا حيث أنى لم أستطع تحميله السلام عليكم

بسم الله الرحمن الرحيم اخى : ابو عمر الشمالي بارك الله فيك عمل أكثر من رائع السلام عليكم

بسم الله الرحمن الرحيم اخى الكريم منسق الملف رائع من شخص قدير مشكور على المجهود و لكن بعد غلق الملف تختفى اشرطه الادوات و حتى لا تسبب مشكله لاى عضو و بعد اذنك طبعا دخلت على الاكواد بعد كسر الحمايه و ارفقت ملف ( ليس من تصميمى و لكنى وجدته بالمنتدى ) يقوم بأعاده اشرطه الادوات مره اخرى عن طريق F3 برجاء تعديل كود Auto_Close لان الموضوع يستحق التثبيت مشكور مره اخرى على المجهود السلام عليكم ______________________________F3.rar

بسم الله الرحمن الرحيم اخى الكريم اليك برنامج متكامل لما تريد بالأيام لا عليك سوى ان تدخل التاريخ فى الخليه A1 السلام عليكم Stock.rar

بسم الله الرحمن الرحيم شاهد هذا الموضوع http://www.officena.net/ib/index.php?showtopic=19544 السلام عليكم

بسم الله الرحمن الرحيم جرب انقاص أمان الماكرو الى ادنى مستوى و سيعمل معك ان شاء الله السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Print.rar

بسم الله الرحمن الرحيم جربى الملف المرفق السلام عليكم Select.rar

بسم الله الرحمن الرحيم أخى عادل جلال اخى nasersaeed اتمنى ان يكون فى الامر سوء فهم رمضان كريم يمكن استخدام الكود التالى لعدد الصفوف الذى تريده Sub MYPast() Dim MyRows, MyRows01 As Range Set MyRows = Union(Rows(11), Rows(12)) Application.ScreenUpdating = False For i = 13 To 88 Step 2 Application.DisplayAlerts = False Set MyRows01 = Union(Rows(i), Rows(i + 1)) MyRows.Copy MyRows01.Select MyRows01.PasteSpecial Paste:=xlPasteFormulas Application.DisplayAlerts = True Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ملفك مرتبط ببيانات خارجيه فارفق لك ملف كمثال السلام عليكم