أ / محمد صالح

تفضل أخي الكريم
ضع هذه المعادلة في الخليةF5 واسحب يمينا
=SUM(OFFSET($C$2,(COLUMN()-6)*3,0,3)) مع مراعاة إبعاد المجموع من آخر صف حيث يتم جمعه مع آخر خلية

لا يوجد أي مشكلة في التحميل 
إلا المرفق المسمى بحروف عربية يظهر بعد تحميله برموز غريبة قليلا 
والحل لهذه المشكلة هو استعمال برنامج internet download manager في تحميل المرفقات 

جرب أن تضع في الخلية G7 هذه المعادلة
=COUNTIFS(C7:F7,"<>"&0,C7:F7,"<>") وهي تعني عد الخلايا بشرطين
ألا تكون فارغة وألا تتساوي صفر
بالتوفيق

إن شاء الله يكون هذا هو المطلوب
تم إضافة معادلة للعمود A ومعادلة للعمود B ومعادلة للعمود C وما بعده
مع إضافة عمود لأسماء العملاء بدون تكرار في الشيت الأول
بالتوفيق
تحصيل عملاء تجريبى.xlsx

جرب هذا التعديل
Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub  

تكمن المشكلة في أن الأرقام التي يصدرها البرنامج لا يعتبرها الإكسل أرقاما
نظرا لأنها تحتوي على رموز غريبة غير مرئية char(254)
لذلك ينبغي علينا :
أولا إصلاح تنسيق الأرقام
ثانيا: إيجاد المفقود من سلسلة الأرقام
تفضل هذا كود إجرائين للغرضين السابقين
Sub mas() lr = Cells(2, 2).End(xlDown).Row Range("A1:L" & lr).NumberFormat = "General" Range("D1:D" & lr).NumberFormat = "@" Range("L1").Value = "القيم المفقودة" For n = 2 To lr Range("b" & n).Value = Replace(Range("b" & n).Value, Chr(254), "") Range("c" & n).Value = Replace(Range("c" & n).Value, Chr(254), "") Range("d" & n).Value = Replace(Range("d" & n).Value, Chr(254), "") Next n FindMissingNumbers Range("b2:b" & lr), Range("l2") End Sub Sub FindMissingNumbers(InputRange As Range, OutputRange As Range) For i = WorksheetFunction.Min(InputRange) To WorksheetFunction.Max(InputRange) If InputRange.Find(i, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then OutputRange.Cells(j + 1, 1).Value = i j = j + 1 End If Next i MsgBox "Done" End Sub بعد تنفيذ الإجراء mas
سيتم تعديل الأرقام والتواريخ وتغيير تنسيق رقم الحساب إلى نص لأنه يبدأ بصفر على اليسار
ثم إيجاد الأرقام المفقودة ووضعها في العمود L
ملحوظة: لا يوجد أرقام مفقودة في ملفك. ولتجربة الكود يمكنك حذف أي عدد من الصفوف بطريقة عشوائية وسيتم كتابتهم في العمود L
بالتوفيق

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

مع كتابة عبارات مثل : حتى يعمل الملف بصورة صحيحة يجب الضغط على زر تمكين المحتوى Enable content
أو ضبط الإكسل على الموافقة على تشغيل جميع الأكواد بهذه الطريقة

بالتوفيق

أشك في ضبط إعدادات اللغة العربية في الويندوز
حاول تنفيذ هذه الخطوات
Control panel --> clock and region --> change date, time, number formats --> administrative - current languge for non-Unicode programs تأكد أنها اللغة العربية 

وإذا قمت بتغييرها سيتم عمل إعادة تشغيل للجهاز
بالتوفيق

حسب فهمي للمطلوب أنك تريد التصفية على حرف الغياب غ ولكن بطريقة أفقية
إن شاء الله يكون هذا هو مطلوبك
بالتوفيق
تصفية أفقية بالمعادلات.xlsx

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي
وربطه بزر أو شكل أو صورة
Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

تفضل أخي الكريم
يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة arr
مع إحاطة الاسم بعلامتي تنصيص واستعمال الفاصلة للفصل بين الأسماء وبعضها
في هذا الكود تم استثناء sheet1 & sheet2
Dim ws As Worksheet, arr As Variant arr = Array("Sheet1", "Sheet2") For Each ws In Worksheets If UBound(Filter(arr, ws.Name)) = -1 Then ComboBox1.AddItem ws.Name Next ws بالتوفيق

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

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

المعادلة تعمل 100%
وتناسب المرفق في مشاركتك الأولى
رجاء مراجعة الخلايا F3 & F5
ستجد أنها تجلب bin1 & bin2 حسب قيمة الخلية F2
بالتوفيق
Classeur2022.xlsx

بعد إذن أخي الكريم عبد الفتاح
ربما يكون هذا هو المطلوب
Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) MsgBox Format(LR, """S21-""00#") End Sub  

حسب فهمي للمطلوب
تم إضافة عمود فارغ بعد العميل رقم 14 حتى تنتظم معادلات أرقام الأعمدة
تم إضافة كود لجلب جميع أسماء العملاء وأرقامهم في العمود A & B
تم وضع معادلة للبحث في قائمة العملاء هذه حتى لا نحتاج سوى رقم العميل ويظهر اسمه مباشرة
تم وضع كود في حدث تغيير الخلية A2 وكتابة رقم العميل يتم تحديث قائمة العملاء ثم الانتقال إلى الخلية الخاصة باسم العميل
بالتوفيق
حسابات العملاء الجديد.xlsb

تفضل هذا هو المطلوب بإذن الله
معادلة بسيطة جدا يمكنك التوصل إليها
ضع في L2 المعادلة التالية ثم اسحب المعادلة لأسفل
=J2+K2-SUMIF(A:A,I2,B:B) وتعني جمع الخلية k2 مع J2 مع طرح مجموع المستهلك في نفس التاريخ الموجود في I2 بدالة sumif
بالتوفيق

لا أدري ما سبب تكرار المواضيع
حسب فهمي للمطلوب تم تعديل الكود ليقوم بنفس الترحيل حتى لو أكثر من صف
يمكن وضع هذا الكود في مودبول جديد
Sub tarheel() lr = Range("a4").End(xlDown).Row Set Sh = Sheets.Add With ActiveSheet .Move after:=Sheets(Sheets.Count) .Name = Sheets.Count - 1 .Range("A1:P12").Borders.Weight = xlMedium .Range("A1:P12").HorizontalAlignment = xlCenter With .Cells(1).Resize(1, 16) .Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "ÚÏÏ ÇáØÈÇáí", "æÒä ÇáØÈíáÉ ", "ÚÏÏ 0.9", "", "ÚÏÏ 1.34") .Interior.ColorIndex = 53 .Font.Bold = True .Font.Color = vbWhite End With Dim sh1 As Worksheet Set sh1 = Sheets("main") For n = 5 To lr lr2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A" & lr2) = sh1.Range("E" & n).Value .Range("C" & lr2) = sh1.Range("f" & n).Value .Range("D" & lr2) = sh1.Range("E" & n).Value .Range("F" & lr2 & ":K" & lr2).Value = Array("DAT010", "1141000022", "JP-PROD.", "JP-WIPDP", "JP-WIPWC", "Flock_4") .Range("N" & lr2) = sh1.Range("c" & n).Value .Range("P" & lr2) = sh1.Range("a" & n).Value + sh1.Range("b" & n).Value .Columns("A:P").EntireColumn.AutoFit Next n End With End Sub مع حذف الكود في حدث عند تغيير قيم الشيت main
مع ربط الزر بالماكرو الجديد tarheel
بالتوفيق

لا أدري ما سبب تكرار المواضيع
حسب فهمي للمطلوب تم تعديل الكود ليقوم بنفس الترحيل حتى لو أكثر من صف
يمكن وضع هذا الكود في مودبول جديد
Sub tarheel() lr = Range("a4").End(xlDown).Row Set Sh = Sheets.Add With ActiveSheet .Move after:=Sheets(Sheets.Count) .Name = Sheets.Count - 1 .Range("A1:P12").Borders.Weight = xlMedium .Range("A1:P12").HorizontalAlignment = xlCenter With .Cells(1).Resize(1, 16) .Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "ÚÏÏ ÇáØÈÇáí", "æÒä ÇáØÈíáÉ ", "ÚÏÏ 0.9", "", "ÚÏÏ 1.34") .Interior.ColorIndex = 53 .Font.Bold = True .Font.Color = vbWhite End With Dim sh1 As Worksheet Set sh1 = Sheets("main") For n = 5 To lr lr2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A" & lr2) = sh1.Range("E" & n).Value .Range("C" & lr2) = sh1.Range("f" & n).Value .Range("D" & lr2) = sh1.Range("E" & n).Value .Range("F" & lr2 & ":K" & lr2).Value = Array("DAT010", "1141000022", "JP-PROD.", "JP-WIPDP", "JP-WIPWC", "Flock_4") .Range("N" & lr2) = sh1.Range("c" & n).Value .Range("P" & lr2) = sh1.Range("a" & n).Value + sh1.Range("b" & n).Value .Columns("A:P").EntireColumn.AutoFit Next n End With End Sub مع حذف الكود في حدث عند تغيير قيم الشيت main
مع ربط الزر بالماكرو الجديد tarheel
بالتوفيق

أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber
ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به
"E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي

يمكنك استعمال هذه المعادلة  في الخلية C2
=MROUND(A2,0.5) وهي تعمل على أةفيس 2007 فما فوق
بالتوفيق 

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

يمكنك استعمال هذا الكود في حدث قبل إغلاق الملف
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Introduction").Range("G10") = "" Sheets("Introduction").Range("G12") = "" ThisWorkbook.Save End Sub وينبغي حفظ الملف بامتداد يسمح بالأكواد مثل xlsb
بالتوفيق

تقريبا الخطأ في أن الشرط في زر الحفظ والتعديل هو
If C Like TextBox6.Value & "*" Then وهذا يعني أن الخلية تشبه الرقم وبعده أي رقم آخر * 
وربما يكون الصواب
If c = Val(Me.TextBox6) Then وهو يعني تساوي الرقم مع الرقم المكتوب في مربع النص
بالتوفيق

حسب فهمي للمطلوب 
أنك تريد تعديل جميع الصفوف التي يتساوى فيها عمود التاريخ مع التاريخ المكتوب في مربع النص
مرة في شيت micro
ومرة في شيت raw
لذلك جرب تعديل كود زر الأمر إلى ما يلي:
Private Sub CommandButton1_Click() Dim ws As Worksheet, we As Worksheet, lr As Long, iRow As Long, n As Long, k As Integer, m As Integer Set ws = Worksheets("micro") lr = ws.Cells(Rows.Count, 6).End(xlUp).row For n = 1 To lr If ws.Cells(n, 6).Value = CDate(Me.TextBox16.Value) Then ws.Cells(n, 13).Value = Me.TextBox10.Value ws.Cells(n, 14).Value = Me.TextBox11.Value ws.Cells(n, 15).Value = Me.TextBox12.Value ws.Cells(n, 16).Value = Me.TextBox13.Value ws.Cells(n, 17).Value = Me.TextBox14.Value ws.Cells(n, 18).Value = Me.TextBox15.Value For k = o To ListBox2.ListCount If ListBox2.Selected(k) = True Then ws.Cells(n, 11).Value = ListBox2.List(k, 0) Exit For On Error Resume Next End If Next k End If Next n Set we = Worksheets("Raw") iRow = we.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).row For m = 1 To iRow If we.Cells(m, 6).Value = CDate(Me.TextBox16.Value) Then we.Cells(m, 16).Value = Me.TextBox10.Value we.Cells(m, 17).Value = Me.TextBox11.Value we.Cells(m, 18).Value = Me.TextBox12.Value we.Cells(m, 19).Value = Me.TextBox13.Value we.Cells(m, 20).Value = Me.TextBox14.Value we.Cells(m, 21).Value = Me.TextBox15.Value For k = o To ListBox2.ListCount If ListBox2.Selected(k) = True Then we.Cells(m, 11).Value = ListBox2.List(k, 0) Exit For On Error Resume Next End If Next k End If Next m End Sub لاحظ استعمال حلقة تكرارية لكل خلايا العمود F ورقمه 6
واستعمال المتغير N & M للتعبير عن رقم الصف الذي تساوت فيه القيم
بالتوفيق