احمد عبد الناصر

جرب هذا VVVVV+-+.rar

السلام عليكم استاذ ريان لي استفسار -- البيانات الخاصة ب القيد في صفحة BD ليست متشابهة مع البيانات في قيد المستأجر في الصفحة HHH , بينما عملية الربط بين الشيتين تعمل بناءا عليهما . تحياتي

السلام عليكم بعد اذن الاستاذ عباس يمكنك استخدام البحث العادي في اكسيل اظنه يؤدي الغرض باستخدام ctrl+F . تحياتي

السلام عليكم عند اختيار protect sheet احذف علامة صح من امام select blockedcells . اما بالنسبة لاحجام الورق فليس عندي فكرة . تحياتي

السلام عليكم جرب هذا -اضغط ctrl+a لتحديد كل الخلايا -اضغط كليك يمين ثم formate cells -اختر protection من اعلي اليمين -احذف علامة الصح من امام locked , ثم ok -ظلل الخلايا المراد حماياتها -اضغط كليك يمين ثم formate cells -اختر protection من اعلي اليمين -ضع علامة الصح امام locked , ثم ok -ثم فعل protect sheet من تاب review تحياتي

السلام عليكم شكرا استاذ ابو محمد اشرف استاذ مصطفي جرب المرفق تحياتي 5 ورقة عمل ++.rar

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

السلام عليكم جرب المرفق او بامكانك تغير المعادلات مثلا C3 تصبح =ROUND(B3*0.15;2) تحياتي 5 ورقة عمل +.rar

السلام عليكم جرب هذا بعد تعديل طفيف في الكود تحياتي cool+2.rar

السلام عليكم معذرة , فكما تفضل الاستاذ طارق الاستعجال هو السبب شكرا للاستاذ طارق و استاذ ابو محمد علي التصحيح . تحياتي

السلام عليكم حرب هذه المحاولة تحياتي cool+.rar

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

السلام عليكم هذه محاولة تعتمد علي تحريك الزر علي حسب الخلية بحيث يكون زر و احد علي كل الخلايا . استمارة الاستبيان 2013+.rar

السلام عليكم جرب هذا تحياتي +ترحيل.rar

السلام عليكم جرب هذا Sub dahmour() l = Range("b" & Rows.Count).End(xlUp).Row For x = 3 To l t = 0 col = 34 For Each c In Range("c" & x & ":ag" & x) If t = 0 Then If c = "A" Then Cells(x, col) = DateSerial(Year([a2]), Month([a2]), Cells(2, c.Column).Value) t = t + 1 col = col + 1 End If Else If c = "A" Then t = t + 1 Else Cells(x, col) = DateSerial(Year([a2]), Month([a2]), Cells(2, c.Column - 1).Value) t = 0 col = col + 1 End If End If Next Next End Sub تحياتي CODE+.rar

جرب هذا Book1.rar

السلام عليكم اسعد الله صباحك هي معادلة صفيف , بعد التعديل اضغط ctrl+shift+enter معا و ليس enter فقط , جرب و ان شاء الله تظبط . تحياتي

السلام عليكم الف مبروك استاذ عباس ترقية مستحقة فعلا , زادك الله علما و نفع بك . تقبل تحياتي

السلام عليكم استاذ ابو ردينة مبروك علي الترقية ومن تقدم الي تقدم . تقبل تحياتي

السلام عليكم لا يوجد في الملف صفحة اسمها Fixtures جرب هذه =SUMPRODUCT((feathures!$D$2:$D$52=$B4)*(feathures!$E$2:$E$52>feathures!$F$2:$F$52)) تحياتي

السلام عليكم بعد اذن الاستاذ الفاضل سعيد جرب هذه =INT(A1)+IF(A1-INT(A1)<0.25;0;IF(A1-INT(A1)<0.75;0.5;1)) تحياتي

السلام عليكم جرب المرفق -لاحظ ان المدي لل pivote و المعادلات حتي الصف 72 فقط و ليس كل البيانات . -في حالة زيادة ال KP NO عن 17 سوف تحتاج لزيادتهم في التقرير يدوي و كذلك بالنسبة لل WELD ID , بينما الpivote كان يقوم بهذا اتوماتيكا . تحياتي Draft+ AHMED rev 01+.rar

السلام عليكم جرب اضافة هذا السطر ContColmn = sRng.Columns.Count في اول Private Sub CommandButton1_Click و في اول Private Sub ButtonFind_Click ارجو ان تنجح تحياتي

اما بالنسبة لفورم ادخال و تعديل مرن في نهاية Private Sub UserForm_Activate ضيف هذا السطر Me.ScrollBar1.Value = UserForm1.ComboBox1.ListIndex + 1 تحياتي

السلام عليكم بالنسبة لفورم بحث بامكانات تصفية كمحاولة جرب استبدال Private Sub ComboBox1_Change بهذا Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 Run "kh_Find1": Case 1 Run "kh_Find2": Case 2 Run "kh_Find3": End Select ComboFind.Clear '========================== With Me.ComboFind .Column = sRng.Rows(1).Value .ListIndex = 0 .Style = 2 End With '========================== End Sub تحياتي