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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





طريقة ترحيل الدور الثانى من الشيت كنترول

السلام عليكم ورحمة الله وبركاته الأخوة الكرام أطلب من حضراتكم كيفية ترحيل الناجحين والراسبين كل فى شيت منفصل من خلال عمل ..



03-02-2020 09:09 مساء
حازم المصرى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-01-2018
رقم العضوية : 3858
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 13-12-1973
قوة السمعة : 10
الاعجاب : 0
 offline 
السلام عليكم ورحمة الله وبركاته
الأخوة الكرام
أطلب من حضراتكم كيفية ترحيل الناجحين والراسبين كل فى شيت منفصل
من خلال عمل زر او مفتاح بالضغط عليه يتم الترحيل
مع العلم إنى لا أعلم إلا القليل عن الفيجوال بيزيك
فلو تكرمتم عليّ بعمل خطوات بسيطة أفهمها
لعمل شيت كنترول خاص بى جهزت كل شئ ما عدا ذلك
ولكم جزيل الشكر

انتبه لا تنتظر المساعدة  من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب .... كما عليك الإنتباه لرفع المشاركة فى المكان المخصص لها , تم نقل المشاركة الى قسم الأسئلة والإجابات
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  مطلوب.xls   تحميل xls مرات التحميل :(2)
الحجم :(33.792) KB





04-02-2020 08:27 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 161
الجنس : ذكر
الدعوات : 1
قوة السمعة : 1353
الاعجاب : 4
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
السلام عليكم ورحمة الله
استخدم هذا الكود و اربطه بزر فى ورقة "شيت"
Sub TransRes()
Dim ws As Worksheet, Nag As Worksheet, Ras As Worksheet
Dim LR As Long, i As Long, j As Long, jj As Long, N As Long, R As Long
Dim Arr As Variant, TmpN As Variant, TmpR As Variant
Set ws = Sheets("شيت ")
Set Nag = Sheets("الناجحون")
Set Ras = Sheets("دور ثان")
Application.ScreenUpdating = False
LR = ws.Range("B" & Rows.Count).End(xlUp).Row
Nag.Range("A7:AE" & Nag.Range("A" & Rows.Count).End(xlUp).Row + 6).ClearContents
Ras.Range("A7:AF" & Nag.Range("A" & Rows.Count).End(xlUp).Row + 6).ClearContents
Arr = ws.Range("A7:AF" & LR).Value
ReDim TmpN(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
ReDim TmpR(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 31) = "ناجح" Then
N = N + 1
For j = 1 To 31
TmpN(N, j) = Arr(i, j)
TmpN(N, 1) = N
Next
ElseIf Arr(i, 31) = "دور ثان" Then
R = R + 1
For jj = 1 To 32
TmpR(R, jj) = Arr(i, jj)
TmpR(R, 1) = R

Next
End If
Next
If N > 0 Then Nag.Range("A7").Resize(N, 31).Value = TmpN
If R > 0 Then Ras.Range("A7").Resize(R, 32).Value = TmpR
Application.ScreenUpdating = True
End Sub




04-02-2020 09:50 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 728
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
قوة السمعة : 7679
الاعجاب : 17
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
بارك الله فيك أستاذنا الكبير / إبراهيم الحداد
وجزاكم الله خيرا على تلك الروائع




04-02-2020 10:37 مساء
مشاهدة مشاركة منفردة [3]
حازم المصرى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-01-2018
رقم العضوية : 3858
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 13-12-1973
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
وعليكم السلام ورحمة الله وبركاته
شكرا لحضرتك بارك الله لك وفيك
لا أجيد استخدام الاكواد وسوف أجرب ما كتبته حضرتك وأتعلم طريقته 
ولو هناك طريقة بالمعادلات تكون أسهل فى تعلمها 
بعد ما جربت الكود ظهرت هذه الرسالة ولا أعلمها
  Run time error 9:
Subs c r i p t out of range

 
 
  رسالة الكود.png   تحميل png رسالة الكود.png مرات التحميل :(1)
الحجم :(12.486) KB
 





04-02-2020 11:09 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1483
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6865
الاعجاب : 10
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
تفضل اخى الكريم على الرغم انك قمت برفع ملف خالى تماما من البيانات وهذا غير طبيعى
الا انه تم وضع كود الأستاذ ابراهيم  له منا كل المحبة والإحترام فى ملفك وتم العمل به وتجربته ولا يوجد اى مشاكل فى التنفيذ بتاتا وشوف وجرب بنفسك
اما بالنسبة لموضوع المعادلات ... بالتأكيد الكود يكون اسرع وافضل فى التنفيذ من المعادلات بكثير لأن المعادلات ستعمل على ثقل الملف كثير وبالتالى البطء فى تنفيذ المهام المطلوبة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Transfer.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(39.968) KB




توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

04-02-2020 11:21 مساء
مشاهدة مشاركة منفردة [5]
حازم المصرى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-01-2018
رقم العضوية : 3858
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 13-12-1973
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
للأسف ليس لدي خبرة فى موضوع الأكواد
وفقكم الله جميعا




05-02-2020 09:04 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
أخي العزيز علي
لابد من توضيح ما تم عمله على الملف لكي يتعلم الأعضاء .. فالهدف كما تعلم ليس إرفاق ملفات جاهزة وحسب ، بل الهدف الأسمى هو الارتقاء بمستوى الناس ..




05-02-2020 10:09 صباحا
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1483
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6865
الاعجاب : 10
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
أستاذنا الكريم ياسر فقط تم وضع كود الأستاذ ابراهيم بالملف وربطه بالزر فى صفحة شيت
وتم توضيح هذا للأستاذ حازم
بارك الله فيك استاذنا الكريم



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

05-02-2020 02:10 مساء
مشاهدة مشاركة منفردة [8]
حازم المصرى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-01-2018
رقم العضوية : 3858
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 13-12-1973
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
بالفعل الأستاذ وضع الكود وبالفعل تم تنفيذه وأشكركم لمجهودكم الغالى 
ولكن انا لما وضعته فى الشيت عندى ظهرت رسالة كما وضحتها من قبل
ولكن الكود يعمل على الملف الذى رفعه الأستاذ  ali mohamed ali
شكرا لمجهودكم
جزاكم الله خيرا







الكلمات الدلالية
لتعلم ، طريقة ، ترحيل ، الدور ، الثانى ، الشيت ، كنترول ،


 







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

الساعة الآن 12:25 مساء

أعلن هنا
أعلن هنا
أعلن هنا