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

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

بسم الله الرحمن الرحيم اعجبنى الموضوع جدا السلام عليكم

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

بسم الله الرحمن الرحيم اشكرك اخى عبدالله السلام عليكم

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

بسم الله الرحمن الرحيم عند الكتابه فى الخليه E5 تظهر لك شاشه اكتب فيها الخليه التى تريد الانتقال اليها Private Sub CommandButton1_Click() Range("" & TextBox1 & "").Select Me.Hide End Sub مرفق ملف السلام عليكم Move.rar

بسم الله الرحمن الرحيم تقع مسؤليه تنقيح المشاركات على قريق العمل الادارى ( مشرفيين مراقبين 00000) حيث من المفترض ان يتم نقل المشاركات القديمه الى اقسام قسم الاكسيل كل حسب طبيعته و يصراحه منذ عده سنوات قمت بتنقيح جميع المشاركات وذلك بشروط معينه حصلت عليها من الاستاذ / محمد طاهر و الوضوع ليس من بالسهل و محتاج الى تكاتف من فريق العمل و من يجد نفسه قادر من الاعضاء على اداء هذه المهمه لان الموضوع يجب ان يتم بعنايه و صبر اما عنوان المشاركات التى لا تعبر عن مضمون الموضوع فهذا الامر عانيت منه كثيرا و وصل الامر الى غضب بعض الاعضاء من , لذلك وجدت الطريقه المثلى و السهله هى تغيير عنوان الموضوع مع كتابه (تم تغيير العنوان) السلام عليكم

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

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

بسم الله الرحمن الرحيم جرب الكود التالى Sub Com() MsgBox "My ProgID is " & _ Application.COMAddIns(1).progID & _ " and my GUID is " & _ Application.COMAddIns(1).GUID End Sub السلام عليكم

بسم الله الرحمن الرحيم يمنك استخدام الكود التالى للاختيار بين اوراق العمل مع التغيير التلقائى لاسماء اوراق العمل Private Sub UserForm_Activate() ComboBox1.Clear For i = 1 To Sheets.Count ComboBox1.AddItem (Sheets(i).Name) Next i End Sub Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Activate End Sub مرفق ملف السلام عليكم Form.rar

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

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

بسم الله الرحمن الرحيم ستجد الحل ان شاء الله بالملف المرفق السلام عليكم Family.rar

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

بسم الله الرحمن الرحيم استخدم الكود النالى Private Sub CommandButton1_Click() TextBox1 = Sheets("Sheet1").[A1] End Sub مرفق ملف السلام عليكم TextBox.rar

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

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

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

بسم الله الرحمن الرحيم يمكن استخدام اى مفتاح عير S بالتعديل على الكود باى حرف مثل d Sub Auto_Open() Application.OnKey "^{d}", "InsertProc" End Sub السلام عليكم

بسم الله الرحمن الرحيم ستجد الحل ان شاء الله بالملف المرفق السلام عليكم nombering1_01.rar

بسم الله الرحمن الرحيم ان شاء الله العقده سوف تتفك جرب الملف المرفق السلام عليكم Post.rar

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

بسم الله الرحمن الرحيم طريقه اخرى للترحيل http://www.officena.net/ib/index.php?showtopic=19642&st=0&p=89651&hl=دفعه&fromsearch=1&#entry89651 السلام عليكم

بسم الله الرحمن الرحيم انا لله و انا اليه راجعون يارب ادخله فسيح جناته يارب الهم اهله الصبر امين.امين.امين. السلام عليكم