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

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


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


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





كود حفظ

تحية طيبة وبعد ارجوا المساعده فى تفعيل كود حفظ فى الوارد و الصرف بحيث يكون الترحيل الى صفحة تقرير الاصناف لمشاهدة ا ..



14-12-2019 03:34 مساء
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 92
الاعجاب : 30
 offline 
hwaml.com_1436633176_297
image123-1
 تحية طيبة وبعد
ارجوا المساعده فى تفعيل كود حفظ فى الوارد و الصرف بحيث يكون الترحيل الى صفحة تقرير الاصناف 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

و جزاك الله كل خير
 
 
  Book3.zip   تحميل zip مرات التحميل :(4)
الحجم :(70.524) KB





14-12-2019 03:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
السلام عليكم أخي الكريم
ممكن تفاصيل عن المطلوب بالضبط ...
إذا كان المطلوب ترحيل البيانات يرجى ذكر اسم ورقة العمل المراد الترحيل منها والنطاق المراد الترحيل منه ، كما يرجى ذكر اسم ورقة العمل المراد الترحيل إليها والنطاق المراد الترحيل إليه ، وضع شكل النتائج المتوقعة ليسهل فهم المشكلة ، فنحن في المنتدى لا نعمل على التخمين.




14-12-2019 04:34 مساء
مشاهدة مشاركة منفردة [2]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 92
الاعجاب : 30
 offline 
look/images/icons/i1.gif كود حفظ
عليكم السلام و رحمة الله و بركاتة
 المطلوب ترحيل البيانات ورقة العمل المراد الترحيل منها (الوارد و المصروف) والنطاق المراد الترحيل منه ( التاريخ + رقم السند+ مسلسل+ رقم الصنف +اسم الصنف + الوحدة + السعر الوحدة + الكمية +القيمة)، و اسم ورقة العمل المراد الترحيل إليها تقرير الاصناف 





14-12-2019 04:44 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
هل سيكون الترحيل مشترك في نفس الكود من ورقتي العمل الوارد والمنصرف؟؟ هذه النقطة غير واضحة لي




14-12-2019 05:01 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
أخي الكريم 
جرب الكود التالي سيقوم بالترحيل من ورقة الوارد للورقة المسماة تقرير الأصناف
قم بإكمال الكود بنفسك بعد دراسة الكود الحالي لتتمكن من تعديل الأكواد بنفسك
Sub Test()
    Dim ws As Worksheet, sh As Worksheet, lr As Long, m As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("الوارد")
        Set sh = ThisWorkbook.Worksheets("تقريرالأصناف")
        lr = Application.Max(8, ws.Range("B8").End(xlDown).Row)
        If lr = 8 Then Exit Sub
        m = sh.Cells(Rows.Count, 1).End(xlUp)(2).Row
        
        sh.Range("A" & m).Resize(lr - 8).Value = ws.Range("A9:A" & lr).Value
        sh.Range("B" & m).Resize(lr - 8).Value = ws.Range("B6").Value
        sh.Range("C" & m).Resize(lr - 8).Value = ws.Range("F6").Value
        sh.Range("D" & m).Resize(lr - 8, 6).Value = ws.Range("B9:G" & lr).Value
    Application.ScreenUpdating = True
End Sub

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



14-12-2019 05:05 مساء
مشاهدة مشاركة منفردة [5]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 92
الاعجاب : 30
 offline 
look/images/icons/i1.gif كود حفظ
سيكون الوارد من A الى I ,و المنصرف من  J  الى  R
الله يزيد من علمك و يعطيك الصحة و العافية 

أثارت هذه المشاركة إعجاب: YasserKhalil،



14-12-2019 06:02 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
حاول دراسة الكود لتعرف كيف تضيف عملية الترحيل من ورقة العمل الأخرى .. الموضوع بسيط محتاج فقط اطلاع على الكود ومعرفة ما يقوم به كل سطر




14-12-2019 09:03 مساء
مشاهدة مشاركة منفردة [7]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 92
الاعجاب : 30
 offline 
look/images/icons/i1.gif كود حفظ
يا صاحب العلم الوفير، والفكر القويم ، والعطاء الكبير،والبذل الكثير،، وموجه العقول،ومرشد السلوك، لك في قلوبناً حباً ومكاناً ، وتقديراً وإجلالاً، وشكراً وعرفاناً
  Dim ws As Worksheet, sh As Worksheet, lr As Long, m As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("ÇáÕÑÝ")
        Set sh = ThisWorkbook.Worksheets("ÊÞÑíÑÇáÃÕäÇÝ")
        lr = Application.Max(8, ws.Range("B8").End(xlDown).Row)
        If lr = 8 Then Exit Sub
        m = sh.Cells(Rows.Count, 1).End(xlUp)(2).Row
        
        sh.Range("A" & m).Resize(lr - 8).Value = ws.Range("j9:j" & lr).Value
        sh.Range("B" & m).Resize(lr - 8).Value = ws.Range("B6").Value
        sh.Range("C" & m).Resize(lr - 8).Value = ws.Range("F6").Value
        sh.Range("D" & m).Resize(lr - 8, 6).Value = ws.Range("B9:G" & lr).Value
    Application.ScreenUpdating = True
End Sub


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




15-12-2019 03:57 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
قم بتكرار الكود أو عمل كود آخر بناءً على الكود وابدأ في تغيير الكود بناءً على المعلومات الجديدة من ورقة العمل الجديدة .. وغير في الكود مكان الأعمدة التي سيتم الترحيل إليها
حاول دراسة الكود سطر بسطر لتفهم ما يفعله الكود ففهمك للكود سيجعلك تتحكم في الكود بأي طريقة تشاء وتستفيد به في أمور أخرى ، ولا تنسى أن المنتدى تعليمي وليس خدمي
فليس معنى أنني قدمت كود جاهز أن المنتدى خدمي .. هي مساعدة لك ولغيرك وفي نفس الوقت نريد تحقيق الهدف من الموقع وهو أن يتعلم الأعضاء ويتطور مستواهم
لذا حاول وافشل يكفيك شرف المحاولة

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

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



15-12-2019 10:05 صباحا
مشاهدة مشاركة منفردة [9]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 92
الاعجاب : 30
 offline 
look/images/icons/i1.gif كود حفظ
أستاذ ياسر والله قليله كلمة مبدع عليك انت مطور ومفكر بجد جعله الله في موازين حسناتك صراحة يعجز اللسان عن وصفك . الشكر لله اولا ثم لك على هذا العمل الذي اسال الله جل وعلا ان يجعله سبب في دخولك الجنه يارب تقبل تحياتي 

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



15-12-2019 12:04 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
بارك الله فيك أخي الكريم وجزيت خيراً على كلماتك الطيبة ودعائك المبارك
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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



15-12-2019 04:35 مساء
مشاهدة مشاركة منفردة [11]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 92
الاعجاب : 30
 offline 
look/images/icons/i1.gif كود حفظ
أستاذ ياسر  منك تعلمنا أن للنجاح أسرار ومنك تعلمنا أن المستحيل يتحقق ومنك تعلمنا أن المهمة تحتاج إلي من يجتهد فيها فاني لا زالت مجتهد و حتى الآن لم انجح و (لكن لا يوجد مستحيل )سيتحقق الامل ان شاء الله اللهم اني اسالك في هذه الساعه اسأل الله لك ان يستجيب لك دعوه تحتبس في قلبك .. و يحقق لك اضعاف اضعاف ما تتمني .. اسأل الله ان يرزقك سعاده تنسيك كل همومك واحزانك .. اسال الله ان يوفقك في حياتك وان ينير دربك

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



15-12-2019 11:26 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8438
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 Online 
look/images/icons/i1.gif كود حفظ
جزاك الله خيراً أخي الكريم ولك بمثل ما دعوت لي وزيادة
يرجى توضيح النقطة التي تعثرت فيها .. حاول كما قلت لك دراسة الكود واسأل في أجزاء الكود لتصل إليك الفكرة بشكل جيد ثم بعدها ستتمكن من التعديل في الكود والإضافة لما تريد

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود طباعة جدول بدون فراغات oilman852
6 65 YasserKhalil
تحويل الترابط التشعبي  من معادلة الى كود mostah
6 59 mostah
كود حذف و تعديل ادخال بيانات الاصناف mostah
2 19 mostah
كود ترحيل بيانات الى ملف اكسيل مغلق جنان السبيل
0 14 جنان السبيل
محتاج ... كود التحديث التلقائي للارتباطات بالاكسل .. ا. ياسر abozar
3 41 جنان السبيل

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 







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

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

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