أبوحازم

شكرا أستاذي حمادة باشا فعلا أشتغل تمام جزاك الله ألف خيرا

هذا الموضوع مهم للغاية يا سادة

أستاذ (حمادة) عاد عندي كود البحث بمجرد كتابة أول حرف أريد نفس الطريق كيف . وهذا هو الكود وشكرا جزيلا جدا Private Sub TextBox1_Change() ActiveSheet.Unprotect If TextBox1 = "" Then AutoFilterMode = False Else Range("DATA").AutoFilter , _ field:=1, Criteria1:=Right(TextBox1.Text, Len(TextBox1.Text)) & "*" ActiveSheet.Protect End Sub

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

والله هذا الذي اريدة ولكن لم أفهم أرجوا توضيح أكثر

عندي في المصنف كود للتاريخ يظهر في حالة كتابة في الخلية .B يظهر التاريخ في الخلية A تاريخ الحالي . المشكلة هي : عندما أسوي للشيت كلمة المرور لحماية الورقة من العبث لا يعمل الكود كيف أسوي الأن وهذا هو الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next ActiveSheet.Unprotect If Not Intersect(Target, Range("b1:b60000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).Offset(0, -2).ClearContents Else With Target(1, 2).Offset(0, -2) .Value = Date .EntireColumn.AutoFit End With End If End If ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False End Sub ف.rar

عندي في المصنف كود للتاريخ يظهر في حالة كتابة في الخلية .B يظهر التاريخ في الخلية A تاريخ الحالي . المشكلة هي : عندما أسوي للشيت كلمة المرور لحماية الورقة من العبث لا يعمل الكود كيف أسوي الأن وهذا هو الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next ActiveSheet.Unprotect If Not Intersect(Target, Range("b1:b60000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).Offset(0, -2).ClearContents Else With Target(1, 2).Offset(0, -2) .Value = Date .EntireColumn.AutoFit End With End If End If ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False End Sub

شكرا جزيلا ( ياأستاذ ابوحنين) هذا الذي أريدة شكرا جزيلا جدا وجزاك الله خير

الموضوع مهم للغاية

للرفع

عفوا كيف أسوي كلمة السر في الوقت المحدد ( يعني معي برنامج اكسل أريد أن ينتهي البرنامج في وقت محدد وتاريخ محدد ويطلب كلمة السر ولا يدخل أبدا الا بكلمة السر) ( يعني حق الملكية ) هل هناك كود افيدوني بارك الله فيكم

للرفع

لا لا أنا أريد أن يطلع السطر على شان أشوف كل البيانات للأسم

عفوا هذا الملف المرفق أريد بة البحث بمجرد كتابة أول حرف أو رقم في عدة أعمدة وشكرا جزيلا جدا البحث في عدة أعمدة.rar

شكرا جزيلا جدا

عفوا عند تحرير الخلية التي بها الدالة والضغط على الأنتر يطلع لي في الخلية #VALUE! كيف يمكنني تشغيل الخلية دون تراجع لكي أستخدمها في بعض حاجاتي وشكرا

أبداع أبداع أبـــــــــــــــــــــــــــــــــــــــــــــــداع

أريد الحد الأعلى في الأسماء المدينون ثم الحد الذي بعده ثم الذي بعده وهكذا يعني تنازيا الى 20 أسم فقط. وشكرا تنازليا.rar

ياسلام شكرا جزيلا

عفوا أريد ترحل كل البيانات التي في العمود : a-b-c الى الورقة8 وبعد الضغط على زر الترحل يمسح البيانات الملف مرفق . وشكر ترحيل.rar

شكرا جزيلا جدا جدا يا أستاذ ( طارق محمود ) نعم هذا الذي أريدة

up

السلام عليكم . هذا ملف مرفق أريد به لو تكرمتم حماية الشيت ولكن الكود لا يعمل عند حماية الشيت ويظهر لي رساله أريد حماية بدون أي خطأ 2014.rar

كيف يمكنني أضلل مجموعة من الصفوف ثم أقوم بتوسيعها جميعها دون تكبير الخط حيث أني أريد الخط صغير

للرفع