الشيباني1 قام بنشر أكتوبر 31, 2015 قام بنشر أكتوبر 31, 2015 اخواني الاعزاء تحية طيبه ارجو المساعده بكود او معادلات لترحيل البيانات من ورقة ( inv ) الى ورقة ( summary ) حسبما يوضحه النموذج المرفق مع الشكر الجزيل خلاصه.rar
بن علية حاجي قام بنشر أكتوبر 31, 2015 قام بنشر أكتوبر 31, 2015 السلام عليكم ورحمة الله أخي الكريم الشيباني، هذه محاولة بالمعادلات في الملف المرفق أرجو أن تفي الغرض المطلوب أو بعضه... بن علية خلاصه.rar 1
عبد العزيز البسكري قام بنشر أكتوبر 31, 2015 قام بنشر أكتوبر 31, 2015 السلام عليكم ورحمة الله أخي الكريم الشيباني، هذه محاولة بالمعادلات في الملف المرفق أرجو أن تفي الغرض المطلوب أو بعضه... بن علية خلاصه.rar
الشيباني1 قام بنشر أكتوبر 31, 2015 الكاتب قام بنشر أكتوبر 31, 2015 رائع اخي العزيز ادامك الرحمن لنا منقذا
الشيباني1 قام بنشر نوفمبر 1, 2015 الكاتب قام بنشر نوفمبر 1, 2015 مع جزيل شكري وتقديري لاخي العزيز بن علية ورغبة في الاستزاده في المعرفه هل من امكانيه لحل بواسطة الكود مع الشكر
محمد الورفلي1 قام بنشر نوفمبر 1, 2015 قام بنشر نوفمبر 1, 2015 السلام عليكم هذه عن طريق ماكرو خلاصه1.rar
الشيباني1 قام بنشر نوفمبر 1, 2015 الكاتب قام بنشر نوفمبر 1, 2015 اخي العزيز مع شكري وتقديري كان هناك اشكال بسيط في الكود الرائع في جدول الوصولات جربت اجراء تعديل بسيط عليه ( بعد اذنكم ) ونجحت التجربه وارفق الملف بعد تعديل الكود مع الشكر خلاصه2.rar
محمد الورفلي1 قام بنشر نوفمبر 1, 2015 قام بنشر نوفمبر 1, 2015 (معدل) السلام عليكم ماهو التعديل المطلوب الكود يعمل بشكل ممتاز تم تعديل نوفمبر 1, 2015 بواسطه محمد الخازمي
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب قام بنشر نوفمبر 2, 2015 اخي العزيز اعتمدت الكود الرائع لانه يفي باحتياجي شاكرا جهدكم مع امتناني واحترامي 1
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب قام بنشر نوفمبر 2, 2015 اخي العزيز بعد تجربة الكود على بعض الاسماء ظهرت مشكله في جدول الوصولات موضحه في المرفق ارجو النظر في امكانية تعديل الكود مع الشكر خلاصه3.rar
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب قام بنشر نوفمبر 2, 2015 (معدل) استاذنا القدير تحية طيبه اشكركم على الكود الرائع الذي اتمنى اجراء تعديل بسيط عليه وكما موشر في المرفق مع تقديري لجهدكم ال 111.rar تم تعديل نوفمبر 2, 2015 بواسطه الشيباني1 خطأ في ارفاق ملف
الـعيدروس قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 لااعلم هل المشكله من اتصالي ام ماذا لم استطيع تحميل مرفقك الاخير
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب قام بنشر نوفمبر 2, 2015 استاذنا القدير المشكله انني ارسلت ملفا غير الذي اردت تعديله واستبدلته بالملف الصحيح وارسل صورة للطلب الذي الخصه بتعديل الكود حسبما موضح في الصوره مع شكري وتقديري
الـعيدروس قام بنشر نوفمبر 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
الشيباني1 قام بنشر نوفمبر 2, 2015 الكاتب قام بنشر نوفمبر 2, 2015 رائع استاذنا القدير ادامك الرجمن لنا سندا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.