ابو حمادة قام بنشر ديسمبر 17, 2015 مشاركة قام بنشر ديسمبر 17, 2015 السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعضاء الكرام عندي استفسار بسيط اتمنى حد يساعدني علي فهمه هذا الكود علما ان الكود يعمل جيدا وبشكر الاخ الفاضل ابو عيد علي مجهوده في هذا الكود الكود On Error GoTo 88 If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l50"), 2, 0) = TextBox1.Text Then 'Me.Hide Form1.Show Else 88 Label7 = Label7 + 1 MsgBox " áÞÏ ÇÓÊÎÏãÊ " & Label7 & " ãÍÇæáÉ ãä ÇÕá 5 ãÍÇæáÇÊ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" If Label7 = 5 Then MsgBox "áÞÏ ÇÓÊäÝÐÊ ÌãíÚ ÇáãÍÇæáÇÊ" ActiveWorkbook.save ActiveWorkbook.Close End If End If اريد فقط كيف يتم تغيير العمود a2 واستبداله بالعمود cb2 علما ان اسم المستخدم سوف يوضع في الخليه cb2 والباس ورد في الخليه cA2 اتمني كيفيه تعديل الكود لفهم هذا الكود وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر ديسمبر 17, 2015 مشاركة قام بنشر ديسمبر 17, 2015 (معدل) تفضل اخي الغالي الموضوع الاصلي http://www.officena.net/ib/topic/65092-شرح-عمل-صلاحيات-للدخول-على-شيتات-داخل-ملف-الاكسيل/ كيفية التعديل غير ما تريد في هذا السطر If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l50"), 2, 0) = TextBox1.Text Then بدل النطاق من a2:i50 الى ما تريده ca2:cb50 مثلا تم تعديل ديسمبر 17, 2015 بواسطه ياسر العربى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.