الشيباني1 قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 اخواني الاعزاء تحية طيبه ارجو المساعده بكود او معادلات لترحيل البيانات من ورقة ( inv ) الى ورقة ( summary ) حسبما يوضحه النموذج المرفق مع الشكر الجزيل خلاصه.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 السلام عليكم ورحمة الله أخي الكريم الشيباني، هذه محاولة بالمعادلات في الملف المرفق أرجو أن تفي الغرض المطلوب أو بعضه... بن علية خلاصه.rar 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 السلام عليكم ورحمة الله أخي الكريم الشيباني، هذه محاولة بالمعادلات في الملف المرفق أرجو أن تفي الغرض المطلوب أو بعضه... بن علية خلاصه.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 31, 2015 الكاتب مشاركة قام بنشر أكتوبر 31, 2015 رائع اخي العزيز ادامك الرحمن لنا منقذا رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 1, 2015 الكاتب مشاركة قام بنشر نوفمبر 1, 2015 مع جزيل شكري وتقديري لاخي العزيز بن علية ورغبة في الاستزاده في المعرفه هل من امكانيه لحل بواسطة الكود مع الشكر رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر نوفمبر 1, 2015 مشاركة قام بنشر نوفمبر 1, 2015 السلام عليكم هذه عن طريق ماكرو خلاصه1.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 1, 2015 الكاتب مشاركة قام بنشر نوفمبر 1, 2015 اخي العزيز مع شكري وتقديري كان هناك اشكال بسيط في الكود الرائع في جدول الوصولات جربت اجراء تعديل بسيط عليه ( بعد اذنكم ) ونجحت التجربه وارفق الملف بعد تعديل الكود مع الشكر خلاصه2.rar رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر نوفمبر 1, 2015 مشاركة قام بنشر نوفمبر 1, 2015 (معدل) السلام عليكم ماهو التعديل المطلوب الكود يعمل بشكل ممتاز تم تعديل نوفمبر 1, 2015 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب مشاركة قام بنشر نوفمبر 2, 2015 اخي العزيز اعتمدت الكود الرائع لانه يفي باحتياجي شاكرا جهدكم مع امتناني واحترامي 1 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب مشاركة قام بنشر نوفمبر 2, 2015 اخي العزيز بعد تجربة الكود على بعض الاسماء ظهرت مشكله في جدول الوصولات موضحه في المرفق ارجو النظر في امكانية تعديل الكود مع الشكر خلاصه3.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 2, 2015 مشاركة قام بنشر نوفمبر 2, 2015 السلام عليكم شاهد المرفق خلاصه_111.rar 1 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب مشاركة قام بنشر نوفمبر 2, 2015 (معدل) استاذنا القدير تحية طيبه اشكركم على الكود الرائع الذي اتمنى اجراء تعديل بسيط عليه وكما موشر في المرفق مع تقديري لجهدكم ال 111.rar تم تعديل نوفمبر 2, 2015 بواسطه الشيباني1 خطأ في ارفاق ملف رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 2, 2015 مشاركة قام بنشر نوفمبر 2, 2015 لااعلم هل المشكله من اتصالي ام ماذا لم استطيع تحميل مرفقك الاخير رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب مشاركة قام بنشر نوفمبر 2, 2015 استاذنا القدير المشكله انني ارسلت ملفا غير الذي اردت تعديله واستبدلته بالملف الصحيح وارسل صورة للطلب الذي الخصه بتعديل الكود حسبما موضح في الصوره مع شكري وتقديري رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 2, 2015 مشاركة قام بنشر نوفمبر 2, 2015 Private Const D = 4 Private Const K = 16 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then If Target = "" Then Exit Sub Range("C6:K50").ClearContents hhhhh Target, 1: hhhhh Target, 2 End If End Sub Private Function hhhhh(Trget, i) Dim Ws As Worksheet Set Ws = Sheets("inv") Col = IIf(i = 1, 3, 9): Cl = IIf(i = 1, D, K): L = IIf(i = 1, 4, 3) For R = 2 To Ws.Cells(Rows.Count, Cl).End(xlUp).Row If Trim(Ws.Cells(R, Cl)) Like Trim(Trget) Then Lr = Cells(Rows.Count, Col).End(xlUp).Row For C = 1 To L Cells(Lr + 1, IIf(i = 1, Choose(C, 3, 4, 5, 6), Choose(C, 9, 10, 11))) = _ Ws.Cells(R, IIf(i = 1, Choose(C, 2, 3, 5, 6), Choose(C, 14, 15, 17))) Next C End If Next R End Function رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب مشاركة قام بنشر نوفمبر 2, 2015 رائع استاذنا القدير ادامك الرجمن لنا سندا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.