أيهاب ممدوح

الرجاء وضع الكود علي هذا الجدول نظرا لصعوبه الكود علي الرجاء الرد علي الرساله في الخاص المصنف1.rar

اخي الكريم حاولت نقل الكود للملف الاصلي لكن للأسف ... ممكن شرح الكود لو سمحت

ويقوم المعلم يبدا من ا ب ت حتي النهايه وهو حرة في موضوع الدروس ولا يطلب احد منه عمل موضوع مخصص للطالب يكون الشرح عام للجميع وليس هدفه حل مشاكل الاعضاء بل التعلم للجميع

الاخوة الكرام الاخ حسام انا معك في فكرة التواصل بالميك بين الاستاذ و مجموعه الطلبه يكون الميك مصدرة عند الاستاذ والباقي يسمع فقط ويعلق بالكتابه في مربع الحوار للجلسه ... وهذا الفكرة موجوده بالفعل في ملتقي الدارين حيث حضرت معهم دورة عن تأهيل المحاسب كان موعد الدرس كل يوم ثلاثاء الساعه 9 مساء بالقاهرة وانا متواجد بالسعوديه وغير في اي بلد قبل الدرس يضعوا رابط الدرس والمهتم يدخل وفي كل فترة يحدث امتحان لتقيم الموضوع تقبلوا تحياتي

كل المطلوب هو عند فتح الملف ويطلب التحديث اعطي امر التحديث سوف يأتي مربع اخر به اختيارين متابعه و تحرير الارتباطات اضغط علي تحرير الارتباطات سوف يعرض لك كل الارتباطات ومكانها ومصدرها تقبل تحياتي

علي ما اعتقد انها خاصيه موجوده في الاكسل لمعرفه الارتباطات بالملفات الاخري

شكرا جزيلا . اسف علي الاطلاع عليه حاليا بسبب المشاركه من الجوال . وخارج المنزل .سوف اطلع عليه حتي افيدك هل هو المطلوب ام لا . لكن مقدما مشكوررررررر جدا . بارك الله فيك

اخي الكريم لو حبيت ان الجدول الثاني يكون 30 صف وبجانبه نفس الجدول 30 صف وعند امتلاء الجدول الاول للمسحوبات يبدأ في الجدول الثاني للمسحوبات ترحيل من جدول لجدول.rar

ما شاء الله شرح جميل بارك الله فيك يا اخي

الشرح لو سمحت

Sub btnTransfer() Dim i As Integer Dim j As Integer Dim LR As Integer Dim SKey As String Dim DKey As String Dim Found As Boolean For i = 2 To 6 If Val(Range("B" & i)) <> 0 Then SKey = Range("A" & i) & Range("E" & i) LR = [A10000].End(xlUp).Row If LR < 11 Then LR = 10 Found = False For j = 11 To LR DKey = Range("A" & j) & Range("B" & j) If SKey = DKey Then Select Case Range("F" & i) Case [D10] Range("D" & j) = Val(Range("D" & j)) + Val(Range("B" & i)) Case [E10] Range("E" & j) = Val(Range("E" & j)) + Val(Range("B" & i)) Case [F10] Range("F" & j) = Val(Range("F" & j)) + Val(Range("B" & i)) End Select Found = True Exit For End If Next j If Not Found Then Range("A" & LR + 1) = Range("A" & i) Range("B" & LR + 1) = Range("E" & i) Select Case Range("F" & i) Case [D10] Range("D" & LR + 1) = Val(Range("B" & i)) Case [E10] Range("E" & LR + 1) = Val(Range("B" & i)) Case [F10] Range("F" & LR + 1) = Val(Range("B" & i)) End Select End If End If Next i End Sub

تم الحل في موضوع اخر قديم http://www.officena.net/ib/index.php?showtopic=57218 شكرا استاذ حسام عيسي ومازلت في معك في موضوع العتاب للجميع شكرا لكم جميعا

ررررررررررررررررررررررائع جداااااااااااااااااااااا

لم يحل

تم حل المشكله الثانيه باضافه Else الي الكود Sub ßÔÝ_ÍÓÇÈ() Dim mo As String Dim Lr As Long, i As Long, Ln As Long, Lo As Long Dim r As Integer mo = Range("d10").Value mn = Range("e10").Value MM = Range("f10").Value Application.ScreenUpdating = False With ActiveSheet Lr = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 2 To 6 If mo = CStr(.Cells(i, "f")) Then Cells(Lr + 1, "a").Value = .Cells(i, "a").Value Cells(Lr + 1, "b").Value = .Cells(i, "e").Value Cells(Lr + 1, "d").Value = .Cells(i, "b").Value Else End If If mn = CStr(.Cells(i, "f")) Then Cells(Lr + 2, "a").Value = .Cells(i, "a").Value Cells(Lr + 2, "b").Value = .Cells(i, "e").Value Cells(Lr + 2, "e").Value = .Cells(i, "b").Value Else End If If MM = CStr(.Cells(i, "f")) Then Cells(Lr + 3, "a").Value = .Cells(i, "a").Value Cells(Lr + 3, "b").Value = .Cells(i, "e").Value Cells(Lr + 3, "f").Value = .Cells(i, "b").Value Else End If Next End With End Sub

اخي حسام عيسي فيه مشكله ان لو الشريك اسمه في الكشف مرتين لا يستجيب غير مرة واحد فقط والمرات الاخري لا يقوم بترحلها المشكله الثانيه وهي لو الشريك اسمه غير موجود يقوم باضافه صف فارغ في الكشف شكرا

شكرا جزيلا لكن يوجد بعض النقاط عايز افهمها لو امكن

اخي الكريم حسام المطلوب نقل البيان والتاريخ والمبلغ في عمود الشريك دون مسح البيانات الاصليه شكرا

للرفع

الاخوة الافاضل الشرح داخل الملفترحيل من جدول لجدول.rar

المصنف1.rar نرجوا شرح كود للترحيل لهذا الشكل

اخي الكريم عمل رائع لكن المشكله انه الملف يتغير بياناته كل شهر ومع المعادلات سوف يقوم بحساب البيانات مع الشهر فقط لكن هذا الكشف تراكمي بيانات لشهر يناير وفبراير ... كل شهر يتم عمل نسخه من الملف ومسح جميع البيانات ما عدا كشف المسحوبات لانه تراكمي ويتم زياده المسحوبات بالخاصه بالشهر الجديد لذلك اريدها كود للترحيل (نسخ و لاصق) بعد اخر سطر ويوجد مشكله ان المعادلات لم تتعامل مع التاريخ والبيان شكرا

الاخوة الافاضل مرفق ملف به الشرح المصنف1.rar

للرفع

اخي الكريم الملف منظم جداااااا وبه اكواد تسهل العمل عليه المرفق جزء بسيط جدا من برنامج كامل لشركه كبيرة لها عدة فروع اما بخصوص عدم فهم الاخوة للملف سوف ارفق ملف مبسط للجميع يمكن حد يقدر يساعد المطلوب فضلا منكم ترحيل المسحوبات من كشف الخزينه الي كشف المسحوبات في الاسفل بشرط كتابه اسم الشهر والبيان والمبلغ في عمود الشريك مع العلم ان كل شهر يتم مسح البيانات في الخزنه وتوريد بيانات جديده لكل شهر بمعي ان ما يم ترحيله في المسحوبات لا يمسح في حاله تغير البيانات شكرا المصنف1.rar