طارق محمود

الكودين هما Sub Macro1() Sheets("تصفية بالراتب").[B21:M1000].FillLeft ' لمسح البيانات والفورمات القديمة [A2:G1002].AutoFilter ActiveSheet.[A2:G1002].AutoFilter Field:=7, Criteria1:=[J17] & [K17], Operator:=xlAnd LR = [A2000].End(xlUp).Row Range("A2:D" & LR).Copy (Sheets("تصفية بالراتب").[B21]) Range("F2:G" & LR).Copy (Sheets("تصفية بالراتب").[F21]) Application.CutCopyMode = False ActiveSheet.AutoFilterMode = off End Sub Sub Macro2() Sheets("تصفية تاريخ من الى").[B2:M1000].FillLeft ' لمسح البيانات والفورمات القديمة [A2:G1002].AutoFilter ActiveSheet.[A2:G1002].AutoFilter Field:=3, Criteria1:=">=" & [J12], Operator:=xlAnd, Criteria2:="<=" & [K12] LR = [A2000].End(xlUp).Row Range("A2:G" & LR).Copy (Sheets("تصفية تاريخ من الى").[B2]) Application.CutCopyMode = False ActiveSheet.AutoFilterMode = off End Sub

السلام عليكم أخي العزيز تفضل المرفق وبه تصليح للتصفية حسب الراتب إضافة كود للتصفية حسب تاريخ الولادة وأترك لك عمل كود التصفية حسب تاريخ الالتحاق بالوظيفة تصفية متقدمة2.rar

السلام عليكم أخي العزيز أولا : أهلا ومرحبا بك بين إخوانك ثانيا : لاأدري إن كنت فهمت ماتريد أم لا أرجو مراجعة المرفق ولو عندك أي أسئلة أو تعديلات ، لاتتردد الكشف اليدوي2.rar

السلام عليكم حيرتني يا أخي الكريم سابقا كنت أحذف السند من اليومية فقلت لي في المشاركة #15 والآن تقول هذا ماكان يتم أولا أكرر أنا لست محاسبا ، فأرجو ان تصيغ ماتريده بلغة سهلة

السلام عليكم أخي العزيز جرب فقط علي ورقة القيد إذا كان هذا هو المطلوب ، فسوف أتمم العمل علي ورقة الصرف مثلا جرب أن تستدعي قيد مثل 52 به بيانات كثيرة ومتقطعة (بياناته ليست متصلة في ورقة اليومية بعضها يبدأ من السطر 405 والآخر من السطر 448 مع تداخل قيد آخر عند السطر 446) ستجد الفورم تمتد لأكثر من 20 سطر (وليست كما هي محددة بالعشرين) وعند إعادة الترحيل سيضع البيانات الجديدة بالأحمر أعلي أول تواجد لهذا الرقم وعند إستدعاء سند قيد آخر ، سترجع الفورم لشكلها الأول وهكذا محاسبة 2012_3.rar

السلام عليكم كوني لست محاسبا ، فمازال هناك أشياء لاأفهمها مثل النقطة الأولي : سند قيد رقم 29 ، سند قيد رقم 52 فبياناتهما أكبر بكثير من عدد سطور الورقة يمكنني التغلب علي ذلك ، فقط أود أن أفهم كيف ادخلت البيانات؟ ، أم أنك أدخلتها يدويا؟ النقطة الثانية : هل يجوز أن تدخل بيانات برقم ثم بعد عدد آخر من القيود تدخل بيانات أخري بنفس رقم السند؟ النقطة الثالثة : هل يمكن جعل أرقام منفصلة لكل صنف من السندات مثلا سند الصرف يبدأ دائما من اليسار برقم 1 مثل 1001 - 1042 - 1452 وسند القيد يبدأ دائما من اليسار برقم 2 مثل 2001 - 2042 - 2452

السلام عليكم أخي الحبيب / عبدالله باقشير مجرد مروركم شرف كبير فمابالكم بالمشاركة ، جزاك الله كل خير أخي العزيز / خالد المرفق بدون أكواد ، فقط معادلات جرب المرفق 2007 وإذا لم يفتح إفتح الآخر 2003 وغير المعادله في الخلية E20 من =IF(ISERROR(OFFSET(DataBase!$A$1,MATCH(A20,DataBase!$A:$A,0)-1,MATCH(D20,DataBase!$A$3:$H$3,0)-1)),0,OFFSET(DataBase!$A$1,MATCH(A20,DataBase!$A:$A,0)-1,MATCH(D20,DataBase!$A$3:$H$3,0)-1)) التي إضررت إليها بطولها في 2003 غيرها إلي =IFERROR(OFFSET(DataBase!$A$1,MATCH(A20,DataBase!$A:$A,0)-1,MATCH(D20,DataBase!$A$3:$H$3,0)-1),0) ثم انسخها بالسحب لأسفل لأن الدالة IFERROR غير موجودة في 2003 تفضل المرفق فاتورة مبيعات.rar

السلام عليكم تفضل أخي المرفق به المطلوب تسجيل ماكرو.rar

ولايهمك أخي الحبيب / محمود بل الأفضل تعدد الحلول للإثراء كما هو شعارنا بالمنتدي جزاك الله خيرا لقد نبهني حلك إلي خطأ في حلي لبعض الخلايا التي عدد حروفها أقل من 6 لذلك الملف المرفق به التعديل تحليل ارقام3.rar

السلام عليكم أخي العزيز أنظر المعادلات بالأعمدة التي باللون ألأزرق في المرفق تحليل ارقام2.rar

السلام عليكم أخي الكريم بالإضافة لمشاركة العزيز الغالي أخونا / دغيدي يمكنك مراجعة الموضوع التالي http://www.officena.net/ib/index.php?showtopic=28247&hl=&quot;%D8%AA%D9%82%D9%84%D9%8A%D9%84%20%D8%AD%D8%AC%D9%85%20%D8%A7%D9%84%D9%85%D9%84%D9%81&quot;#entry136483 وكذلك الموضوع التالي http://www.officena.net/ib/index.php?showtopic=41846&hl=&quot;%D8%AA%D9%82%D9%84%D9%8A%D9%84%20%D8%AD%D8%AC%D9%85%20%D8%A7%D9%84%D9%85%D9%84%D9%81&quot;#entry238159

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

السلام عليكم أخي العزيز أرجو مراجعة الموضوع http://www.officena.net/ib/index.php?showtopic=43197 قد تجد فيه أكثر مما تريد

السلام عليكم أخي العزيز كان لك موضوع في هذا الخصوص منذ أسبوعين تقريبا ، وأجبتك عليه لماذا لم تسأل في نفس الموضوع http://www.officena.net/ib/index.php?showtopic=43143&hl= لازم تحاول أولا أو تشرح ماالذي لم تفهمه لنعيد العمل معا عليه

السلام عليكم أخي رائد تقول : "بعد التعديل على المستند _ان استوجب التعديل أو الأضافه عليه_سيحفظه بصيغته الجديده المعدلة" هل تريد ألا يحذف السند قبل التعديل ويحفظ النسخة المعدلة أيضا باللون الأحمر؟ وتقول : "وفي هذه الحاله بعد تعديل المستند الذي تم استدعاؤه سأحتاج الى زر حفظ المستند بعد التعديل وسأحتاج الى زر أضافة مستند جديد لبدء عمل جديد" لن تحتاج لزر إضافة جديد ، فقط تحتاج لتغيير معادلة الزر الموجود ليبدأ التسلسل بعد آخر رقم للندات الموجود في ورقة اليومية ، هل هذا صحيح؟ إرسل لي الملف لأراجعه

ليست المشكلة في عدد الصفحات المشكلة في معادلة التنسيق الشرطي التي في الصفحة أخبرني ماهي علاقة الرقم 4 أو الرقم 11 بالتنسيق الشرطي برقم الصفحة وسأخبرك بالتعديل اللازم في الكود

السلام عليكم أخي العزيز عذرا لتأخري بالرد أنت غيرت في معادلة التنسيق الشرطي التي بنينا عليها الكود في الأول إذا تغير الرقم 4 في الكود إلي الرقم 11 كما بالتنسيق الشرطي الجديد ستعمل الدالة بلامشاكل الأول If y = 4 Then x = x + 1 Next الثاني If y = 11 Then x = x + 1 Next جرب وأخبرني

السلام عليكم بعد إذن أستاذنا / أبا نصار تفضل أخي أبا أنس جرب المرفق Suppliers2012_T.rar

طبعا يلزم شوية تعديل في الكود ليكون مرجعه بالورقة "work" ولاتنسي التعديل في عناوين الثلاث خلايا العلوية المحتوية علي التقدير (ضعيف متوسط جيد) الكود بعد التعديل Function cls(nm As String, grd As String) As String On Error GoTo 10 With Sheets("work") rw = WorksheetFunction.Match(nm, .[B:B], 0) For col = 3 To 10 Select Case .Cells(rw, col) / .Cells(4, col) Case Is < 0.5 da3eef = da3eef & "& " & .Cells(3, col) Case Is > 0.5 good = good & "& " & .Cells(3, col) Case Is = 0.5 wasat = wasat & "& " & .Cells(3, col) End Select Select Case grd Case [E7] cls = da3eef Case [G7] cls = good Case [F7] cls = wasat End Select Next col End With If Len(cls) > 1 Then cls = Right(cls, Len(cls) - 1) 10 End Function طبعا لاحظت أن عناوين خلايا التقدير تغيرت إلي [E7] ، [F7] ، [G7] تفضل المرفق Choose_Class_as_degrees2.rar

السلام عليكم تفضل المرفق2 كود حذف المكرر بمجال افقى2.rar

السلام عليكم أخي رائد راجع المرفق وأنظر إن كان لك طلبات أخري محاسبة 2012_2.rar

لسلام عليكم أخي العزيز أنا فقط أعدت كتابته للتنسيق وهو يعمل جيدا وبسرعة Private Sub Worksheet_Change(ByVal Target As Range) Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Range([B3:x15000], [B3:x15000].End(xlDown)).Select [B3:x15000].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[AA1:AD2], Unique:=False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic [B2].Select End Sub إما ان يكون حجم الملف كبير أو أن يكون التغيير في هذه الورقة مرتبط بكود تغيير آخر في ورقات أخري لابد ان تراجع أو ترسل نسخة من الملف كله وكنصيحة مفيدة يمكنك تقليل الوقت بتحديد المساحة المحتمل التغيير فيها فهذا الكود يتم تنشيطه مع أي تغير في أي خلية بالورقة كلها

أخي العزيز الكود بيشتغل فقط علي أساس أن الثلاث خلايا العلوية المحتوية علي التقدير (ضعيف متوسط جيد) علي أساس أنها بالترتيب في العناوين [F25], [G25], [H25] غير كما تحب ثم غير في الكود بالتبعية في الجزء الأخير .. .. Select Case grd Case [F25] cls = da3eef Case [G25] cls = good Case [H25] cls = wasat End Select Next col .. ..

السلام عليكم تفضل المرفق كود حذف المكرر بمجال افقى.rar

السلام عليكم عذرا أخي فعلا لم اقرأ المطلوب جيدا تفضل المرفق وبه دالة مستحدثة لهذا الغرض الدالة هي Function cls(nm As String, grd As String) As String On Error GoTo 10 rw = WorksheetFunction.Match(nm, [B:B], 0) For col = 3 To 10 Select Case Cells(rw, col) / Cells(4, col) Case Is < 0.5 da3eef = da3eef & "& " & Cells(3, col) Case Is > 0.5 good = good & "& " & Cells(3, col) Case Is = 0.5 wasat = wasat & "& " & Cells(3, col) End Select Select Case grd Case [F25] cls = da3eef Case [G25] cls = good Case [H25] cls = wasat End Select Next col If Len(cls) > 1 Then cls = Right(cls, Len(cls) - 1) 10 End Function Choose_Class_as_degrees.rar