احمد عبدالحليم

جرب الملف اولا واعلمنى بالنتيجة وان شاء الله سوف اقوم بشرح كل سطر فى الكود

السلام عليكم هل يمكن التعديل بحيث يكون عرض البيانات والصور في UserForm بدلا من الاكسل ام يجب عمل المطلوب على الاكسل كما في الملف

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

السلام عليكم بدلا من انشاء شيت لكل بنت وكثرة الشيتات طالما نفس البيانات كما هي اولا استخدمت vba لعمل المطلوب وليس المعادلات ثانيا لا يمكن عمل merge للخلايا فى كلا من عمود التاريخ وعمود البيان هتلاقى فائمة منسدلة فى الخلية c1 فى sheet3 اختر البند وسوف يتم الحصول على البيانات الخاصة للبند عند فتح الملف قم بتفعيل الماكرو ليعمل الكود File 001 Test.xlsm

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

تفضل اخى جرب واعلمنى بالنتيجة تم اضافة اعادة ترتيب البيانات تصاعديا حسب التاريخ جرب الكود والملف تعديل جلب التفاصيل.xlsm

تفضل اخى الفاضل لعله المطلوب test.xlsx

السلام عليكم ورحمة الله وبركاته اخى الفاضل @kkfhvvv تفضل هذا الكود يقوم بتصفية البيانات للثلاث الاعمدة جربه لعله يكون المطلوب Sub RemoveDuplicatesRange() Dim lastRow As Long lastRow = Sheets("البيانات").Cells(Sheets("البيانات").Rows.Count, "O").End(xlUp).Row Sheets("البيانات").Range("O1:Q" & lastRow).Copy Sheets("ارقام").Range("A1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False lastRow2 = Sheets("ارقام").Cells(Sheets("ارقام").Rows.Count, "A").End(xlUp).Row Sheets("ارقام").Range("$A$2:$C$" & lastRow2).RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo End Sub تقبل تحياتى

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

السلام عليكم ورحمة الله وبركاته السبب هنا عند لصق الارقام الى الاكسل فان علامة السالب اصبحت فى ناحية اليمين اليك الملف يحتوى على كود vba لتعديل مكان علامة السالب من اليمين الى اليسار كل ما عليك هو تحديد الارقام التى تريد تعديلها ثم النقر على زر تعديل الارقام وسوف يقوم بحل المشكلة باذن الله تعالى واليك صورتين لكيفية العمل ايضا العلامة بالسالب.xlsm

اخى الفاضل انت ما هو المطلوب

وعليكم السلام ورحمة الله جرب الكود التالى Dim ws As Worksheet: Set ws = Sheets(1) Dim sh As Worksheet: Set sh = Sheets(2) sh.Range("A5:N1000") = "" k = 5 lr = ws.Range("A" & Rows.Count).End(xlUp).Row For i = 3 To lr Dim columns(1 To 3) As Variant columns(1) = "J" columns(2) = "L" columns(3) = "N" For c = 1 To 3 Dim column As String column = columns(c) If ws.Range(column & i) >= sh.[D2] And _ ws.Range(column & i) <= sh.[G2] Then For j = 2 To 20 sh.Cells(k, j) = ws.Cells(i, j) Next k = k + 1 End If Next c Next i

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

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

السلام عليكم بها نبدا الاكواد الخاصة Google Sheets هى بلغة JavaScript ارفق الملف وما تحتاجه ربما استطيع مساعدتك

اخى الفاضل ما فائدة رقم القائمة وهو فى اخر الجدول استخدم معادلة الامس فى مع تغيير مدى الخلايا لكل جدول تقبل تحياتى

تفضل اخى الفاضل ياسر جرب الملف Example (1).xlsm

قم باضافة التالى Me.Frame1.Height = Me.Frame1.Height + 14 If Me.Frame1.Height > 365 Then Me.Frame1.Height = 365 Me.ListBox2.Height = 280 End If

وعليكم السلام ورحمة الله وبركاته استخدم هذه المعادلة لعلها المطلوبة =COUNTIF(B1:B10;">0")

وعليكم السلام ورحمة الله وبركاته الملف المرفق محرر الاكواد مغلق بكلمة سر جرب الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) Dim NextCell As Range Dim ActiveCell As Range If Not Intersect(Target, Me.Range("C14:L35")) Is Nothing Then Set ActiveCell = Target Select Case ActiveCell.Column Case 3 Set NextCell = ActiveCell.Offset(0, 3) Case 6 Set NextCell = ActiveCell.Offset(0, 6) Case 12 If ActiveCell.Row < 35 Then Set NextCell = Me.Cells(ActiveCell.Row + 1, 3) End If End Select If Not NextCell Is Nothing Then NextCell.Activate End If End If End Sub فى حدث الورقة Change

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

وعليكم السلام ورحمة الله وبركاته ضع هذا قبل اخر End If Me.Frame1.Height = Me.Frame1.Height + 14 Me.ListBox2.Height = ListBox2.Height + 14 Me.Label8.Top = Me.Frame1.Top + Me.Frame1.Height + 10: Me.Label9.Top = Me.Label8.Top + Me.Label8.Height: Me.Label10.Top = Me.Label9.Top + Me.Label9.Height Me.TextBox1.Top = Me.Label8.Top: Me.TextBox2.Top = Me.TextBox1.Top + Me.TextBox1.Height: Me.TextBox3.Top = Me.TextBox2.Top + Me.TextBox2.Height Me.CommandButton1.Top = Me.Label8.Top

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

تفضل اخى الفاضل @محمد متولي اتمنى ان يكون هذا كا تريده بناءا على توضيح مطلبك ولكن يجب ان يكون ترتيب البيانات كما هو بالظبط ايضا تاكد من النتيجة لكل موظف قبل اعتماد المعادلة تقبل تحياتى سلف العاملين 2023.xlsx

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