ريان أحمد

السلام عليكم عندي ملف به خلية وهذه الخلية في كل مرة أكتب بها إسم ولقب وخلية أخرى بها تاريخ الإزدياد هل هناك طريقة بحيث عندما يعاد نفس الإسم واللقب وتاريخ افزدياد مرتين يقوم الإكسل بتنبيهك

قاعدة البيانات التي عندي فيها 30 ألف يعني مجرد ـن أذهب إلى bd1 وأرجع إلى bd2يستغرق الملف وقت للعمل لكير الملف ثانيا هو لم يقم يمقارنة وهذا ما أريده بحيث يقوم بمقارنة مع bd1

للرفع

للرفع

للرفع

للرفع

طبقت اللشرح ولم ينجح

شكرا هل يمكن تطبيقها على فورم بحيث أدخل الحرف في ت كست بوكس ويأتي بالنتائج في ليست بوكس

السلام عليكم ماهو المدى الذي يعمل به الكود ليسجل التغييرات وهل ينجح عند جلب بيانات من ملف خارجي ونسخها في الورقة

بارك الله فيك وجزاك الله كل خير

السلام عليكم جزاك الله كل خير سأجربه وسأعطيك ملاحظاتي

السلام عليكم جرب المرفق zzz.rar

السلام عليكم أستاذي الرجاء إصافة كلمة مرور لتأكيد الحذف والمرور إليه

كتبت تغييرات وكذلك نسخته بيلنات ووصعت في الملف ولم يحدث شيء

للرفع

Private Sub TextBox3_Change() Application.ScreenUpdating = False Application.EnableEvents = False Dim lastrow As Long lastrow = Range("b65535").End(xlUp).Row If TextBox3.Text <> "" Then ActiveSheet.Range("$A$4:$v$" & lastrow).AutoFilter Field:=2, Criteria1:= _ "=" & "*" & TextBox3.Text & "*", Operator:=xlOr Else ActiveSheet.Range("$A$4:$v$" & lastrow).AutoFilter Field:=2, Criteria1:= _ "=" & "*" & TextBox3.Text & "*", Operator:=xlOr End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub يحتوي على حرف ---------------------------------------------------- Private Sub TextBox1_Change() Dim lastrow As Long lastrow = Range("b65535").End(xlUp).Row If ActiveSheet.TextBox1.Text <> "" Then Selection.AutoFilter Range("$A$3:$v$" & lastrow).AutoFilter Field:=2, Criteria1:= _ "=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr Else Range("$A$1:$v$" & lastrow).AutoFilter Field:=2 End If End Sub يبدأ بحرف مدخل في التكس بوكس ------------------------- أستاذي العزيز بارك الله فيك وجزاك الله كل خير على المساعدة وعلى هذه الردود السريعة لكن الإدخال أريده من الفورم في فثء لاخء مع لإضافة خاصية البحث مجرد إدخال حرف بخاصيتين كما هو مبين في الكودين وجزاك الله كل خير

لقد تم عمل البرنامج وهو قمة في الروعة ولإتقان جزاك الله كل خير وأي إستفسار او سؤال سأرجع إليك

للرفع

هل إضافة الملفات لا تؤثر في عمل الأفيس

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

Private Function ReFormat(InNum As Double, Dec As Byte) As Double Dim NewFormat As String If Dec > 0 Then NewFormat = "0." Else NewFormat = "0" NewFormat = NewFormat & String(Dec, "0") ReFormat = Format(InNum, NewFormat) End Function المشكل في هذه القسم

بل أعمل على 2003

شكرا أستاذي القدير وبارك الله فيك الملف يعمل عندي بشكل جيد -------------أستاذي هل يمكن نقل هذه الكود إل لا فورم بحيث يجلب البانات في ليس بوكس

أستاذي القدير لم يعمل عندي الملف قمت بنسخ الملف ولم يتغير شيئ