أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ارجو التعديل علي هذا الكود

اخواني الأفاضل بعد السلام عليكم ورحمة الله وبركاته عايز اعدل علي كود الترحيل بحيث يرحل البيانات من a14 وبدون الشرط المو ..


موضوع مغلق


07-04-2022 09:08 مساء
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 

اخواني الأفاضل بعد السلام عليكم ورحمة الله وبركاته

عايز اعدل علي كود الترحيل بحيث يرحل البيانات من a14  وبدون الشرط الموجود في القائمة h6

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

 
 
  سها.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(1819.396) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم
إذا كنت تريد التعديل على الكود بحيث يقوم بالترحيل دون الشرط فانظر لهذا الجزء في الكود
        For i = LBound(a, 1) To UBound(a, 1)
            If a(i, 13) = sCondition Then
                k = k + 1
                For ii = LBound(a, 2) To UBound(a, 2)
                    b(k, ii) = a(i, ii)
                Next ii
                b(k, 1) = k
            End If
        Next i


قم بوضع تعليق على السطر التالي
If a(i, 13) = sCondition Then

ثم ضع تعليق على السطر التالي أيضاً
End If
عرض الإجابة




07-04-2022 09:27 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الكود
السلام عليكم أخي الكريم
إذا كنت تريد التعديل على الكود بحيث يقوم بالترحيل دون الشرط فانظر لهذا الجزء في الكود
        For i = LBound(a, 1) To UBound(a, 1)
            If a(i, 13) = sCondition Then
                k = k + 1
                For ii = LBound(a, 2) To UBound(a, 2)
                    b(k, ii) = a(i, ii)
                Next ii
                b(k, 1) = k
            End If
        Next i


قم بوضع تعليق على السطر التالي
If a(i, 13) = sCondition Then

ثم ضع تعليق على السطر التالي أيضاً
End If

07-04-2022 09:52 مساء
مشاهدة مشاركة منفردة [2]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الكود
انا حاولت وشلت الجزء هذا ولم يفلح معي

07-04-2022 11:21 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الكود
حاول توضيح المطلوب بشيء من التفصيل وحاول دراسة الكود بشكل جيد 

07-04-2022 11:42 مساء
مشاهدة مشاركة منفردة [4]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الكود
شكرا لرد حضرتك
الترحيل من شيت data الي شيت moholon علي حسب الملف المرفق ( يعني بدون اي شروط )

08-04-2022 01:13 صباحا
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الكود
وعليكم السلام ورحمة الله وبركاته 
اخى ضع الكود هنا بعد ان قمت بالتعديل عليه التعديل الذي اخبرك به الأستاذ ياسر في المشاركه السابقه 



الكلمات الدلالية
ارجو ، التعديل ، الكود ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:10 صباحا