mostafa albatrawy قام بنشر نوفمبر 10, 2015 قام بنشر نوفمبر 10, 2015 السلام عليكم اخوانى الاعزاء مرفق شيت اكسيل مكون من 6 ورقات ورقة قيد يومية والباقى للشهور وهم عبارة عن نموذج ليومية امريكية المطلوب بعد ادخال البيانات بالورقة الاولى ( قيد اليومية ) يتم ترحيل البيانات الى الشهر المناسب بناء على رقم القيد والتاريخ كل فى مكانة ثم حفظ البيانات فى الشهر المرحل لة البيانات ومسح المعلومات الموجودة بقيد اليومية يومية الأمريكية.rar 1
mostafa albatrawy قام بنشر نوفمبر 10, 2015 الكاتب قام بنشر نوفمبر 10, 2015 السلام عليكم اخوانى الاعزاء مرفق شيت اكسيل مكون من 6 ورقات ورقة قيد يومية والباقى للشهور وهم عبارة عن نموذج ليومية امريكية المطلوب بعد ادخال البيانات بالورقة الاولى ( قيد اليومية ) يتم ترحيل البيانات الى الشهر المناسب بناء على رقم القيد والتاريخ كل فى مكانة ثم حفظ البيانات فى الشهر المرحل لة البيانات ومسح المعلومات الموجودة بقيد اليومية يومية الأمريكية.rar
الـعيدروس قام بنشر نوفمبر 10, 2015 قام بنشر نوفمبر 10, 2015 ارفق الملف لم اراه اضغط ملف الاكسل ثم ارفقه في المشاركه
mostafa albatrawy قام بنشر نوفمبر 10, 2015 الكاتب قام بنشر نوفمبر 10, 2015 تم اضافة الملف يومية الأمريكية.rar
الـعيدروس قام بنشر نوفمبر 10, 2015 قام بنشر نوفمبر 10, 2015 (معدل) السلام عليكم جرب هذا الكود Sub Abad_Tr() Dim Sh As Worksheet Dim Shn As Worksheet Dim Cl, Cl1, Rw Dim Nm_1 As String Set Sh = Sheets("قيد اليومية") For R = 10 To 32 If Sh.Cells(R, "H") <> "" Then If Val(Sh.Cells(R, "D")) <> Val(Sh.Cells(R, "E")) Then MsgBox "يوجد خلل في القيد فارق بين الدائن والمدين" & R Exit For Exit Sub End If If Sh.Cells(R, "D") <> "" Or Sh.Cells(R, "E") <> "" _ Or Sh.Cells(R, "F") <> "" Or Sh.Cells(R, "G") <> "" _ Or Sh.Cells(R, "H") <> "" Then Nm_1 = Shet_My(Sh.Cells(R, "H")) If My_Shet(Nm_1) = True Then Set Shn = Sheets(Nm_1) With Shn Cl = Clumn_My(Shn, Sh.Cells(R, 6), "F") Cl1 = Clumn_My(Shn, Sh.Cells(R, 7), "G") Rw = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Cells(Rw, Cl) = Sh.Cells(R, 4) .Cells(Rw, Cl1) = Sh.Cells(R, 5) .Cells(Rw, 3) = Sh.Cells(R, 8) .Cells(Rw, 1) = Sh.Cells(7, 9) .Cells(Rw, 2) = Sh.Cells(4, 7) & "/" & Sh.Cells(4, 6) & "/" & Sh.Cells(4, 5) End With End If Else MsgBox "يوجد فراغ في احد بنود القيد قم بتصحيحه واعد تنفيذ الكود" Exit For Exit Sub End If End If Next Sh.Range("D10:I32").ClearContents Sh.Range("I7").ClearContents End Sub Private Function Shet_My(Nm As String) As String Dim Sht As Worksheet For Each Sht In Sheets If Nm Like "*" & Sht.Name & "*" Then Shet_My = Sht.Name Exit Function End If Next End Function Function My_Shet(Sh_Nm As String) As Boolean If Sh_Nm = "" Then My_Shet = False: Exit Function My_Shet = Evaluate("ISREF('" & Sh_Nm & "'!A1)") End Function Private Function Clumn_My(Sn As Worksheet, Nm$, Num As String) As Integer Dim C, Lc Lc = Sn.Range(Split(Sn.UsedRange.Address, "$")(3) & 1).Column For C = 4 To Lc If Sn.Cells(4, C) Like Nm Then Select Case Num Case Is = "F" Clumn_My = Sn.Cells(4, C).Column Case Is = "G" Clumn_My = Sn.Cells(4, C + 1).Column End Select Exit Function End If Next End Function تم تعديل نوفمبر 10, 2015 بواسطه الـعيدروس 1
الـعيدروس قام بنشر نوفمبر 10, 2015 قام بنشر نوفمبر 10, 2015 (معدل) على هذ الرابط http://www.officena.net/ib/topic/64789-يومية-امريكية/?do=findComment&comment=421655 تم تعديل نوفمبر 10, 2015 بواسطه الـعيدروس
mostafa albatrawy قام بنشر نوفمبر 10, 2015 الكاتب قام بنشر نوفمبر 10, 2015 اخى العزيز - العيدروس كم انا شاكر لك حسن تعاونك ولكنى لم اقم بكتابة اكواد من قبل على شيت اكسل لذلك لا اعرف ابن اضع هذا الكود ان امكن مساعدتى
الـعيدروس قام بنشر نوفمبر 10, 2015 قام بنشر نوفمبر 10, 2015 هذا ملفك وبه الكود بعد كتابة القيد انقر زر ترحيل القيد يومية الأمريكية.rar 1
mostafa albatrawy قام بنشر نوفمبر 11, 2015 الكاتب قام بنشر نوفمبر 11, 2015 اخى العزيز - العيدروس شكرا جدا على المساعدة ولكن عندما اقوم بالضغط على زر الترحيل لا يقوم بعملية الترحيل اريد ان يكون الترحيل حسب التاريخ الموجود بورقة القيد بمعنى ان يكون يناير يرحل الى يناير وهكذا لان ورقة القيد سيتم استخدامها لجميع الشهور حتى شهر 12 وايضا رقم القيد لان كل شهر به عدد من القيود
الـعيدروس قام بنشر نوفمبر 11, 2015 قام بنشر نوفمبر 11, 2015 ارى باقي الاوراق بها معادلات وكيف تريد الترحيل اليها اكتب قيد واعطيني سمبل من النتيجه التي تريدها كي افهم طلبك وان شاء الله خير
mostafa albatrawy قام بنشر نوفمبر 12, 2015 الكاتب قام بنشر نوفمبر 12, 2015 اخى العيدروس بعد التحية اذا قمت باستخدام شهر بناير على سبيل المثال فانك تكتب 1- رقم القيد مثلا 1 2- التاريخ مثلا 1-1-2015 3- شرح القيد 4 - القيد مثلا من ح المصروفات --------- الى ح الخزينة بالجنيه 5- وضع القيم مثلا 10000 فى هذه الحاله ستجد ان 10000 موجودة فى الجانب المدين للمصروفات وايضا فى الجانب الدائن للخزينةمن الممكن ان بعض الاخطاء من المستخدم لذلك قمت بعمل قيد اليومية الورقة الاولى وما اريدة ان اكتب التاريخ ثم رقم القيد ثم القيد وشرح القيد كل ذلك فى الورقم الاولى ثم بالضغط على ترحيل اجد كل فى مكانه وفى نفس الشهر بمعنى ان ورقة القيد يمكن الترحيل منها لاى شهر اريدة مع العلم اخى العزيز انه من الممكن ان يوجد باليوم الواحد عدد من القيود اى يمكن تكرار القيد رقم 1 اكثر من مرة اسف للاطالة
الـعيدروس قام بنشر نوفمبر 12, 2015 قام بنشر نوفمبر 12, 2015 وين شرط الشهر في قيد اليومية في اي خليه وشرط التاريخ في صفحة الشهر مثلاً يناير اي عمود كالصورة في المرفق المحدد بالاحمر مثلاً هو التاريخ المطلوب الى اي عمود يرحل القيم والمبلغ وهو بالاساس به قيم سابقه ؟ بصراحه لم افهم طلبك
الـعيدروس قام بنشر نوفمبر 12, 2015 قام بنشر نوفمبر 12, 2015 شاهد المرفق اكتب القيد وانقر على الزر مع مرعاة الخليه التي لونها اصفر تحدد بها الشهر بعد التجربه وضح مالذي تريده ان يتعدل تحياتي يومية الأمريكية_11.rar 1
mostafa albatrawy قام بنشر نوفمبر 14, 2015 الكاتب قام بنشر نوفمبر 14, 2015 اخى الغالى كم انا شاكر لك على تعاونك معى وهذا بالفعل ما كنت اريدة ولكن اريد بعض الاضافات ان امكن 1- استدعاء القيد اى اريد عكس حركة الترحيل عن طريق زر اخر يسمى استدعاء 2- سوف اقوم بحماية مل الصفحات فيما عدا ورقة قيد اليومية هل ممكن عمل الحماية مع استخدام الكود 3- اريد حين كتابة قيد ان يدرج فى مكنة ( مسلسلة ) بحين مثلا اذا كتبت اذا كان هناك قيد تم كتابتة فى السابق واردت ان اعدة عند الترحيل يدخل ضمن مسلسلة وليس فى اخر الورقة اى رقم القيد رقم 1 تحت بعضة وهكذا واسف للاطالة وشكرا جدا لمجهودك معى
الـعيدروس قام بنشر نوفمبر 14, 2015 قام بنشر نوفمبر 14, 2015 الاخ مصطفى اقتباس 1- استدعاء القيد اى اريد عكس حركة الترحيل عن طريق زر اخر يسمى استدعاء 2- سوف اقوم بحماية مل الصفحات فيما عدا ورقة قيد اليومية هل ممكن عمل الحماية مع استخدام الكود 3- اريد حين كتابة قيد ان يدرج فى مكنة ( مسلسلة ) بحين مثلا اذا كتبت اذا كان هناك قيد تم كتابتة فى السابق واردت ان اعدة عند الترحيل يدخل ضمن مسلسلة وليس فى اخر الورقة اى رقم القيد رقم 1 تحت بعضة وهكذا الاولى والثانيه سوف اعمل عليها وارفقها ين الانتهاء اما الثالثه مسلسل اوك واضح جزئية يوجد حيث مسلسله هل تقصد في حالة التعديل في القيد ؟ اذا هذا ماتقصد سنوجد حل لهات النقطه الاخ الحبيب سعد عابد اهلا بك نورت الموضوع تسلم على كلماتك المشجعه ومرورك العطر تقبل تحياتي وشكري
الـعيدروس قام بنشر نوفمبر 15, 2015 قام بنشر نوفمبر 15, 2015 (معدل) السلام عليكم جرب المرفق واي ملاحظات او تعديل نحن موجودين او الاخوه الاحبه في المنتدى لن يقصرو معك وذلك لضيق الوقت لدي هذي الايام تحياتي يومية الأمريكية_222.rar تم تعديل نوفمبر 15, 2015 بواسطه الـعيدروس
الردود الموصى بها