husas707 قام بنشر مارس 13, 2023 مشاركة قام بنشر مارس 13, 2023 تجميع البيانات من قاعدة البيانات الى الخلاصة وبحسب رقم الطلبية بحسب ماهو موضح في المرفق وبارك الله فيكم وفي جميع المتعاونين في هذة المنتدى الرائع ترحيل السلة.xlsx رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 15, 2023 مشاركة قام بنشر مارس 15, 2023 ربما ترحيل السلة.xlsm 3 رابط هذا التعليق شارك More sharing options...
husas707 قام بنشر مارس 18, 2023 الكاتب مشاركة قام بنشر مارس 18, 2023 شكرا لك اخي العزيز ابو بشير جعلة الله في ميزان حسناتك ياغالي رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 19, 2023 مشاركة قام بنشر مارس 19, 2023 بارك الله رابط هذا التعليق شارك More sharing options...
husas707 قام بنشر مارس 19, 2023 الكاتب مشاركة قام بنشر مارس 19, 2023 اخي ابو بشير هناك خطاء بسيط في الكود عندما اضع رقم الطلبية مثلا 100 وعدد اصنافها اكثر من الطلبية 102 فان الخلايا في الاعمدة من B الى E تبقى الارقام فيها ولاتنحذف عندما اختار رقم الطلبية الاقل اصناف رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 20, 2023 مشاركة قام بنشر مارس 20, 2023 تفضل Private Sub Worksheet_Change(ByVal Target As Range) Dim a, No, w Dim i& a = Sheets("ÞÇÚÏÉ ÇáÈíÇäÇÊ").Cells(1).CurrentRegion Application.ScreenUpdating = False If Not Intersect(Target, Cells(1, 9)) Is Nothing Then Me.Range(Cells(2, 2), Cells(2, 2).End(-4121).Cells).Offset(, -1).Resize(, 4).ClearContents With CreateObject("scripting.dictionary") For i = 3 To UBound(a) If a(i, 1) = Target.Value Then If Not .Exists(a(i, 1) & a(i, 3)) Then .Add (a(i, 1) & a(i, 3)), Array(a(i, 3), a(i, 4), a(i, 5), a(i, 6)) Else w = .Item(a(i, 1) & a(i, 3)) w(0) = w(0): w(1) = w(1) + a(i, 4) w(2) = w(2) + a(i, 5): w(3) = w(3) + a(i, 6) .Item(a(i, 1) & a(i, 3)) = w End If End If Next Me.Cells(2, 1).Resize(.Count, 4) = Application.Index(.items, 0, 0) End With End If Application.ScreenUpdating = True End Sub عملياً فقط تغيير Me.Range(Cells(2, 2), Cells(2, 2).End(-4121).Cells).Offset(, -1).Resize(, 4).ClearContents رابط هذا التعليق شارك More sharing options...
husas707 قام بنشر مارس 20, 2023 الكاتب مشاركة قام بنشر مارس 20, 2023 السلام عليكم ادخلت الكود الجديد وعندما احاول تطبيقة يظهر خطاء . اتمنى ان تطبق الكود على الملف اذا تكرمت اخي العزيز رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر مارس 21, 2023 أفضل إجابة مشاركة قام بنشر مارس 21, 2023 ترحيل السلة.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
husas707 قام بنشر مارس 21, 2023 الكاتب مشاركة قام بنشر مارس 21, 2023 بااااااااارك الله فيك وجزاك خيرا شكرا لك اخي العزيز 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.