samiali4 قام بنشر ديسمبر 8, 2020 مشاركة قام بنشر ديسمبر 8, 2020 السلام عليكم استاذنكم في الملف المرفق محتاج في شيت الصندوق يظهر لي البيانات الخاصة بعمود الصندوق في اليومية بدون الفراغات بمجرد التسجيل في اليومية وفي كشف العميل يرحل البيانات الخاصة بالعميل من اليومية طبقا لاسم العميل المحدد في الاعلى تلقائيا ويكون تحديث تلقائي بمجرد التسجيل في اليومية او اختار العميل من القائمة وشكرا جزيلا لكم SH0001.xlsx ملحوظة يا ريت بدون ماكرو لاني هرفع الملف بعد ذلك على جوجل كروم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 8, 2020 مشاركة قام بنشر ديسمبر 8, 2020 يجب ان يكون هناك القليل من البيانات في الجدول لمعرفة كيفية عمل المعادلات تم اضافة بيانات عشوائية جرب هذا الملف samia.xlsx 2 رابط هذا التعليق شارك More sharing options...
samiali4 قام بنشر ديسمبر 8, 2020 الكاتب مشاركة قام بنشر ديسمبر 8, 2020 شكرا لحضرتك فعلا ده كان الجزء الاول من المطلوب فيه طلب اخر وهو الشيت الخاص بالصندوق ومحتاج انه يشيل او يخفي الصفوف الفاضية في ورقة العملاء علشان الطباعة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 8, 2020 مشاركة قام بنشر ديسمبر 8, 2020 لا يمكن للمعادلات التلاعب بالخلايا والصفوف من حيث التنسيق او الاحفاء او تغيير الخط او اي شيء اخر هذه الاشياء يفعلها الماكرو كما في هذا الملف Option Explicit Sub get_data() Dim Y As Worksheet, A As Worksheet Dim Ry As Range, Ra As Range Dim cret$, ro% Set Y = Sheets("Youmia") Set A = Sheets("Account") Set Ry = Y.Range("A7").CurrentRegion Set Ra = A.Range("A6").CurrentRegion Ra.Clear cret = A.Range("C2") If cret = "" Then cret = "إيهاب أبو سريع" A.Range("C2") = cret Ry.AutoFilter 7, cret On Error GoTo end_me Ry.Columns(1).Resize(, 3).SpecialCells(12).Copy A.Range("B6").PasteSpecial (12) Ry.Columns(28).Resize(, 2).SpecialCells(12).Copy A.Range("E6").PasteSpecial (12) ro = A.Range("A6").CurrentRegion.Rows.Count If ro > 1 Then A.Cells(ro + 6, 1) = "المجموع" A.Cells(ro + 6, 5).Resize(, 2).Formula = _ "=SUM(E6:E" & ro + 5 & ")" A.Cells(6, 7).Resize(ro + 1).Formula = "=SUM(-E6,F6)" A.Cells(6, 1).Resize(ro) = Evaluate("row(1:" & ro & ")") With A.Range("A6").CurrentRegion.SpecialCells(12) .Interior.ColorIndex = 19 .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14 .Font.Bold = True .Value = .Value .Cells(1, 1).Select End With A.Cells(ro + 6, 1).Resize(, 4).HorizontalAlignment = 7 Y.PageSetup.PrintArea = Y.Range("A1:G" & ro + 6).Address End If end_me: Y.AutoFilterMode = False Application.CutCopyMode = False End Sub الملف مرفق samia.xlsm 2 رابط هذا التعليق شارك More sharing options...
samiali4 قام بنشر ديسمبر 9, 2020 الكاتب مشاركة قام بنشر ديسمبر 9, 2020 شكرا لحضرتك استاذنك استاذنكم في الملف المرفق محتاج في شيت الصندوق يظهر لي البيانات الخاصة بعمود الصندوق في اليومية بدون الفراغات بمجرد التسجيل في اليومية لكن بدون ماكرو لاني هرفعه على جوجل درايف وده لا يقبل الماكرو shhhhhhhhhhhhh.xlsx رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر ديسمبر 9, 2020 مشاركة قام بنشر ديسمبر 9, 2020 samiali4 لا يمكن عمل كل هذا بدون ماكرو ... فلا يمكن تصميم كل هذا بالمعادلات , بارك الله فيك استاذ سليم أكواد كلها ممتازة .. رجاءاً وجب غلق المشاركة فتم الوصول فيها الى المطلوب بكل دقة رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 9, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 9, 2020 تم معالجة الأمر (لا يمكن العمل بدون ماكرو) samia_NEW.xlsm 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان