الـعيدروس

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

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

السلام عليكم الاخ والاستاذ سعد عابد تسلم على الملف الجميل جدا وفقك الله تقبل مروري

السلام عليكم الاستاذ القدير عبدالله المجرب (ابو احمد) الله يسلمك ويحفظك من كل مكروه الله يوفق لما فيه الخير لامة محمد اجمع والسلام عليكم

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

السلام عليكم اكواد جميله استفدت منها نقله مميزة زادك الله من علمه استاذ يحياوي وفقك الله والسلام عليكم

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

السلام عليكم شهر كريم استاذ خبور خير وبارك الله فيك على العمل الرائع والمتقن جعله الله في ميزان حسناتك ووفقك لفعل الخير تقبل مروري والسلام عليكم

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

السلام عليكم بعد اذن استاذنا الفاضل عبدالله المجرب تفضل المرفق اخي حامل المسك ولزيادة المدى غير من هذا السطر Range("B6:C21").Select ارجو ان يكون هذا المطلوب والسلام عليكم جعل الإعمدة 1صفوف.rar

السلام عليكم الاساتذه الافاضل هشام شلبي عماد الحسامي تميز وانفراد وفقكم الله

السلام عليكم جميل جدا استاذ يحياوي وفقك الله تقبل مروري

السلام عليكم جميل جدا استاذ يحياوي وفقك الله تقبل مروري

السلام عليكم الاخ محاسب عام اطلع على المرفق الملف بعد الغاء الدمج.rar

السلام عليكم بارك الله فيكم ثورة درر الاكسل هذه الايام الاستاذ يحياوي الاستاذ خبور خير وفقكم الله تقبلو مروري

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

السلام عليكم الاستاذ القدير عماد الحسامي صراحة عمل رائع جدا جدا تقنية البرامج الكبيرة وفقك الله تقبل مروري

بارك الله فيك استاذ هشام عمل رائع وفقك الله

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

جميل جدا استاذ عبدالله المجرب وفقك الله

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

الاخ الفاضل قصي هذا مثال للكود Public ABU_NSSAR As Byte Private Sub CommandButton1_Click() الباسورد = "123" ِABOOD = InputBox("إدخل الباسورد لتنفيذ الماكرو") If ِABOOD <> الباسورد Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ABU_NSSAR = ABU_NSSAR + 1 If ABU_NSSAR > 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Range("a3").Value = "اوفسينا أجمل صرح تعليمي" MsgBox ("تم تنفيذ الماكرو") End Sub مثال.rar

السلام عليكم اضافة الى حل الاستاذ القدير يجياوي اخي باسم بالامكان تشغيل زر الادخال بإختصار معين مثلا ALT+d فليكن اسم الزر CommandButton1 والاختصار ALT+D Private Sub UserForm_Initialize() CommandButton1.Accelerator = "d" End Sub وداخل كود الزر تحط هذا السطر Me.CommandButton1.Default = True بمعنى تضغط اختصار ALT+ حرف D راح يعمل عمل الزر ارجو ان يكون وضحت الفكرة تحياتي

استاذي الفاضل كيماس العذر منك والسموحة لم ارى مشاركتك

السلام عليكم أتفضل يااخي AL.ComboBox.rar