أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





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

[code]UHJpdmF0ZSBTdWIgVGV4dEJveDE1X0NoYW5nZSgpPGJyIC8+DQo8YnIgLz4NCldpdGggTGlzdEJveDE8YnIgLz4NCi5DbGVhcjxiciAvPg0KLkNvbH ..


موضوع مغلق


12-03-2021 08:28 صباحا
Elsayed EL-Diasty
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 12-03-2021
رقم العضوية : 21965
المشاركات : 1
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 15
 offline 

Private Sub TextBox15_Change()

With ListBox1
.Clear
.ColumnCount = 14
.ColumnWidths = "98,50,65,110,37,33,70,55,55,35,35,108,125,130"
End With
Const Cont As Integer = 17

Me.ListBox1.ColumnCount = Cont

If TextBox15.Value = "" Then ListBox1.Clear: Exit Sub

Dim Ary()
Dim r As Long, rr As Long, Lr As Long
Dim c As Integer
Dim txt As String

txt = Me.TextBox15
Me.ListBox1.Clear

With Sheets("محمد")
    Lr = .Cells(.Rows.Count, "D").End(xlUp).Row
    
    For r = 7 To Lr
        If InStr(CStr(.Cells(r, "D")), txt) Then
            rr = rr + 1
            ReDim Preserve Ary(4 To Cont, 1 To rr)
            For c = 4 To Cont
                Ary(c, rr) = .Cells(r, c).Value
            Next
        End If
    Next
    
End With

If rr Then Me.ListBox1.Column = Ary

Erase Ary

End Sub



 


Private Sub TextBox15_Change() With ListBox1 .Clear .ColumnCount = 14 .ColumnWidths = "98,50,65,110,37,33,70,55,55,35,35,108,125,130" End With Const Cont As Integer = 17 Me.ListBox1.ColumnCount = Cont If TextBox15.Value = "" Then ListBox1.Clear: Exit Sub Dim Ary() Dim r As Long, rr As Long, Lr As Long Dim c As Integer Dim txt As String txt = Me.TextBox15 Me.ListBox1.Clear With Sheets("محمد")     Lr = .Cells(.Rows.Count, "D").End(xlUp).Row          For r = 7 To Lr         If InStr(CStr(.Cells(r, "D")), txt) Then             rr = rr + 1             ReDim Preserve Ary(4 To Cont, 1 To rr)             For c = 4 To Cont                 Ary(c, rr) = .Cells(r, c).Value             Next         End If     Next      End With If rr Then Me.ListBox1.Column = Ary Erase Ary End Sub


 








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




12-03-2021 08:44 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif السلام عليكم ورحمة الله وبركاته اريد ان يبحث هذا الكود في كل الشيتات وليس شيت محدد
السلام عليكم
أخي الكريم أهلاً بك في المنتدى
الموضوع المطروح بهذا الشكل غير مقبول شكلاً وموضوعاً
ابدأ الموضوع بالسلام واشرع في وصف المشكلة التي تحدث معك وضع بعض الصور التي تبين المشكلة بشكل أفضل وفي النهاية ضع ملف مرفق ليستطيع الأخوة الأعضاء محاولة مساعدتك.



الكلمات الدلالية
عليكم ، السلام ، محدد ، وليش ، الشيتات ، الكود ، ورحمة ، الله ، وبركاته ، اريد ، يبحث ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:39 مساء