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

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


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





ممكن كود ترحيل لشيت منه وله

الاخوة اساتذة المنتدى اهدانى الاستاذ سليم اطال الله عمره هذا الملف الممتاز بالكود وهو منه وله بالكود احتاج لعمل صفحة ت ..



30-06-2020 10:47 مساء
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 

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

اااااااحتاج كود ترحيل  لشيت منه وله الاعمدة المرحل اليها نختارها من القائمة المنسدلة التاريخ يتم ترحيله هو والرقم مع كل صف الى الشيت منه او له  مع خالص الشكر

احتاج كود ترحيل  لشيت منه وله الاعمدة المرحل اليها نختارها من القائمة المنسدلة التاريخ يتم ترحيله هو والرقم مع كل صف الى الشيت منه او له  مع خالص الشكر

 
 
  MenHo_Laho.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(31.787) KB


01-07-2020 01:46 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ممكن كود ترحيل لشيت منه وله
Try This Fille
 
 
 
  MenHo_Laho _a_z.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(81.653) KB


01-07-2020 07:06 مساء
مشاهدة مشاركة منفردة [2]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif ممكن كود ترحيل لشيت منه وله
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب" />
 
 
  MenHo_Laho.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(32.353) KB


01-07-2020 07:59 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ممكن كود ترحيل لشيت منه وله
الكود نفسة كما في أول مشاركة فقط تغيير اسماء الاعمدة من Data1 / Data2  .....الى 1 /2 /3 ....
و أسماء الشيتات من Sheet2  / sheet1 ... الى Menho و  Laho
و من يضمن انه سوف تغيرين رأيك وتقولين ان اسماء الأعمدة في Menho غير اسماء الأغمدة في  Laho

01-07-2020 08:24 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ممكن كود ترحيل لشيت منه وله
السلام عليكم
الرجاء تجربة الكود التالي وبعد أن يعمل قومي بدارسة الكود حيث أن المطلوب سهل جداً ويمكن أن يقوم بعمله أي مبتديء .. حاولت الإسهاب في الكود في كتابة المتغيرات لأوضح طريقة عمل الكود بالتفصيل دون شرح .. حاولي تتبع الكود ومعرفة ما يجري سطر بسطر باستخدام F8 .. ولا تنسي أن الهدف من المنتدى تعليمي وليس خدمي يقوم ببناء البرامج للناس دون أي مجهود منهم
Sub Test()
    Dim vMenho, vLaho, vDate, vNumber, vVal, wsTransfer As Worksheet, wsMenho As Worksheet, wsLaho As Worksheet, sh As Worksheet, lrTransfer As Long, r As Long, cTarget As Long, c As Long, m As Long
    Application.ScreenUpdating = False
        Set wsTransfer = ThisWorkbook.Worksheets("Transfer")
        Set wsMenho = ThisWorkbook.Worksheets("Menho")
        Set wsLaho = ThisWorkbook.Worksheets("Laho")
        lrTransfer = wsTransfer.Cells(Rows.Count, "B").End(xlUp).Row
        vDate = wsTransfer.Range("A2").Value
        vNumber = wsTransfer.Range("C2").Value
        If vDate = Empty Or vNumber = Empty Then MsgBox "Date And Number Is Necessary", vbExclamation: Exit Sub
        For r = 3 To lrTransfer
            cTarget = wsTransfer.Cells(r, 4).Value
            vMenho = wsTransfer.Cells(r, 5).Value
            vLaho = wsTransfer.Cells(r, 6).Value
            If (vMenho = Empty And vLaho = Empty) Or Not IsNumeric(cTarget) Then GoTo Skipper
            If IsNumeric(vMenho) And Not IsEmpty(vMenho) Then
                Set sh = wsMenho: c = cTarget: vVal = vMenho
            ElseIf IsNumeric(vLaho) And Not IsEmpty(vLaho) Then
                Set sh = wsLaho: c = cTarget: vVal = vLaho
            End If
            m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
            sh.Cells(m, 1).Value = vDate
            sh.Cells(m, 2).Value = wsTransfer.Cells(r, 2).Value
            sh.Cells(m, 3).Value = vNumber
            sh.Cells(m, c + 3).Value = vVal
Skipper:
        Next r
    Application.ScreenUpdating = True
    MsgBox "Done...", vbInformation, "YasserKhalil Excel-Egy"
End Sub

01-07-2020 08:35 مساء
مشاهدة مشاركة منفردة [5]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif ممكن كود ترحيل لشيت منه وله
اشكرك استاذى الكريم وانا اسفة انى مش عارفة افهم حضرتك اسماء الاعمدة هى فى منه نفس له
وباى طريقة تناسب حضرتك اريد ان اسهل موضوع ادخال البيانات على نفسى
اريد كتابة التاريخ والرقم والاسم  مرة واحدة فى ثلاث خلايا ليتم ترحيلهم مع الارقام
انا وضعت لحضرتك فى صفحة منه وله المطلوب الحصول عليه عندما يتم الترحيل كده ان شاء الله حضرتك تفهم قصدى
حضرتك انظر لصفحة transfer وبعد كده صفحة منه وله لتجد المطلوب الحصول عليه لو الكود شغال يتم كده

معلش اسفة لانى بشرح كتير
 
 
 
  MenHo_Laho.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(35.771) KB


01-07-2020 11:21 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ممكن كود ترحيل لشيت منه وله
تم معالجة الأمر
بتصميم جديد (دون هذه الخانات السوداء المقززة)
 
 
  MenHo_Laho _NEW.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(40.308) KB





الكلمات الدلالية
ممكن ، ترحيل ، لشيت ،


 










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

الساعة الآن 11:46 مساء