محتاج اعمل ترحيل تلقائي للبيانات في الملف المرفق

[samiali4]

السلام عليكم

استاذنكم في الملف المرفق محتاج في شيت الصندوق يظهر لي البيانات الخاصة بعمود الصندوق في اليومية بدون الفراغات بمجرد التسجيل في اليومية

وفي كشف العميل يرحل البيانات الخاصة بالعميل من اليومية طبقا لاسم العميل المحدد في الاعلى تلقائيا

ويكون تحديث تلقائي بمجرد التسجيل في اليومية او اختار العميل من القائمة

وشكرا جزيلا لكم

SH0001.xlsxFetching info...

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

[سليم حاصبيا]

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

تم اضافة  بيانات عشوائية

جرب هذا الملف

samia.xlsxFetching info...

[samiali4]

شكرا لحضرتك
فعلا ده كان الجزء الاول من المطلوب

فيه طلب اخر وهو الشيت الخاص بالصندوق 
ومحتاج انه يشيل او يخفي الصفوف الفاضية في ورقة العملاء علشان الطباعة

[سليم حاصبيا]

لا يمكن للمعادلات التلاعب بالخلايا والصفوف من حيث التنسيق او الاحفاء او تغيير الخط او اي شيء اخر

هذه الاشياء يفعلها الماكرو كما في هذا الملف

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.xlsmFetching info...

[samiali4]

شكرا لحضرتك

استاذنك 

استاذنكم في الملف المرفق محتاج في شيت الصندوق يظهر لي البيانات الخاصة بعمود الصندوق في اليومية بدون الفراغات بمجرد التسجيل في اليومية

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

shhhhhhhhhhhhh.xlsxFetching info...

[هانى محمد]

samiali4

لا يمكن عمل كل هذا بدون ماكرو ... فلا يمكن تصميم كل هذا بالمعادلات , بارك الله فيك استاذ سليم أكواد كلها ممتازة .. رجاءاً وجب غلق المشاركة فتم الوصول فيها الى المطلوب بكل دقة

[سليم حاصبيا]

تم معالجة الأمر (لا يمكن العمل بدون ماكرو)

samia_NEW.xlsmFetching info...