أبوأحـمـد

فوزى فوزى luxorman احمد عبدالحليم شكرا لدعواتكم وفقكم الله

المعذرة يوجد خطأ في عدم تثبيت نطاق هل هذا ما تريد اوفيسنا تايم شيت (1).xlsx

وعليكم السلام حل آخر =(SUMPRODUCT(الصرف!$C$2:$C$8;--(MONTH(الصرف!$A$2:$A$8)=MONTH(D2))*(الصرف!$B$2:$B$8=$A$1)*(الصرف!$C$2:$C$8>0))*$L$1)-(SUMPRODUCT(الصرف!$C$2:$C$8;--(MONTH(الصرف!$A$2:$A$8)=MONTH(D2))*(الصرف!$B$2:$B$8=$A$1)*(الصرف!$C$2:$C$8<0))*-1) مصنف (1).xlsx

لحل المشكلة انسخ العمود اللي فيه معادلة ثم إلصقه كقيم

وعليكم السلام تفضل اوفيسنا تايم شيت (1).xlsx

غريبة عندي يعمل بدون مشاكل ملاك 2023.xlsb

وعليكم السلام تفضل Private Sub CommandButton6_Click() Dim i Dim lrw lrw = Sheets("الملاك").Cells(Rows.Count, 3).End(xlUp).Row For i = 2 To lrw If TextBox2.Text = Cells(i, 3) Then If MsgBox("هل تريد حذف " & " " & Cells(i, 3) & _ vbNewLine & " ", vbYesNo + vbQuestion + vbMsgBoxRight, "تنبيه") = vbNo Then Exit Sub Omar_1.Range("A" & i & ":R" & i).Delete Call Fil_list Exit For End If Next i End Sub

شكرا أساتذتي لمروركم الجميل ودعمكم المستمر

نعم صحيح 1= لا يوجد تكرار وهذا تعديل للمعادلة لزيادة التأكد تم إضافة TRIM لحذف الفراغات =SUMPRODUCT(((TRIM(RIGHT($A1:$A$1;6)))=TRIM((RIGHT(A1;6))))*1)

وعليكم السلام يمكن أيضا عمل الفكرة بالكود أمر طباعة وزيادة العدد ويمكن إضافة عبارات مع الرقم تفضل أرقام.xlsx

السلام عليكم ورحمة الله وبركاته النسخة تجريبية وبدون أكواد برامج المواقيت كثيرة وأكثر احترافية وفي كل جوال ولكن بين فترة وأخرى أحب أن أتحدى الأكسل وفي كل مرة يكسب التحدي ويبدى امكانياته الهائلة مواقيت الصلاة.xlsb

إعمل فرز أو تصفية حسب الرقم والعدد أكبر من 1 مكرر احذفه

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

ماذا تقصد بـ إذا تقصد الدمج ، فأتوقع أن ذلك صعب بالكود لعد انتظام الخلايا فبعضها 3 صفوف وبعضها أربع والنص غير منتظم

تفضل الملف بعد التعديل بدون كود وهذا الكود إذا كنت تحتاج الكود لملف آخر مع تعديل أرقام الصفوف والأعمدة حسب حاجتك Sub t() For i = 1 To 8 Range(Cells(1, 9), Cells(30, 9)).Select Selection.Cut Range(Cells(1, i), Cells(30, i)).Select Selection.Insert shift:=xlToRight Next End Sub عكس اعمدة الجدول مع تجميع خلايا الجدول.xlsx

وعليكم السلام كحل مبدئي احذف الأسطر الزائدة في الجدول ومن خصائص الجدول في الأكسل أنه إذا كتبن في الخلية أسفله يضيف سطر جديد ويضمن الصيغ للرفع2.xlsx

بعد اذن الأستاذ محمدي عبد السميع حتى لا يتأخر طلب الغالي spyhearts Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Column = 3 And Target.Row = 5 Then ChaingeLanguage "English" Else ChaingeLanguage "Arabic" End If End Sub

الألقاب آخر همي وجودي هنا لدفع زكاة العلم الذي تلقيته من أساتذتي في هذا المنتدى على مدى عشرين سنة جرب عندما يكون العدد 73 أو باقي القسمة 1

وعليكم السلام ورحمة الله وبركاته تفضل =SUMIFS($B$2:$G$2;B3:G3;">0") SUM hour.xlsx

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

وعليكم السلام تفضل البطاقة المدرسية.xlsm

وعليكم السلام حل آخر تعديل على تقسيم-جدول-على-3-جداول-VBA-Solution.xlsm

في بداية الموضوع تقول: وفي الرد تقول : وأنا أقول هل الملف إللي أرفقك نفس المطلوب؟

تفضل q1_.xlsx

تفضل Private Sub CommandButton1_Click() Dim ws1, ws2, ws3 As Worksheet Dim lastRow, i, RowM2, RowM3 As Long Set ws1 = ThisWorkbook.Sheets("بيانات") Set ws2 = ThisWorkbook.Sheets("حرر") Set ws3 = ThisWorkbook.Sheets("لم يحرر") RowM2 = 8: RowM3 = 8 ws2.Range("A8:D1000") = "" ws3.Range("A8:D1000") = "" lastRow = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row For i = 8 To lastRow If ws1.Cells(i, 5).Value = "حرر" Then ws2.Range("A" & RowM2 & ":D" & RowM2).Value = ws1.Range("A" & i & ":D" & i).Value RowM2 = RowM2 + 1 Else ws3.Range("A" & RowM3 & ":D" & RowM3).Value = ws1.Range("A" & i & ":D" & i).Value RowM3 = RowM3 + 1 End If Next i End Sub