اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


samiali4
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم

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

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

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

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

SH0001.xlsx

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

رابط هذا التعليق
شارك

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

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

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

  • Like 2
رابط هذا التعليق
شارك

شكرا لحضرتك

استاذنك 

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

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

shhhhhhhhhhhhh.xlsx

رابط هذا التعليق
شارك

samiali4

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information