logo

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



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





03-02-2020 09:09 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 20-01-2018
رقم العضوية : 3858
المشاركات : 5
الجنس :
تاريخ الميلاد : 13-12-1973
قوة السمعة : 10
الاعجاب : 0
من مواضيع :حازم المصرى

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

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





look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
  04-02-2020 08:27 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 226
الجنس :
الدعوات : 4
قوة السمعة : 2143
الاعجاب : 17
السلام عليكم ورحمة الله
استخدم هذا الكود و اربطه بزر فى ورقة "شيت"
CODE
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

أثارت هذه المشاركة إعجاب: مدحت حافظ،



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




look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
  04-02-2020 10:37 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-01-2018
رقم العضوية : 3858
المشاركات : 5
الجنس :
تاريخ الميلاد : 13-12-1973
قوة السمعة : 10
الاعجاب : 0
وعليكم السلام ورحمة الله وبركاته
شكرا لحضرتك بارك الله لك وفيك
لا أجيد استخدام الاكواد وسوف أجرب ما كتبته حضرتك وأتعلم طريقته
ولو هناك طريقة بالمعادلات تكون أسهل فى تعلمها
بعد ما جربت الكود ظهرت هذه الرسالة ولا أعلمها
Run time error 9:
Subscript out of range
 
  رسالة الكود.png   تحميل png رسالة الكود.png مرات التحميل :(1)
الحجم :(12.486) KB
 





look/images/icons/i1.gif طريقة ترحيل الدور الثانى من الشيت كنترول
  04-02-2020 11:09 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1761
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9679
الاعجاب : 22
تفضل اخى الكريم على الرغم انك قمت برفع ملف خالى تماما من البيانات وهذا غير طبيعى
الا انه تم وضع كود الأستاذ ابراهيم له منا كل المحبة والإحترام فى ملفك وتم العمل به وتجربته ولا يوجد اى مشاكل فى التنفيذ بتاتا وشوف وجرب بنفسك
اما بالنسبة لموضوع المعادلات ... بالتأكيد الكود يكون اسرع وافضل فى التنفيذ من المعادلات بكثير لأن المعادلات ستعمل على ثقل الملف كثير وبالتالى البطء فى تنفيذ المهام المطلوبة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Transfer.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(39.968) KB




توقيع :ali mohamed ali


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

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




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




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



توقيع :ali mohamed ali


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

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




اضافة رد جديد اضافة موضوع جديد




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









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

الساعة الآن 01:57 PM