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

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

تفضل اخى جرب واعلمنى بالنتيجة تم اضافة اعادة ترتيب البيانات تصاعديا حسب التاريخ جرب الكود والملف تعديل جلب التفاصيل.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

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

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

شكرا اخى الفاضل عمر الجزاوى على كلماتك الطيبة

السلام عليكم بها نبدأ اى عمود خاص باسماء الموظفين هل هو العمود a ام b

اضافه بايثون للاكسل سوف يتعدى حدود vba