البحث في الموقع

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق حاولت أن أقوم قدر الإمكان بعمل معادله لجلب بيانات من شيت (Trial Balance) إلى شيت (General Ledger Entries) ضمن نفس الملف وذلك على مستوى الرصيد الإفتتاحى وأيضاً على مستوى كل شهر من الشهور. ولكنى وفى حدود إستطاعتى لم أتمكن من ذلك إلا من خلال إستخدام أعمده إضافية (مثال ذلك عمودى D & E) وهذه هى النقطه الأولى التى أرغب فى الإستغناء عنها. كما أنى لم أتمكن من جلب البيانات إلا بنفس ترتيبها بالشيت الأول (Trial Balance) بغض النظر عن طبيعتها (مدين ، دائن) وهى النقطه الثانية التى أرغب فى تفاديها أيضاً. لذا أرجو منكم التكرم بتصويب (ولكم بالطبع مطلق الحريه فى تعديل / تغيير) المعادله الأولى بحيث تأتى بالبيانات وإن كنت أتمنى ألا يتم اللجؤ إلى أعمده إضافيه. كما أرجو بالنسبة للنقطه الثانية أن يتم دائماً جلب بيانات العمود الأول (المدين) أولاً ثم يلى ذلك جلب بيانات العمود الذى يليه (الدائن) ثانياً وذلك على مستوى الرصيد الإفتتاحى وأيضاً على مستوى كل شهر من الشهور. أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Bringing data equation.rar

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق (كود) يقوم بعدم (معاينة) وعدم (طباعة) الأسطر الفارغة فهل بالإمكان إضافة تعديل للكود بحيث يقوم أيضاً بعدم (معاينة) وعدم (طباعة) الأعمدة الفارغة وذلك للمدى (الأعمده) فى النطاق من (عمود E : عمود AC) فقط وذلك إعتماداً على قيمة كل عمود بالسطر 65 أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Eliminate empty columns from printing.rar

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء الكودان التاليان يعملان على نفس الملف ونفس الشيت أيضاً (مرفق ملف) لذا أرجو التكرم بدمجهما معاً فى ليصبحا كود واحد بدلاً من إثنان الكود الأول : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2,E6,C6,C7")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next If Target Is emptey Then Sheet2.Range("B12:C403,E12:N400").ClearContents R = 12: sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0 For I = 2 To Sheet1.Range("C2000").End(xlUp).Row + 1 Application.ScreenUpdating = False If Sheet2.Range("E6").Value = Sheet1.Cells(I, "C") Then If Sheet2.Range("C6").Value > Sheet1.Cells(I, "H") Then sum3 = sum3 + Sheet1.Cells(I, 1): sum4 = sum4 + Sheet1.Cells(I, 2) End If If Sheet2.Range("C7").Value = "" Then GoTo a2 If Sheet2.Range("C7").Value >= Sheet1.Cells(I, "H") Then a2: If Sheet2.Range("C6").Value = "" Then GoTo a3 If Sheet2.Range("C6").Value <= Sheet1.Cells(I, "H") Then a3: Sheet2.Cells(R, 2) = Sheet1.Cells(I, 1) Sheet2.Cells(R, 3) = Sheet1.Cells(I, 2) Sheet2.Cells(R, 5) = Sheet1.Cells(I, 5) Sheet2.Cells(R, 10) = Sheet1.Cells(I, 9) Sheet2.Cells(R, 11) = Sheet1.Cells(I, 7) Sheet2.Cells(R, 12) = Sheet1.Cells(I, 6) Sheet2.Cells(R, 13) = Sheet1.Cells(I, 8) Sheet2.Cells(R, 14) = R - 11 sum1 = sum1 + Sheet1.Cells(I, 1) sum2 = sum2 + Sheet1.Cells(I, 2) R = R + 1 End If End If End If Next I [L5] = sum1: [M5] = sum2: [N5] = sum1 - sum2 [L4] = sum3: [M4] = sum4: [N4] = sum3 - sum4 [L7] = [N5] + [N4] If [L7] < 0 Then [N7] = "دائن" ElseIf [L7] > 0 Then [N7] = "مدين" Else [N7] = "--" End If End If End If If Not Intersect(Target, Range("C2")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.ScreenUpdating = False [E6] = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("data"), 2, False) End If If Not Intersect(Target, Range("E6")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.EnableEvents = False Target.Offset(-4, -2).Value = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("G1:H200"), 2, False) Application.EnableEvents = True End If الكود الثانى : Dim MyRange As Range Set MyRange = Union([B12:C12], [D12:D400], [B404:D404], [C409:N410]) If Intersect(Target, MyRange) Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In MyRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(#,##0.00_);[Red]_((#,##0.00);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Code Merge.rar

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق أريد إستخراج أكبر وأصغر قيمة من القيم الموجوده بعمود لكل شهر على حده وذلك بالسطران 5 ، 6 علماً بأنه فى حالة عدم تواجد قيم لأحد الشهور تظهر خليتى أكبر وأصغر قيمة كما لو كانت فارغه تماماً (أقصد علامة التنصيص هذه "") أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Max-and-Min-Value-in-every-month.rar