بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
974 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
27
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو حسونة حسين
-
وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub Test() Dim WB As Workbook, WS As Worksheet, SH As Worksheet, Arr As Variant, Temp As Variant Dim i As Long, j As Long, p As Long Set SH = ThisWorkbook.Worksheets("ترحيل يومية") Arr = SH.Range("A5:F" & SH.Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & "العملاء.xlsm", False) For Each WS In WB.Worksheets If SH.Range("D2") = WS.Name Then For i = 1 To UBound(Arr, 1) p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) Next Next End If If p > 0 Then WS.Range("H" & WS.Cells(Rows.Count, 8).End(xlUp).Row + 1).Resize(p, UBound(Temp, 2)).Value = Temp WS.Range("K7:K" & WS.Cells(Rows.Count, 8).End(xlUp).Row).NumberFormat = "[$-1010000]yyyy/mm/dd;@" GoTo 86 End If Next WS 86 WB.Close Savechanges:=True End Sub
-
تفضل اخى الكريم 1- اجعل الملف الذي اسمه real data.xlsx بجوار الملف الذي اسمه (Total.xlsx ) الكود سوف يحذفه ووضع مكانه ملف باسم (Total.xlsb ) 2- انسخ الكود التالي 3- اربط الزر قي صفحة ( total ) بالكود الذي اسمه ( total ) 4- ثم اضغط على الزر 5- سوف يعمل الكود ويجلب البيانات الموجوده في جميع الشيتات ماعدا ٣ شيتات معينة وهما ( summery ) (Hold ) (Time ) Sub Total() Dim WS As Worksheet, WB As Workbook, SH As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False Set SH = ThisWorkbook.Worksheets("Total") Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & "real data.xlsx", False) For Each WS In WB.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 WB.Close Savechanges:=True SH.Columns.AutoFit ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Total", FileFormat:=xlExcel12 On Error Resume Next Kill ThisWorkbook.Path & "\" & "Total.xlsx" On Error GoTo 0 Application.ScreenUpdating = True Application.EnableEvents = True Application.DisplayAlerts = True End Sub
-
ادراج ايام السنة بدون يومي الجمعة والسبت
حسونة حسين replied to سمير نجار's topic in منتدى الاكسيل Excel
اخى الكريم يمكنك الاستفادة من هذا الموضوع -
وعليكم السلام ورحمة الله وبركاته الملف الخاص بك ليس به مشاكل
-
آمين يارب العالمين وإياكم الحمد لله الذي بنعمته تتم الصالحات
-
التعديل على برنامج الأستاذ ابو اليسر لعمل قوائم الفصول
حسونة حسين replied to سعيد مايو's topic in منتدى الاكسيل Excel
يمكنك الاستفادة من هذا الموضوع هنا فيه الموضوع الاصلي للبرنامج -
اخى الكريم محمد عبدالصمد هل كتبت الارقام من ٥ الى نهايه ارقامك ال ٥٠٠٠ اسم كما طلب منك الاستاذ الكبير بن علية حاجى في المشاركه السابقه
-
اجعل تنسيق الخلايا general وستجد المعادله سليمه
-
الكود الخاص بك كان فيه حلقه تكراريه لطباعه جميع النطاق حتى لو كان لايوجد بيانات في النطاق فعدلت لك الكود بحيث ان لم يكن يوجد بيانات يتوقف الكود If Isnull([d12]) or [d12] = 0 then Exit
-
وعليكم السلام ورحمة الله وبركاته الحمد لله بنعمه تفضل جرب هذا التعديل لعله يفي بالمطلوب test.xlsm
-
تفضل اخى الكريم الملف بعد وضع الكود به كشوفات الطلبة للعام 2021-2022.xlsm
-
كود تفعيل عجلة الماوس في الليست بوكس
حسونة حسين replied to Elsayed A Eldiasty's topic in منتدى الاكسيل Excel
قبل كل كلمه اسمها Function ضع كلمه Ptrsafe لتصبح الكلمه PtrSafe Function -
احتاج تقسيم الارباح على الشركاء بحسب المبلغ المتفق عليه
حسونة حسين replied to sh0kri2's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل جرب هذا التعديل Test.xlsx -
السلام عليكم ورحمة الله وبركاته هذا الموضوع بدايه جيده وهذا الموضوع به شرح للفورم وجميع متطلباته للاستاذ مجدى يونس
-
وكود اخر اخى الكريم بدون مصفوفات 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
-
عمل دمج المراسلات بين الاكسيل والورد
حسونة حسين replied to ashraf_abdalla's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته بمكنك الاستفاده بهذا الموضوع وهنا رابط دورة جميله -
طريقة الحصول علي بيان رصيد اول الشهر
حسونة حسين replied to طارق حسانين's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته وبها نبدأ الملف الخاص بك ليس به بيانات من اين نحصل على بيانات الشهر السابق ضع بعض البيانات ثم اشرح من اين تأتى البيانات واين يكون موضعها حتى يتسنى لنا فهم مطلبك -
البحث فى ليست بوكس عن طريق تكست بوكس و كمبوبوكس
حسونة حسين replied to الصفتى's topic in منتدى الاكسيل Excel
اخى faisal77 قم بطرح موضوع جديد خاص بك وارفق ملف مشروحا به ما تريد وشكل النتائج المتوقعه للبيانات حتى يتسنى للاخوة المساعده -
الحمد لله الذي بنعمته تتم الصالحات آمين يارب العالمين وإياكم اخى
-
تم تعديل الكود في المشاركه السابقه