saad abed

اخوانى ارجو اضافة كود للفورم يجعله يظهر فى المقدمة مع كل الاوراق على يسار الشاشة ولكم الشكر المصنف1.rar

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

اخى رجب جزاك الله خيرا اعمالك نافعه للسائل ولنا ايضا

السلام عليكم اريد البحث فى ورقة عن طريق لست بوكس بمتغيرين ياريت استخدام الااشارة للورقة activesheet لان الاوراق متشابه فى التصميم وتتنفذ للبحث لكل الاوراق اكون شكر لمن يبادر بمسا عدتى 1.rar

استاذ برقش جزاك الله خيرا

جزاكم الله خيرا صفحة مهمة جدا

اخى ضاحى الغريب الكمبو فى الظهور بها مشكلة الثلاثة الاولى تعمل بطريقة صحيحة والباقى تظهر فارغة لماذا ارجو تجريب الفورم

استاذى احمد عبدالناصر اكواد جميلة وتواضعك اعظم هناك اضافة بسيطة جدا سرعت الكود ايقاف الحساب التلقائى لحيت ينفيذ الكود ثم العوده للتلقائى فى النهاية Sub Button4_Click() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = Cells(Rows.Count, 2).End(xlUp).Row If x > 2 Then Range("ba3:ba" & x).Formula = "=b3&c3&d3" y = Cells(Rows.Count, "h").End(xlUp).Row If y > 2 Then Range("bb3:bb" & y).Formula = "=h3&i3&j3" Range("bc3:bc" & x).FormulaR1C1 = "=COUNTIF(C[-1],RC[-2])" Range("bd3:bd" & y).FormulaR1C1 = "=COUNTIF(C[-3],RC[-2])" If x > y Then Z = x Else Z = y Range("ba3:bd" & Z) = Range("ba3:bd" & Z).Value For i = 3 To Z If Cells(i, "bc") > 0 Then Range("a" & i & ":e" & i).Copy Range("n" & n + 3) Range("a" & i & ":e" & i).ClearContents n = n + 1 End If If Cells(i, "bd") > 0 Then Range("g" & i & ":k" & i).Copy Range("t" & t + 3) Range("g" & i & ":k" & i).ClearContents t = t + 1 End If Next Range("ba3:bd" & Z).Clear Range("a3:e" & x).Sort key1:=Range("a3"), key2:=Range("b3") Range("g3:k" & x).Sort key1:=Range("g3"), key2:=Range("h3") End If End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

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

اخى سعيد بيرم حمدا لله على سلامتك فى انتظار عودتك الى المنتدى بالسلامة

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

اخوتى السلام عليكم اسئلتى كترت انا عارف احببت ان اقلدكم واصنع اكوادى بنفسى فظهر لى الاتى احتجت تكرار المتغير اكات وكذللك متغير اخر بنفس الطريقة لانى احتاج السطر الاخير فى العمود cوالعمودd فلماذا احتجت التكرار هل يمكن اختصار الكود المرفق يوضح كل شئ 1.rar

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

اخى ضاحى الغريب كل الشكر والتقدير الفورم يعمل بحمد الله اشكرك اخى جزاك الله خيرا

اخى ضاحى الغريب اشكرك كل الشكر ولكن الترحيل لا يعمل وشرحك هو ما اريد تماما اما اظهارات الكمبو فهى كما اريد فارجو التكملة جزاك الله خيرا

السلام عليكم اريد الترحيل من فورم ترحيل حسب نوع اليومية(اسم الورقة) التاريخ عنصر اساسى فى الكل الاوراق بالاضافة للكائنات التى على الفريم يرجى ملاحظة الاتى ان كمبو اليومية اريد ربطة بكمبو اسم المعدة بمعنى ان كل اختيار اسم ورقة جديد رنج dd بظهر اسماء المعدات التى تقابله فى صفحة داتا (اسماء المعدات) شكرا لكم 1.rar

اخى شوقى ربيع من شرحك الجميل ومن معرفة بالاداة فى الاكسيس اشتقت لاستخدامها عملت ستب اوفيس 2007 مخصوص دون جدوى عدم وجود listviewضمن toolbox كذلك toolboxتضغظ كليك يمين تظهر addional controls تضغط عليها فلا حراك اين الخلل اخى الحبيب عندى

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

اخى وحبيبى حماده عمر لا اجد كلمات تكافئ صنيعكم جزاك الله خيرا اصلح الله بالكم ادام الله المحبة بيننا اخترت الرد الاول لان العمل لا يقيد يوميا وانما من الممكن شغل يومين فى يوم اشكركم حماده عمر

اخوانى ابحث عن كلندر ادخال التاريخ فى الخلية النشطة بمجرد الضغط على اليوم ثم تختفى استعمل اوفيس 2010 اكون شاكر جدا راعى المطلوب ادخال التاريخ فى الخلية النشطة بمجرد اختيار اليوم

اخى احمد كل الشكر والتقدير اعزكم الله بارك الله فيكم جزاك الله كل خير

اخى احمد هل ممكن تشرح تكوين المعادلة دى c4هى العمود الرابع c1هى العمود الاول c2هى العمود الثانى لان c هو collumn ما معنىrc2هل العمود الثانى فى اى صف ارجو التوضيح ولك الشكر FormulaR1C1 = "=SUMIFS(saad!C4,saad!C1,RC2,saad!C2,R5C)

اخى احمد عبدالناصر اشكرك كل الشكر هو المطلوب بالفعل جزاك الله خيرا

اخى احمد عبدالناصر اشكرك كل الشكر على شرحك ولكنى نفذت كل النصائح ولم يعمل الكود وارجو ممن يحاول فى الملف ان يغير اسم الورقة الى saad 1.rar

اخوانى الافاضل لماذا لا تعمل الدالة داخل الكود وما هى الطريقة الصحيحة لاستخدامها فى الاكواد Sub saad() Application.ScreenUpdating = False On Error Resume Next Dim a, d, z As Range ww = Application.WorksheetFunction Set d = Sheets("saad").Range("c5:c1500") Set a = Sheets("saad").Range("e5:e1500") Set z = Sheets("saad").Range("b5:b1500") Y = Sheets("saad").Cells(Sheets("saad").Rows.Count, Sheets("saad").Range("a5:a1000").Column).End(xlUp).Row For i = 6 To Y Cells(i, "c") = ww.SumIfs(a, z, Cells(i, "b"), d, Range("c5:c5")) Next i 1.rar