نجوم المشاركات

السلام عليكم ورحمة الله وبركاته لدى مشكله بعد استعمال دالة VLOOKANYCOL وهى ان الملف اصبح بطئ بدرجة كبيره جدا وعندما ازلت الداله من الجداول اصبح يعمل بسرعه عاديه وقد قمت بتعديل فى الدالة لكى تعطينى اخر قيمة متوفر فيها شروط البحث (حيث اننى ابحث عن اخر رصيد فى جدول) مرفق الملف الذى به المشكله ويوجد عليه باسورد لانه خاص بالعمل يرجى مراسلتى من المشرف الذى سيقوم بمساعدتى فى رساله خاصه لاعطائه باس الملف وشكرا جزيلا مقدما على مجهوداتكم اسامه عمران انتاج + مبيعات مصنع روكي 1.rar

السلام عليكم بعد اذن الاخ الفاضل حمادة باشا هذا كود الاخ حمادة باشا بتعديل بسيط الصق الكود في حدث Thisworkbook Private Sub Workbook_Open() layout_changed = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, Range("B5:B32")) Is Nothing Then If layout_changed = False Then SendKeys "%+" layout_changed = True End If Else If layout_changed = True Then SendKeys "%+" layout_changed = False End If End If End Sub جرب ارجو ان يزبط معك مانفست كلابشة_1.rar

اين الملف المرفق اخى العزيز

أخي الكريم // عندك موضوعات كثيرة بالمنتدي تتناول موضوع الفورم ويمكنك مراجعة الموضوع التالي امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط http://www.officena.net/ib/index.php?showtopic=47476 به شرح لموضوع الفورم مع امثلة تقبل تحياتي

لمرفق الاول به خطاء بسيط في الكود وهذا المرفق الاصح استبانة بدائل.rar

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

السلام عليكم بعد إذن أخي سالم شباني تفظل يا أخي هذه إحدى الطرق welcome.rar

السلام عليكم أخي goda509129 حياك الله إليك الملف عند فتحه تأتي رسالة ترحيب بإمكانك تغيير العبارات حسب ما تريد ترحيب.rar