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

hassona229

02 الأعضاء
  • Posts

    93
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

hassona229 last won the day on نوفمبر 16

hassona229 had the most liked content!

السمعه بالموقع

63 Excellent

1 متابع

عن العضو hassona229

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    accountant
  • البلد
    مصر
  • الإهتمامات
    الاكسل والبرمجه

وسائل التواصل

  • Website URL
    https://facebook.com/hassona227
  • Yahoo
    hassona229@yahoo.com

اخر الزوار

467 زياره للملف الشخصي
  1. وعليكم السلام ورحمة الله وبركاته الملف الخاص بك ليس به مشاكل
  2. آمين يارب العالمين وإياكم الحمد لله الذي بنعمته تتم الصالحات
  3. اخى الكريم محمد عبدالصمد هل كتبت الارقام من ٥ الى نهايه ارقامك ال ٥٠٠٠ اسم كما طلب منك الاستاذ الكبير بن علية حاجى في المشاركه السابقه
  4. اجعل تنسيق الخلايا general وستجد المعادله سليمه
  5. الكود الخاص بك كان فيه حلقه تكراريه لطباعه جميع النطاق حتى لو كان لايوجد بيانات في النطاق فعدلت لك الكود بحيث ان لم يكن يوجد بيانات يتوقف الكود If Isnull([d12]) or [d12] = 0 then Exit
  6. وعليكم السلام ورحمة الله وبركاته الحمد لله بنعمه تفضل جرب هذا التعديل لعله يفي بالمطلوب test.xlsm
  7. تفضل اخى الكريم الملف بعد وضع الكود به كشوفات الطلبة للعام 2021-2022.xlsm
  8. قبل كل كلمه اسمها Function ضع كلمه Ptrsafe لتصبح الكلمه PtrSafe Function
  9. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل جرب هذا التعديل Test.xlsx
  10. السلام عليكم ورحمة الله وبركاته هذا الموضوع بدايه جيده وهذا الموضوع به شرح للفورم وجميع متطلباته للاستاذ مجدى يونس
  11. وكود اخر اخى الكريم بدون مصفوفات Sub Total() Dim ws As Worksheet, SH As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False If Not Evaluate("isref('" & "Total" & "'!A1)") Then Sheets.Add.Name = "Total" Set SH = ThisWorkbook.Worksheets("Total") SH.Range("A1").Resize(1, 19).Value = Array("V", "HH", "J", "K", "L", "DD", "HH", "K", "L", "P", _ "GG", "S", "DF", "GH", "HJ", "KJ", "FGH", "G", "Remarks") For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Total" And ws.Name <> "SUMMARY" And ws.Name <> "TIME" And ws.Name <> "HOLD" Then 'كود للنسخ العادي بدون مصفوفات ويجلب لك نفس تنسيق البيانات الاصليه ws.Range("A6:S" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Copy _ SH.Range("A" & SH.Cells(Rows.Count, 2).End(xlUp).Row + 1) End If Next ws SH.Range("A1:S" & SH.Cells(Rows.Count, 2).End(xlUp).Row).EntireColumn.AutoFit Sheets("Total").Move ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Total.xlsb", FileFormat:=xlExcel12 Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False End Sub
×
×
  • اضف...

Important Information