طارق محمود

السلام عليكم أخي العزيز تفضل المرفق ترحيل نور2.rar

السلام عليكم أخي العزيز أضف السطر التالي للكود If x = "" Then GoTo 10 خلف السطر x = Cells(R, "AV") مباشرة ليكون الكود Sub shift() LR = [AV1000].End(xlUp).Row 'لمعرفة آخر سطر فيه نتيجة متعدد وجائز For R = 11 To LR ' نبدأ حلقة من أول سطر به بيانات إلي آخر سطر x = Cells(R, "AV") If x = "" Then GoTo 10 With Sheets(x) LR2 = .[B1000].End(xlUp).Row + 1 'لتحديد آخر سطر جاهز لنقل بيانات .Cells(LR2, "B") = Cells(R, "B") .Cells(LR2, "C") = Cells(R, "D") .Cells(LR2, "D") = Cells(R, "E") End With 10 Next R MsgBox ("الحمد لله" & Chr(10) & "تم الترحيل") End Sub

السلام عليكم تفضل الملف وبه شرح سريع للكود Product list2.rar

السلام عليكم أولا أهلا ومرحبا بك أخي الكريم بين إخوانك ثانيا لتلبية طلبك، تم تسمية المجالات التالية بالأسماء التي بجوارها Agnt1 $E$2:$E$9 Agnt2 $E$10:$E$16 Agnt3 $E$17:$E$25 Agnt4 $E$26 Agnt5 $E$27 Agnt6 $E$28 Agnt7 $E$29 Agnt8 $E$30 Wasf_1A $I$2:$I$64 Wasf_1B $I$65:$I$83 Wasf_1C $I$84:$I$99 Wasf_1D $I$100:$I$108 Wasf_1E $109:$I$114 Wasf_1F $I$115:$I$165 Wasf_1G $I$166:$I$211 Wasf_1H $I$212:$I$217 Wasf_2A $I$218:$I$234 Wasf_2B $I$235:$I$247 Wasf_2C $I$248:$I$250 Wasf_2D $I$251:$I$253 Wasf_2E $I$254:$I$259 Wasf_2F $I$260:$I$265 Wasf_2G I$266:$I$269 Wasf_3A $I$270:$I$288 Wasf_3B $I$289:$I$299 Wasf_3C $I$300:$I$305 Wasf_3D $I$306:$I$308 Wasf_3E $I$309:$I$323 Wasf_3F $I$324:$I$326 Wasf_3G $I$327:$I$338 Wasf_3H $I$339:$I$342 Wasf_3I $I$343:$I$345 Wasf_4A $I$346:$I$429 Wasf_5A $I$430:$I$467 Wasf_6A $I$468:$I$496 Wasf_7A $I$497:$I$514 وكان ذلك سهل بوضع بعض الأكواد مثل Sub Range_Names() LR = [I8400].End(xlUp).Row x1 = 2 For r = 2 To LR - 1 If Cells(r, "J") <> Cells(r + 1, "J") Then x2 = r ActiveWorkbook.Names.Add Name:="Wasf_" & Cells(x1, "J"), RefersToR1C1:= _ "=Product!R" & x1 & "C9:R" & x2 & "C9" x1 = r + 1 End If Next r End Sub المهم تفضل المرفق به ماطلبت وليس مهما ان تفعل الأكواد Product list1.rar

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

الحمد لله

السلام عليكم أخي الكريم ردي السابق كمثال فقط ولكن يلزم تعديلات كثيرة وليس هذا التعديل فقط ، وانا مشغول جدا قد أجد وقت غدا إن شاء الله

السلام عليكم أخي الكريم مرفق الرد مع شرح بالصور لكلا من 2003 ، 2007 الدور الثانى.rar

السلام عليكم أعتقد أن العيب في الأسطر الزائدة بالورقة "stor" حيث أول عمود في البحث يحتوي علي قيم متشابهة "0" لتلك التي لم تسجل في آخر الورقة مما قد يطيل عملية البحث حذفتها ، واصبح سريع عندي تفضل مبيعات من 21-05-2012_2.rar

السلام عليكم أخي العزيز / خالد بعد إذن أساتتنا المشاركين تفضل معهد بعلبك الخاص-1-2003.rar

السلام عليكم أخي العزيز / aly elhedewy تفضل المرفق فاتورة جديدة5.rar

السلام عليكم أخي العزيز / محمد السيد الشاطر ممكن إن شاء الله لكن أيضا ، إن أمكنك الإنتظار وإلا يتدخل احد الأخوة الأعزاء

السلام عليكم أخي العزيز / star knights ممكن إن شاء الله لكني مشغول جدا هذه الأيام وأشارك في المشاركات السريعة فقط إن أمكنك الإنتظار وإلا يتدخل احد الأخوة الأعزاء

السلام عليكم أخي العزيز أنت أدرجت صفوف وأعمدة وهذا يحتاج وقت لإصلاحه فالكود مثل الثوب التفصيل الذي يتم تفصيله علي هذا الشكل وهذه المشاكل والطلبات مثلا لكي تتفهم الوضع ، كان السطر الثاني من الكود fr_D = ">=" & Format([C3], "000"): to_D = "<=" & Format([D3], "000") لابد أن يصبح fr_D = ">=" & Format([D3], "000"): to_D = "<=" & Format([E3], "000") لأنك بإدراجك للعمود الأول A تم ترحيل الخلايا التي يقرأ منها تاريخ البداية والنهاية يعني المتغير fr_D كان يقرأ تاريخ البداية من الخلية C3 ، أصبح D3 وهكذا مع كامل الكود

السلام عليكم أخي العزيز استخدم المعادلة التالية =MATCH(E10,B:B,0)

السلام عليكم اخي العزيز في الفلتر (التصفية) ، عادة يمكنك إختيار التصنيف التالي لأحد الأعمدة "إذا كانت الخلية تبدأ بـ كذا" أو "إذا كانت الخلية تحتوي علي كذا" وكذلك الحال في هذا الكود المعتمد أساسا علي التصفية فالكود يقوم بالتالي 1. إدراج السطر 6 أسفل العناوين التي بها دمج (Merg) يعيق التصفية 2. يصفي البيانات بناءا علي المعيار المطلوب 3. ينسخ البيانات المصفّاة إلي ورقتها 4. يلغي حدث التصفية 5. يحذف السطر 6 الذي أضافه أولا لكي يرجع الملف لما كان عليه إذن يمكنك إحلال سطر (أو سطرين) الخاص بالمعايير أو إضافة بدلا من ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=71, Criteria1:="ناجح" ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=13, Criteria1:="م.ن" ليكون ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=71, Criteria1:="ناجح" ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=13, Criteria1:="م.ن" ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=2, Criteria1:="=1*" فيزيد علي الصفات السابقة معيار آخر وهو أن العمود رقم 2 (القسم) يبدأ برقم 1

السلام عليكم أخي العزيز لايوجد كود محمل علي الـ F4 ولايوجد أي تخصيص في أكواد الـ ThisWorkbook للزر أعد إرسال النسخة الصحيحة أو وضح ماذا تريد أن يحدث بالضبط عند الضغط علي "الاستعلام عن صنف F4"

السلام عليكم مرفق محاولة بدائية للتسهيل علي من أراد التدخل من باقي الزملاء لضيق وقتي فورم خزنه.rar

السلام عليكم أخي الكريم الفورم بسيط إن شاء الله لكن مطلوب منك أن ترفق مثال لما تتخيله مثلا : شكل تصميم فورم أيضا : الشيبت الاكسيل المرحل إليه باسم المودع

السلام عليكم اخي الكريم هل انتهي طلبك؟ ام مازلت تحتاج شىء؟ لاتتردد

السلام عليكم تفضل الكاشير.rar

!! !!!! !!!!!!!!!!! منتظرك

السلام عليكم أولا أهلا ومرحبا بك أخي الكريم بين إخوانك ثانيا لايوجد مرفق ثالثا لاحظت خطأ في المعادلة قد يكون هو مايزعجك للتعبير عن شرطين في نفس الوقت مثل آخر جزء من المعادلة IF((2.5<C3-D3<=3.5 خطأ IF(AND(2.5<C3-D3;C3-D3<=3.5) صح

السلام عليكم أخي العزيز بداية انسخ المعادلة التالية =COLUMN() في الصف الأول كله من الخلية A1 إلي الخلية BS1 ستعطيك رقم العمود مثلا رقم العمودA هو =1 والعمودB هو =2 والعمودC هو =3 وهكذا العمودBS هو =71 نعود لسطر الكود ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=71, Criteria1:="ناجح" هذا يعطي أمر بعمل فلتر (تصفية) للمجال A6:BSx حيث x هي آخر صف علي أن يكون الفلتر بناءا علي العمود رقم 71 والجزء الأخير من السطر بعد الفاصلة يدل علي الصفة المطلوب التصفية علي أساسها في هذا المثال (ناجح) يمكنك إضافة سطر كود آخر لتحديد صفة إضافية للتصفية أسفل السطر السابق ليكون الكود هكذا Sub Tarheel_TAREQ() .. .. .. 'الموجهون ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=71, Criteria1:="ناجح" ActiveSheet.Range("A6:BS" & LR).AutoFilter Field:=13, Criteria1:="م.ن" .. .. End Sub أو تفضل المرفق وبه التعديل نموذج1.rar

السلام عليكم أخي الصديق تفضل المرفق فاتورة جديدة4.rar