أيهاب ممدوح

الاخوة الافاضل يوجد مشكله في الملف واسف لعدم رفعه علي المنتدي لكبر حجمه لكن يظهر هذة الرساله ارجوا المساعدة

السلام عليكم انا مثلا في السعوديه شبكه موبايلي

نرجوا المساعده

بارك الله فيك ....ارجوا الرد علي الرساله الخاصه

الرجاء وضع الكود علي هذا الجدول نظرا لصعوبه الكود علي الرجاء الرد علي الرساله في الخاص المصنف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 نرجوا شرح كود للترحيل لهذا الشكل