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

لاسف مش الي انا عايزة انا عايزة يبحث تلقالي بدون تحديد شيت البحث 

اول ما اكتب كود يظهر الوصف تلقائي 

وشكرا 

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

السلام عليكم 

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

test.xlsx

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

شكرا جزيلا وجزاك الله خير 

الكود يعم بشكل ممتاز 

شكرا