Elhacker قام بنشر مارس 3 مشاركة قام بنشر مارس 3 السلام عليكم اريد المساعده فى تعديل شيت اكسيل اريد ان اقوم بعمل معادله بحث متقدم وتصفيه بالاسم او الرقم او اى شرط اول حرف او اول رقم واريد اضافه امكانيه اضافه وترحيل بيانات فى كل شيت على حد العيادة.xlsx رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مارس 4 مشاركة قام بنشر مارس 4 2 ساعات مضت, Elhacker said: مفيش حد قادر يساعدني فى الشيت دة ؟ اظن ان طلبك غير مفهوم على الاطلاق المرجوا شرح طلبك اكثر مع ارفاق عينة للنتائج المتوقعة وان شاء الله سنحاول مساعدتك رابط هذا التعليق شارك More sharing options...
Elhacker قام بنشر مارس 13 الكاتب مشاركة قام بنشر مارس 13 (معدل) السلام عليكم اخوانى واخواتى الاعزاء اريد المساعده فى تعديل ملف شيت اكسيل لدي بعض بيانات فرعين عياده اريد عمل فلتر بحث اثناء الكتابه بحيث انى ابحث عن باول حرف او باول كلمه او اخر كلمه او عن طريق الرقم اريد البحث بجميع الاحتمالات ودة مثال للفكره التى اريد تنفيذها المرفق المراد تعديله العيادة.xlsx تم تعديل مارس 13 بواسطه Elhacker رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر مارس 15 أفضل إجابة مشاركة قام بنشر مارس 15 العيادة.xlsx 2 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مارس 15 مشاركة قام بنشر مارس 15 (معدل) حل اخر بالاكواد للبحث بالاسم او الرقم Private Sub TextBox1_Change() 'Sheet Segl clinic Dim a As Variant, b As Variant, clé As String Dim i&, j&, k&, m& Dim WS As Worksheet: Set WS = Worksheets("Segl clinic") Dim F As Worksheet: Set F = Worksheets("search") If Me.TextBox1 = "" Then F.Range("b6:c" & Rows.Count).ClearContents Else On Error Resume Next a = WS.Range("F6", WS.Range("G" & Rows.Count).End(3)).Value ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) clé = "*" & F.Range("b3").Value & "*" For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) If LCase(a(i, j)) Like clé Then k = k + 1 For m = 1 To UBound(a, 2) b(k, m) = a(i, m) Next Exit For End If Next Next F.Range("B6:C" & Rows.Count).ClearContents F.Range("b6").Resize(k, UBound(b, 2)).Value = b End If End Sub '********************** Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub العيادة VBA.xlsm تم تعديل مارس 15 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
Elhacker قام بنشر مارس 16 الكاتب مشاركة قام بنشر مارس 16 مشكور جدا اخى العزيز وجزاك الله كل خير ويجعله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
Elhacker قام بنشر مارس 25 الكاتب مشاركة قام بنشر مارس 25 السلام عليكم اخى العزيز محمد هشام. هل من الممكن التعديل على نفس الشيت لاضافة فورمه لادخال عملاء جدد فى نفس الشيت ويدخلو فى دائرة البحث ايضا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها