checles

الله يبارك في حضرتك

السلام عليكم برجاء المساعده في تحسين الكود حيث عند عمل Filter بيجب القيمه فقط محتاج يجيب كل القيمه التي تحتوي علي TextBox1 Sheet1.active ActiveSheet.Range("$A$2:$AE$995").AutoFilter Field:=3, Criteria1:=Me.TextBox1.Value

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

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

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

برجاء المساعده في عند فتح user form يقف علي textbox معين و عند الضغط علي زر سهم الايمن من علي الكيبورد يذهب الي اليمن وعند الضغط علي الزر سهم الايسر وشكرا

ممكن اعرف الخطاء عندي في اية

متشكرا جدا لي حضرتك ربنا يجزيك خيرا

انا اسف استاذ محمد قصدي شتين وليس شيت واحد فقط يبحث في sheet1 ان لم يجد النتايجه يبحث في sheet2

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

Private Sub Workbook_Open() Application.Visible = False openuser.Show End Sub

لاسف مش الي انا عايزة انا عايزة يبحث تلقالي بدون تحديد شيت البحث اول ما اكتب كود يظهر الوصف تلقائي وشكرا

السلام عليكم برجاء المساعده في كتابة كود عند كتابة الاكود في textbox1 تظهر الوصف في textbox2 تلقائي في شيت 1 ان لم يجدها يبحث في شيت 2 مرفق sheet excel وشكرا test (2).xlsm

السلام عليكم برجاء المساعده في عمل شريط في user form استطيع من خلاله سحب الشاشه الي اعلي او اسفل او يمن او يسار وشكرا test.xlsm

شكرا لي حضرتك جزاك الله خيرا

السلام عليكم برجاء المساعده في كتابة كود عند كتابة الاكود في textbox1 تظهر الوصف في textbox2 تلقائي وشكرا test.xlsm

السلام عليكم استاذ حسونه شكرا للاهتمام ولكن لا تعمل برده بعد تغير الكود

السلام عليكم برجاء المساعده عن استخدام كود البحث في Textbox بالارقام مثلا (800) اما اذا كان (800B) لا يقبل فبرجاء المساعده في تعديل الكود ()Private Sub TextBox4_Change X = WorksheetFunction.CountIf(Sheet8.Range("a:a"), Val(Me.TextBox4.Value)) Set ws = Application.WorksheetFunction With Me If .TextBox4.Value <> "" And X <> 0 Then .TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox4.Value), Sheet8.Range("a1:d10000"), 3, 0) .TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox4.Value), Sheet8.Range("a1:d10000"), 4, 0) Else .TextBox5 = "" .TextBox6 = "" End If End With End Sub Test 1.xlsm

اعرض الملف حماية الورقة السلام عليكم برجاء المساعدة في كود لو الخانات هذه بها بيانات يتم منع تغير فيها او مسحها لو الخانه ليس بيها بيانات يتم السماح بالدخال فيها صاحب الملف checles تمت الاضافه 15 ينا, 2024 الاقسام قسم الإكسيل  

اعرض الملف تظليل بشرط السلام عليكم برجاء المساعده محتاج لم العمود A يتكرار بنفس بيانات العمود B تمام لكن لم يتكرار بيانات تانيه يلوني لون احمر صاحب الملف checles تمت الاضافه 10 ماي, 2023 الاقسام قسم الإكسيل  

السلام عليكم برجاء المساعده محتاج لم العمود A يتكرار بنفس بيانات العمود B تمام لكن لم يتكرار بيانات تانيه يلوني لون احم test.xlsx

شكرا جزيلا استاذ حسونه😃

اعرض الملف جمع بشرط المتشابهات عايز مجموع العمود رقم 3 بس كل رقم خامه لوحده من العمود رقم 2 عايز مجموع العمود رقم 4 بس كل رخم خامه لوحده من العمود 2 و عايز عدد الصفف الي في عمود 1 بس من غير المتكرر وشكرا صاحب الملف checles تمت الاضافه 24 أبر, 2023 الاقسام قسم الإكسيل  

اعرض الملف ترحيل بيانات بشرط معين السلام عليكم برجاء المساعده في ترحيل البيانات من شيت في العمود E بايانات بعد النقل يمسح البايانات عند الترحيل مره اخر يرحل تحت السابق وشكرا صاحب الملف checles تمت الاضافه 19 مار, 2023 الاقسام قسم الإكسيل

شكرا جزيلا وجزاك الله خير الكود يعم بشكل ممتاز شكرا