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

السلام عليكم استاذ مصطفي ملف استاذ عباس يعمل عندي تمام اظن المشكلة عندك في تمكين الماكرو . ابحث عن كيفية تمكين الماكرو . او انظر المشاركة رقم 2 في هذا الرابط http://www.officena.net/ib/index.php?showtopic=45949&hl=%2B%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88 تحياتي

السلام عليكم تحياتي للجميع , اسعد الله اوقاتكم استاذنا الجليل عبد الله باقشير تعاملك مع arrays فوق الممتاز مذهل بارك الله لك و زادك من فضله و تقبل منك . هذه محاولة اخرى Private Sub CommandButton1_Click() ListBox1.ColumnCount = 12 [ba2] = [b2].Value [ba3] = TextBox1.Text Range("bb1:bm1") = Array([b2], [c2], [d2], [e2], [f2], [j2], [g2], [k2], [h2], [l2], [i2], [m2]) Range("b2:m" & Range("a" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("ba2:ba3"), CopyToRange:=Range("bb1:bm1") arr = Range("bb2:bm" & Range("bb" & Rows.Count).End(xlUp).Row) ListBox1.List = arr Range("ba1:bm" & Range("bb" & Rows.Count).End(xlUp).Row).Clear End Sub +زيادة اعمدة الست بوكس.rar

السلام عليكم تحياتي للجميع , اسعد الله اوقاتكم استاذ عباد اكواد رائعة تحياتي يبدو ان لا يمكن زيادة الاعمدة بطريقة يدوية , يجب استخدام range او array كمصدر للبيانات . هذه محاولة Private Sub CommandButton1_Click() ListBox1.ColumnCount = 12 [ba2] = [b2].Value [ba3] = TextBox1.Text Range("b2:m" & Range("a" & Rows.Count).End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("ba2:ba3"), CopyToRange:=Range("bb1") arr = Range("bb2:bn" & Range("bb" & Rows.Count).End(xlUp).Row) ListBox1.List = arr Range("ba1:bn" & Range("bb" & Rows.Count).End(xlUp).Row).Clear End Sub

جرب هذا 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