checles

السلام عليكم 

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

السلام عليكم 

برجاء المساعده عن استخدام كود البحث في 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

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

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

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

شكرا 

ممكن يكون TEXT فارغ لا يوجد بيه ارقام 

عايز لم يكون TEXT فاضي ما يضربش TEXT الفارغ 

وايضا 

لما اضر مثلا 0.25*0.23*0.26

يضرب 

وشكرا 

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

بس عندي مشكله لو في صفر text او text فاضي بيكون الناتج صفر 

او عدد عشري قل من الواحد 

ممكن تساعدني في حلها 

وشكرا 

شكرا لحضرتك بس انا كنت عايزة من غير زر butten عايزة اتوماتيك اول ما اكتب الرقم يظهر النتيجه علي طول 

وشكرا 

السلام عليكم 

برجاء المساعده 

لم التاريخ يساوي التاريخ والوقت = الوقت عايز اكبر قيمه تظهر في العمود E 

وشكرا 

saw.xlsx

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

5.xlsx

شكرا جداااا

شكراااا جدا جدا هذا هو المطلوب 

المطلوب نقل انتهاء في  الي شيت 2 مع العلم ان كود متكرر عايز ينقله بالتكرار معادله Vlookup

بتجيب اول نتيجه بس

وشكرا

2.xlsx

السلام عليكم 

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

Book1.xlsx

السلام عليكم 

كنت محتاج من الاستاذه الافاضل كود طباعه user form بالعرض 

وشكرا 

السلام عليكم 

محتاج تعديل حيث يقبل ارقام وحرف وليس ارقام فقط 

Private Sub id_Change()

x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value))

Set ws = Application.WorksheetFunction

With Me

If .id.Value <> "" And x <> 0 Then

.nam = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 2, 0)

.adrss = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 3, 0)

.phone = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 4, 0)

.acc = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 5, 0)

Else

.nam = ""

.adrss = ""

.phone = ""

.acc = ""

End If

End With

End Sub

السلام عليكم 

عندي عمود يحتوي علي اكثر من تاريخ 

عايز استخرج اخر تاريخ فيهم 

بالمعادلات او الاكواد 

وشكرا 

السلام عليكم 

عندي عمود يحتوي علي اكثر من تاريخ 

عايز استخرج اخر تاريخ فيهم 

بالمعادلات او الاكواد 

وشكرا 

السلام عليكم 

كانت عايز انتقل من اليوزفورم الي شيت معين 

ممكن الكود لو سمحتم