عمر ضاحى قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اساتذتى الكرام اخواني الاعزاء بعد اذن حضراتكم انا محتاج مساعدة فى عمل استعلام عن قيم ونصوص معينه تحت شرط معين وللمزيد من التفاصيل مرفق ملف للشرح عليه وشكرا جزيلا TEST.xlsx رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير اخي الفاضل اضخل رقم الفاتورة ثم اضغط زر كل البيانات Dim Q1, Q2, FR, TR Range("A11:L111").ClearContents Q1 = Range("C6").Value 'رقم الفاتور TR = 11 For Q2 = 1 To Sheets.Count If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3 With Sheets(Q2) For FR = 3 To 3333 If .Cells(FR, 14) = Q1 Then Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4) Cells(TR, 2) = .Cells(FR, 5) Cells(TR, 3) = .Cells(FR, 6) Cells(TR, 4) = .Cells(FR, 7) Cells(TR, 5) = .Cells(FR, 8) Cells(TR, 6) = .Cells(FR, 9) Cells(TR, 7) = .Cells(FR, 10) Cells(TR, 8) = .Cells(FR, 11) Cells(TR, 9) = .Cells(FR, 12) Cells(TR, 10) = .Cells(FR, 13) Cells(TR, 11) = .Cells(FR, 27) Cells(TR, 12) = .Cells(FR, 26) Cells(TR, 13) = Sheets(Q2).Name TR = TR + 1 End If Next FR End With 3 Next Q2 End Sub Testعمرضاحي.xls 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 أحسنت استاذ أحمد كود ممتاز-كل عام وانتم بخير حمد على سلامة حضرتك لعله خير نورت منتداك من جديد 2 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 9 دقائق مضت, ali mohamed ali said: أحسنت استاذ أحمد كود ممتاز-كل عام وانتم بخير حمد على سلامة حضرتك لعله خير نورت منتداك من جديد كل سنة وانته طيب و بصة وعافية الله يسلمك المنتدى منور بكم و دام انته موجود في المنتدى فانت الخير والبركة واعمالك تشهد على ذلك جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 تم التعديل Sub Inqwayry() ' 26/08/2018 بواسطة Zmn ' استخراج بيانات برقم الفاتورة Dim Q1, Q2, FR, TR Range("A11:L111").ClearContents Q1 = Range("C6").Value 'رقم الفاتور TR = 11 For Q2 = 1 To Sheets.Count If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3 With Sheets(Q2) For FR = 3 To 3333 If .Cells(FR, 14) = Q1 Then Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4) Cells(TR, 2) = .Cells(FR, 5) Cells(TR, 3) = .Cells(FR, 6) Cells(TR, 4) = .Cells(FR, 7) Cells(TR, 5) = Application.Sum(.Cells(FR, 8), .Cells(FR, 20)) Cells(TR, 6) = Application.Sum(.Cells(FR, 9), .Cells(FR, 21)) Cells(TR, 7) = Application.Sum(.Cells(FR, 10), .Cells(FR, 22)) Cells(TR, 8) = Application.Sum(.Cells(FR, 11), .Cells(FR, 23)) Cells(TR, 9) = Application.Sum(.Cells(FR, 12), .Cells(FR, 24)) Cells(TR, 10) = Application.Sum(.Cells(FR, 13), .Cells(FR, 25)) Cells(TR, 11) = .Cells(FR, 27) Cells(TR, 12) = .Cells(FR, 26) Cells(TR, 13) = Sheets(Q2).Name TR = TR + 1 End If Next FR End With 3 Next Q2 End Sub Testعمرضاحي.xls 1 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 26, 2018 الكاتب مشاركة قام بنشر أغسطس 26, 2018 بسم الله ما شاء الله والله فى قمة العبقريه معلش ممكن استأذن حضرتك تشرحلى الكود وايه وظيفة كل كود فيها وايضا لو حابب اجيب المنصرف ايضا محتاج اعمل ايه فى الكود علشان اضيف الخانات المحتاج انى لضيف فيها البيانات الناقصه مثل PO واسم المشروع ! والف شكر لحضرتك مره اخرى رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 5 دقائق مضت, عمر ضاحى said: وايضا لو حابب اجيب المنصرف ايضا محتاج اعمل ايه فى الكود علشان اضيف الخانات المحتاج انى لضيف فيها البيانات الناقصه مثل PO واسم المشروع ! والف شكر لحضرتك مره اخرى جزاك الله خيرا تم التعديل الأخير بيجيب لك المنصرف و الوارد مع بعض رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 في فكرة ممكن تعجبك نعدل على الكود بحيث يضع المصروف من الكميات و المبالغ ب السالب " - " حتى تكون النتائج النهائية افضل ما رأيك 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 26, 2018 الكاتب مشاركة قام بنشر أغسطس 26, 2018 ما فى مشكله اى فكره من حضرتك وياريت لو تقدر تضيف مفتاحين تاني معاهم واحد عرض المنصرف فقط والاخر عرض الوارد فقط والاخير عرض الجميع وعلى الرغم اني مش فاهم الكود كيف حضرتك عملته لكن ربنا يجازيك كل خير ويبارك لك فى حياتك رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 السلام عليكم تم التعديل للنتائج السالبة تم اضافة زر بحث الحالة بعد جلب بيانات الفاتورة اختار من القائمة المنسدلة نوع الحالة المطلوبة و اضغط بحث الحالة اذا مسحت الخانة و ضغط بحث الحالة تظهر لك كل العمليات تم اضافة صف للمجاميع اعلى الورقة Testعمرضاحي.xls 2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 27, 2018 الكاتب مشاركة قام بنشر أغسطس 27, 2018 مش عارف فى خطأ ما لا ادري السبب زر الحالة مش منه المفترض لما اختر مثلا المنصرف يظهر لى المنصرف فقط ؟ويخفى باقى النتائج لكن كل ال بيظهر لى قائمه بكل المكتب تحت الحالة وعامل التصفيه لا بعمل معها ام ان له عمل اخر غير هذا ؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 28, 2018 الكاتب مشاركة قام بنشر أغسطس 28, 2018 طلب اخر بعد اذن حضرتك انا لو عاوز انقل الكود هذا الى ملف اخر كيف اقوم بهذه الخطوة وتسلم على هذه المجهود وبارك الله فيك رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 29, 2018 الكاتب مشاركة قام بنشر أغسطس 29, 2018 #تذكير رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 30, 2018 الكاتب مشاركة قام بنشر أغسطس 30, 2018 انا لو حابب اني اقوم بعمل فلتره حسب قيمة خلية معينه ايه الكود المطلوب لعمل هذه الحركة ؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 1, 2018 الكاتب مشاركة قام بنشر سبتمبر 1, 2018 انا وجدة كود لموضوع القائمة للفتلرة وعلى قدر استطاعتى عرفت ان لو عملت تسجيل للميكرو واخفيت صف عرفت انه هيظهرلى الكود الخاص بامر الفلتره وهو EntireRow.Hidden = True والكود كامل بعد التعديل هو Sub hiden_line() 'CODE FOR HIDE VALUE Dim rng As Range Dim cell As Range Set rng = Range("A10:M25") For Each cell In rng ' D7 هى الخلية التى بها القائمة او القيمة المطلوب الفلتره عليها If cell.Value = Range("D7").Value Then cell.EntireRow.Hidden = True End If Next cell End Sub Sub show_line() 'CODE FOR SHOW VALUE Dim rng As Range Dim cell As Range Set rng = Range("A10:M25") For Each cell In rng If cell.Value = Range("D7").Value Then cell.EntireRow.Hidden = False End If Next cell End Sub Sub show_lineALL() 'CODE FOR SHOW ALL VALUE Dim rng As Range Dim cell As Range Set rng = Range("A10:M25") For Each cell In rng If cell.Value = "وارد" Or cell.Value = "صرف" Then cell.EntireRow.Hidden = False End If Next cell End Sub @احمدزمان لو امكن حضرتك ممكن تساعدنى فى هذه النقطة بحيث ادمج هذا الكود مع كود حضرتك بحيث يكون هناك زرار واحد لعمل كل الخطوات بدل 4 مفاتيح يعنى انا محتاج من حضرتك تساعدنى فى دمج هذه الاكواد او كيف اخلى لما اختار شئ من القائمة المنسدلة يتم تطبيق الميكرو تلقائي دون ان يكون هناك مفتاح لتنفيذ المايكرو رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 2, 2018 الكاتب مشاركة قام بنشر سبتمبر 2, 2018 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 4, 2018 الكاتب مشاركة قام بنشر سبتمبر 4, 2018 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 4, 2018 الكاتب مشاركة قام بنشر سبتمبر 4, 2018 في ٢٦/٨/٢٠١٨ at 20:02, احمدزمان said: السلام عليكم تم التعديل للنتائج السالبة تم اضافة زر بحث الحالة بعد جلب بيانات الفاتورة اختار من القائمة المنسدلة نوع الحالة المطلوبة و اضغط بحث الحالة اذا مسحت الخانة و ضغط بحث الحالة تظهر لك كل العمليات تم اضافة صف للمجاميع اعلى الورقة Testعمرضاحي.xls ممكن استأذن حضرتك في مراجعة الملف مرة اخري لان فى شئ خطأ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 6, 2018 الكاتب مشاركة قام بنشر سبتمبر 6, 2018 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 7, 2018 الكاتب مشاركة قام بنشر سبتمبر 7, 2018 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 9, 2018 الكاتب مشاركة قام بنشر سبتمبر 9, 2018 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 10, 2018 الكاتب مشاركة قام بنشر سبتمبر 10, 2018 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 15, 2018 الكاتب مشاركة قام بنشر سبتمبر 15, 2018 UP رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 20, 2018 الكاتب مشاركة قام بنشر سبتمبر 20, 2018 UP رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 22, 2018 الكاتب مشاركة قام بنشر سبتمبر 22, 2018 up رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان