نجوم المشاركات

السلام عليكم ورحمة الله وبركاتة اخواني الكرام اقدم لكم ملف قد قمت بالاجتهاد به " طبعا بعد الرجوع واقتباس الاكواد من منتدي اوفيسنا طبعا " واريد اخذ ارائكم بالملف واتمنى تطوير الملف من قبل خبراء منتدانا الكرام جزاهم ربي الجنه 1- تنفيذ شكل فاتورة واحدة وتحديد خيار " مشتريات , مبيعات , مردود مششتريات , مردود مبيعات , توالف , مسحوبات شركاء " 2- الفاتورة بعد انشاء الفاتورة وعمل ترحيل ترحل للمكان المناسب سواء مشتريات او مبيعات والى اخ ....... " 3- كشف حساب سواء مورد او عميل او فرع " كميات وقيم سواء " مورد او عميل " واتمنى ايضا ان يكون ملف مثالي يقدر الجميع استخدامه حيث في اكثر من مكان لقد عانيت حتى يتم ضبط المخازن وان يكون ملف متكامل ويفيد اخواني في مجالاتهم المختلفه وان يصبح المشروع التعامل عن طريق الفورم كنت استخدم الجداول ولكن لكبر حجم الملف وكي ارفعه على الموقع قد تم تحويل الجداول الى تنسيق عادي Warehouse System.xlsm ولكم جزيل الشكر مقدما

السلام عليكم .. معكم ساجدة العزاوي من العراق خريجة جامعة بغداد/ علوم حاسبات / برمجة صفحتي التعليمية على الفيس بوك بعنوان ( اكسل vba برامج تطبيقات مع ساجدة العزاوي) https://www.facebook.com/sajidaalazzawi313/ قناتي على اليوتيوب متخصصة فى تقديم الشروحات فى كثير من المجالات الكومبيوتر والموبايل (سوفت وير, اكسل vba, ورد, بوربوينت, ببلشر, , شرح برامج وتنصيبها . .يوتيوب https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w من فديوهاتي سلسلة مميزة للبحث بالاسم في الفورم وهي من 13 جزء ج1 بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي تم النشر بتاريخ 31/8/2017 ج2 بحث بالاسم زر تعديل البيانات في اليوزرفورم اكسل VBA ساجدة العزاوي تغير لغة كتابة Textbox ثلاثة اجزاء ج113 كود تغيير لغة الكتابة عربي انكليزي فرنسي تغيير مؤشر الكتابة داخل textbox ساجدة العزاوي vba تم النشر بتاريخ 14/3/2019 ج114 تغيير لغة كتابة اليوزرفورم نغيير لغة textboxe تغيير لغة keyboard عربي اكسل vba ساجدة العزاوي ج115 التحكم بلغة كتابة textbox من خلال optionbutton تغيير لغة يوزرفورم ساجدة العزاوي اكسل vba 20/3/2019 قائمة تشغيل تعلم اكسل vba https://www.youtube.com/watch?v=XGWdEThvQW4&list=PLb_hBgQ-kdgVKPF3X5dFsrFZ5l-R90wJ9

السلام عليكم .. معكم ساجدة العزاوي من العراق خريجة جامعة بغداد/ علوم حاسبات / برمجة صفحتي التعليمية على الفيس بوك بعنوان ( اكسل vba برامج تطبيقات مع ساجدة العزاوي ) https://www.facebook.com/sajidaalazzawi313/ قناتي على اليوتيوب متخصصة فى تقديم الشروحات فى كثير من المجالات الكومبيوتر والموبايل (سوفت وير, اكسل vba, ورد, بوربوينت, ببلشر, , شرح برامج وتنصيبها . .يوتيوب https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w من بعض فديوهاتي لحل مشاكل تواجهنا في برنامج الوررد حل مشكلة التعداد الرقمي الترقيم التلقائي في الوورد ظهور مسافة بين الرقم والنص ساجدة العزاوي word حل مشكلة خروج الجدول خارج حدود الورقة في الوررد Microsoft word ساجدة العزاوي ترقيم صفحات فردية وزوجية مختلفة يمين يسار في رأس وتذييل الصفحة Microsoft word ساجدة العزاوي

ربما كانت ارقام الصفحات التي تريد استبعادها ما بعد الرقم 6 (عن طريق نقلها الى ما بعد الرقم 6) او تم حذف صفحة او اضافة صفحة قبل الصفحة الرقم 6 (ماذا تفعل؟؟؟) لذلك يجب استبعاد هذه الصفحات اينما وجدت أترك لك مهمة حل هذه المشكلة (بعد قليل من التفكير) و عندما تعجز أخبرني

الحمد لله استاذى اتحلت المشكلة غيرت فى الكود هذا السطر For i = 6 To Sheets.Count واخفيت الاصفار بالتنسيق الشرطى احترامى وتقديرى لشخصك الكريم جداااا ربنا يكرمك يارب ويحفظك يارب اخيك باحترام

وعليكم السلام -تفضل عند كتابة الكود يظهر الاسم والقسم1.xlsx

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

لا اعمل بدون ملف مرفق

ربما كان المطلوب و زيادة حبتين ABD_ElAziz.xlsm

Try this macro Option Explicit Sub Fill_data() Dim i%, t% Dim Rg As Range t = 2 With Sheets("data") Set Rg = .Range("A1").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).ClearContents For i = 2 To Sheets.Count If Sheets(i).Name <> "data" Then .Cells(t, 1) = Sheets(i).Name .Cells(t, 2).Resize(, 5).Value = _ Sheets(i).Cells(4, 5).Resize(, 5).Value t = t + 1 End If Next i End With End Sub

الشكر الجزيـــــــــــــــــــــل هذا هو المطلوب 😃

الاستاذ المبدع @husamwahab ولا اروع ولا اجمل من هذا ما شاء اللة جزاك الله عني كل خير .... كل الاحترام والتقدير

بالخدمة استاذ ازهر عبد العزيز لو تلاحظ ان عمل dcount تختلف عن اخواتها dmax ,dfirst ,dlast,dlookup جميع هذه الدوال ترجع الى قيمة في الجدول او الاستعلام اما dcount فلا نحتاج الى قيمة وانما الى عدد سجلات لذا بدل ان اشير الى اسم حقل في الجدول نعوض * بدل اسم الحقل ارجو ان اكون قد وفقت بالشرح ولعل احد اساتذتنا يسعفنا بالشرح الوافي وعذرا للاطالة

تفضل اخي العزيز ارجو ان يكون طلبك RM.rar

حسب فهمي للمطلوب المطلوب لا يتم بالمعادلات لأنه سيعطي حطأ مرجع دائري circular reference لأن الخلية المطلوب نقل القيمة إليها محسوبة ضمن الخلية التي يتم نقلها لذا اقترح عمل شيت خاص بكل عام ويتم جلب مجموع نهاية العام في خانة ما قبله في العام التالي بهذه الطريقة لن توجد أخطاء في المعادلات وفقنا الله جميعا

هو بالفعل accde

جزاكم الله خيراً أخي الكريم @أحمد يوسف نسأل الله لكم التوفيق والسداد.

ممكن لكن يجب أن تستند المعادلة على التاريخ الذي بناء عليه سيتم التغيير لم ألاحظ أي تاريخ في الملف يمكن أن تستند عليه المعادلة لأجل التغيير المطلوب

هل المطلوب تاريخ نهاية العمل؟ إذا كان هذا هو المطلوب فيمكنك استعمال المعادلة التالية في G4 =DATE(YEAR(E4)+F4,MONTH(E4),DAY(E4)-1) ثم سجبها لسفل

وعليكم السلام-تفضل هذا فيه طلبك ورجاءا كلما كان العمل على الملف بالطبع افضل واسرع من على العمل على الفورم ونصيحة ابتعد عن العمل مع الفورم ومشاكله مساعدة فى انهاء مشروع مشتريات ومبيعات ومخزون وهذا برنامج اخر رائع للأستاذ محمد حسن مكتبة الموقع - برنامج مخازن

وعليكم السلام-يمكنك استخدام هذه المعادلة بالخلية H4 سحباً للأسفل =IFERROR(INDEX($M$5:$M$8,MATCH($G6,$N$5:$N$8,0)),"") شكرا لك والحمد لله الذى بنعمته تتم الصاحات , للأسف لا امتلك قناة على اليوتيوب choose numbre1.xlsx

تفضل أخي ان شاء الله يكون حسب المطلوب المستخدم - Copie.rar

تفضل اخي العزيز ارجو ان يكون طلبك test3a.rar

أحسنت استاذ سليم عمل ممتاز بارك الله فيك وجعله فى ميزان حسناتك

تفضل اخي العزيز ارجو ان يكون طلبك حفظ المرفقات-10.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim aFile As String aFile = CurrentProject.Path & "\" & "YY.txt" If Len(Dir$(aFile)) > 0 Then Kill aFile End If تحياتي

بعد اذن استاذنا الرائد طبعا .... على الرغم اننا نبهنا مرارا وتكرارا ان لا وجود لأى مشاركة الا بإحتوائها على ملف مدعوم بشرح كافى عن المطلوب , فغير ذلك مخالف لقوانين المنتدى وسيعرض المشاركة للحذف حيث انه يعمل على اهدار وقت الأساتذة دون جدوى كما انه لا يمكن العمل على التخمين,على الرغم من كل هذا قمت بعمل ملف لك بالمطلوب .... فعليك من البداية فتح مديول جديد ووضع هذا الكود به Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = 44 Public Const VK_LMENU = 164 Public Const KEYEVENTF_KEYUP = 2 Public Const KEYEVENTF_EXTENDEDKEY = 1 وبعد تصميم الفورم عليك بوضع هذا الكود به للطباعة Private Sub CommandButton1_Click() DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 DoEvents Workbooks.Add Application.Wait Now + TimeValue("00:00:01") ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _ DisplayAsIcon:=False ActiveSheet.Range("A1").Select With ActiveSheet.PageSetup .Orientation = xlPortrait .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWorkbook.Close False End Sub وهذا هو الملف print Userform.xlsm

وعليكم السلام, لماذا لا تستخدم خاصية البحث بالمنتدى -تفضل تحويل الصف الى عمود والعكس تحويل الصف إلى عامود والعامود إلى .......... وهذا فيديو ايضاً للشرح طريقتان لتحويل الصفوف لأعمدة والأعمدة لصفوف Excel Training

وعليكم السلام-تفضل حسابات المعرض1.xlsx

تفضل يمكنك هذا بعد مشاهدة هذا الفيديو

يمكنك استخدام معادلة المصفوفة ( Ctrl+Shift+Enter) .... من أعمال استاذنا سليم حاصبيا له منا كل المحبة والإحترام =IFERROR(IF(ROW($C$2)>SUM($C$2),"",INDEX($A$2:$A$100,MATCH(FALSE, COUNTIF($E$1:E1,$A$2:$A$100)=$C$2,0))),"") 81.xlsx

تفضل. اللانتقال التلقائي بمجرد الانتهاء من الرقم الرابع أو غير هدا السطر في الملف الأول من 6 الى 4 و يعمل 100/100 If TextBox1.TextLength = 4 Then OK UserForm TextBox MaxLength.xls

استاذي العزيز حلبي انظر لهذا الملف ولاحظ التعديل في الكود لنفس العمليات الحسابية ولكن بترك السجل الرابع لكل مجموعة فارغ test-CC.rar

هذا موضوع سيفيدك ان شاء الله تحياتي

السلام عليكم علي فرض أن البيانات موجودة بالعمود (A) جرب هذا الكود Sub Macro1() [A9999].End(xlUp).Offset(1, 0).Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Rows.Delete Shift:=xlUp [B1].Select ActiveWorkbook.Save End Sub

أولاً لم أر أي اعجاب لأي رد على موضوعاتك فهل النقر بزر الماوس على اعجاب شيء يأخذ وقتاً ثانيا أنا لا اتعامل مع اليوزرفورم (خبرتي متواضعة بهذا الشأن) ثالثاً يرجى ادراج المشاركة الأخيرة في موضوع مستقل لعل احدهم(من له الخبرة الواسعة في اليوزر) يريد ان يشارك في الأجابة

تم التعديل ملاحظة (أرقام الأعمدة يمكن ان لا تتطابق في صفخات Minho & Laha )لذلك يجب ادراج عامود اضافي لهذه الأرقام في صفحة Repport ) لا وقت لدي لعمل ذلك (تركت أرقام الأعمدة للصفخة Minho) Option Explicit Sub Extact_Data_By_Columns() Rem Created By Salim Hasbaya on 29/5/2020 Application.ScreenUpdating = False Dim M As Worksheet, L As Worksheet, R As Worksheet Dim Rg_M As Range, Rg_L As Range Dim I%, Lr_M%, Lr_L%, RO%, it Dim St_Date As Date, End_Date As Date Dim arr, My_sum#, My_count% Set M = Sheets("Minho"): Set L = Sheets("Laho") Set R = Sheets("Repport") Lr_M = M.Cells(Rows.Count, 1).End(3).Row Lr_L = L.Cells(Rows.Count, 1).End(3).Row R.Range("A2").Resize(26, 3).ClearContents If Not IsDate(R.Range("D2")) Or Not IsDate(R.Range("D2")) Then _ MsgBox "Type Please Correct Dates In The Cells D2 and E2 ": GoTo Leave_Me_Olone St_Date = Application.Min(R.Range("D2:E2")) End_Date = Application.Max(R.Range("D2:E2")) ReDim arr(1 To 26) For I = 1 To 26 arr(I) = I Next '++++++++++++++++++++++++++++++++++++++++ With M .Range("A2:AC" & Lr_M).Interior.ColorIndex = xlNone For I = 2 To Lr_M If .Cells(I, 1) <= End_Date _ And .Cells(I, 1) >= St_Date Then .Cells(I, 1).Resize(, 29).Interior.ColorIndex = 6 End If Next I End With ''++++++++++++++++++++++++++++++++ With L .Range("A2:AC" & Lr_L).Interior.ColorIndex = xlNone For I = 2 To Lr_L If .Cells(I, 1) <= End_Date _ And .Cells(I, 1) >= St_Date Then .Cells(I, 1).Resize(, 29).Interior.ColorIndex = 6 End If Next I End With RO = 2 '++++++++++++++++++++++++++++++++++++++++ With M For Each it In arr My_count = Application.CountA(.Cells(2, it + 3).Resize(Lr_M - 1)) If My_count = 0 Then GoTo NexT_it For I = 2 To Lr_M If .Cells(I, it + 3).Interior.ColorIndex = 6 Then My_sum = My_sum + _ IIf(IsNumeric(.Cells(I, it + 3)), .Cells(I, it + 3), 0) If .Cells(I, it + 3) <> vbNullString Then .Cells(I, it + 3).Interior.ColorIndex = 35 End If End If Next I R.Cells(RO, 1) = it: R.Cells(RO, 2) = IIf(My_sum <> 0, My_sum, vbNullString) My_sum = 0: RO = RO + 1 NexT_it: Next it End With '++++++++++++++++++++++++++++++++++++ RO = 2: My_sum = 0 With L For Each it In arr My_count = Application.CountA(.Cells(2, it + 3).Resize(Lr_L - 1)) If My_count = 0 Then GoTo NexT_itm For I = 2 To Lr_L If .Cells(I, it + 3).Interior.ColorIndex = 6 Then My_sum = My_sum + _ IIf(IsNumeric(.Cells(I, it + 3)), .Cells(I, it + 3), 0) If .Cells(I, it + 3) <> vbNullString Then .Cells(I, it + 3).Interior.ColorIndex = 35 End If End If Next I R.Cells(RO, 3) = IIf(My_sum <> 0, My_sum, vbNullString) My_sum = 0: RO = RO + 1 NexT_itm: Next it End With '++++++++++++++++++++++++++++++++++++ Leave_Me_Olone: Application.ScreenUpdating = True End Sub الملف( للمرة الثّالثة) From_To Row_Column_1.xlsm

السلام عليكم معكم ساجدة العزاوي من العراق اول مشاركة لي في المنتدى فديو مميز سهل رائع لاقى صدى واسع ينفع للكل للمدارس لدوائر الدولة للقطاع الخاص فديو عملته بـ 8 اجزاء ولما شفت كثيرين استفادوا منه عملت فديوين بعنوان في الاكسل متعة وسعادة وفرح فاصبح 10 اجزاء وساكمله باجزاء اخرى ... لانه رائع ومميز وسريع هناك من يريد تنسيبه لنفسه اترككم مع الفديو بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي

ملف اكسل يقوم بحساب فاتورة الكهرباء و الغاز عن الطريقة الجزائرية و بواسطة الماكرو ارجوا ان تعطونا رأيكم فيها أساتذتنا الكرام و الان اتركم مع الرابط الرابط http://www.4shared.com/rar/ON59LPViba/LAHCEN_Facture.html