أسهل طريقة لترحيل البيانات من شيت لآخر بدون تكرار الاكواد excel vba
HTML-код
- Опубликовано: 14 окт 2024
- فى هذا الفيديو سوف نتعلم طريقة إحترافية فى ترحيل البيانات من شيت لاخر بدون تكرار الاكواد وبدون تكرار الاسطر البرمجية.
كيفية ترحيل البيانات من شيت لاخر excel فى الاكسل بدون كثرة الاكواد
اسهل واسرع طريقة لترحيل البيانات فى الاكسل باستخدام برمجة الاكسل excel vba
تعلم افضل طرق ترحيل البيانات excel بكل سهولة باستخدام الحلقات التكرارية
كيفية ترحيل البيانات من شيت اكسل الى شيت اخر بكل سهولة
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لطلب برنامج من تصميمنا..و متابعة أعمالنا 👇
/ code7programming
-----------------------------------------------
لو لسه لم تشترك بالقناة ادعمنا بالاشتراك من هنا 👇
/ @alhassanabuelkhair
------------------------------------------------
برجاء دعمنا بـ
اشتراك فى القناة Subscribe
لايك للفيديو Like
مشاركة الفيديو Share
#الحسن_أبوالخير
#ترحيل_البيانات_من_شيت_لاخر
بسم الله ماشاء تبارك الله شرح اكتر كم رائع
شكراً جزيلاً لحضرتك بارك الله فيكم
الله يبارك فيك وفي علمك... نرجو منك تكملة سلسلة تعليم vba وصلنا تلات فيديوهات ومنتظرين باقي السلسلة.. ولك جزيل الشكر
بارك الله فيكم استاذ خالد إن شاء الله هنزل فيديو قريباَ فى كورس البرمجة
وشكراَ لتفاعلك مع القناة
مشكور من اعماق القلب استاذنا الفاضل
متشكر جدا لك استاذنا
جعلها الله في ميزان حسناتك🤲🤲
منتظرين فديوهاتك الممتعة في تعلم برمجة الإكسال. 👍👍
شكرا جزيلا لحضرتك 🌹🌹👍👍
و شكرا لتفاعلك مع القناة 👍🌹
جزيت خيرا أستاذي. ...
جعله الله في ميزان حسناتك. ....
ياريت نكمل التعديل والحذف والبحث بالحلقات التكرارية
شكرا لك استاذ محمد 🌹🌹👍
ان شاء الله تعالى فى فيديو قادم نعمل فيه قاعدة بيانات كاملة باستخدام الحلقات التكرارية
@@alhassanabuelkhair بارك الله فيك وزادك الله علما
شكراً علي الدرس القيم .
شكرا جزيلا لك استاذ محمد 🌹👍👍
جزاك الله خير استاذي
وان شاء الله في ميزان حسناتك
وفي انتظار البرمجة للازرار الثانية من شان يكتمل البرنامج
ان شاء الله تعالى
كل شكر لك استاذ الحسن ربي يوفقك وييسر امرك
شكرا جزيلا لحضرتك 🌹🌹
رائع ❤❤ ربنا يحفظك ويبارك فيك ❤❤ ياريت يكون تكمله بانشاء ازرار تعديل وبحث باى حرف والغاء بيانات... 🎉
الله يعطيك العافيه 🌹🙏🙏
الله يرضى عليك.نزل فديوه لعمل تقرير بدون تكرار اعتمادا على تكرار الاسم في العمود ثالث او اي عمود
والله قلبت دنيا مااقدرت.
ساعدنا الله يحزيك الخير
الاستاذ الحسن ابو الخير. شكرا لك على قدمت من فيديوهات في برنامج الاكسل. وانا من المشتركين والمتابعين لك بكل اهتمام. ارجو توضيح كيفية عمل يوزرفورم لترحيل البيانات إلى أكثر من ورقة عمل.
و عليكم السلام ورحمه الله وبركاته اخي الفاضل مرحبا بك
يوجد بالفعل فيديو فى القناة لترحيل البيانات إلى أكثر من ورقة عمل شاهد هذا الفيديو 👇
ruclips.net/video/aZ7ubd2bJsM/видео.html
أنت رجل مبدع وتحفة، أسأل الله لك التوفيق والنجاح في الدنيا والآخرة.
متشكر جدا لك 🌹🌹👍
اللهم آمين نحن و اياكم
مبدع ياابو الخير اسم على مسمى
متشكر جدا لك 🌹🙏🙏
السلام عليكم ورحمة الله وبركاته
أ / الحسن ابو الخير
شرح رائع وجميل تشكر عليه
من فضالك لو سمحت ممكن إضافة زر طباعه وزر إفراغ البيانات
شكراً لحضرتك
بالنسبة لتفريغ البيانات كتبنا الكود الخاص بتفريغ البيانات فى نهاية الفيديو
و يوجد فيديو عن الطباعة فى القناة
أحسنت استاذ حسن ارجو ما تنسى وعدك بتنزيل ملف كتابة عن البرمجه بالاكسيل ولكم وافر الشكر والامتنان
احسن الله اليكم
انا عند وعدى لكن لم يكتمل الملف وبه افكار كثيرة
تابعت شرحك الجميل وبالفعل صممت قاعدة بيانات للعاملين بس قابلني مشكلة زر الطباعة وزر الوصول لشيت البيات وخصوصا بعد اخفاء الشيتات
اولاً لطباعة البيانات الموجودة داخل شيت مختفى شاهد هذا الفيديو
ruclips.net/video/lcE27O0c2_k/видео.html
ثانياً هذا كود الطباعة
ruclips.net/video/PmqVQXRUEQc/видео.htmlsi=1wYFEeLWoOUQQskg
و إن شاء الله تعالى تجد ما تريد
عظيم 💚
واصل إبداعك 👏🏻
شكرا جزيلا لك اخي الكريم 🌹🌹🌹🌹
استاذي كيف تخلي الفورم العناصر فيه واقعه بالنصف اي الجواتب متساوية حتى التكسات المسافات بينهم متساوية وكل شي مرتب ما شاء الله
من خلال خصائص التيكست بوكس و خاصة خاصة الـ Align من تاب Format
جزاك الله خير
متشكر جدا لك 🌹🌹🙏
الرجاء عمل فيديو يشرح طريقة ترحيل البيانات من قاعدة البيانات تلقائيا إلى حساب العميل عن طريق الأكواد.
تقصد ترحيل لأكثر من شيت حسب اسم العميل ؟؟
لو تقصد كده فاحنا بفضل الله عملنا فيديو عن الترحيل لأكثر من شيت فى الاكسل موجود فى القناة
@@alhassanabuelkhair
شكرا 🌹
استاذي سوال هل ممكن مجرد ما تكبت تاريخ الميلاد يظهر السن بشكل تلقائي في خانة السن
استاذ بدر
فكرة استخراج السن من الرقم القومى فقد شرحتها بالتفصيل فى فيديو موجود بالقناة
أما لو تريد تطبيقها فى نموذج إدخال بيانات فان شاء الله تعالى سوف نشرح هذه الفكرة فى فيديو قادم
الف شكر لك استاذي على ردك السريع
اقصد هل ممكن بمجرد ادخال تاريخ الميلاد يقوم البرنامج بحساب العمر تلقائيا بدون ادخال السن كتابة
واذا ممكن فما هي هي هذا المعادلة
وشكرا لك مرة اخرى
يوجد فى القناة فيديو اسمه استخراج البيانات من الرقم القومى إن شاء الله تعالى سوف تجد ما تريد
لو سمحت عندي مشكلة
أنا عملت الأزرار ويتم ترحيل البيانات وكل شئ تمام ولكن عند الضغط على اي زر يظهر لي بيانات شيت اخر مخفي وكانها صوره فوق شيت الواجهه
طيب بعد اذن حضرتك هل ممكن اضافه خانه للتاريخ ويكون متغير يوميا
يمكن طبعا من خلال دالة Today
لكن لو تريد الخلية فى النموذج نفسه يفضل أن تعملها من خلال الاكواد علشان لما ترحل البيانات لا يتم مسح الدالة
دالة التاريخ فى الكود هى كلمة Date
استاذ الحسن ابو الخير لم تكمل حساب العميل بداة بالفاتورةالتي تمثلى تلقائي ولكن لم تكمل حساب العميل وطباعة السند وياريت تضيف حساب المرتجع وشكرا
بالفعل احنا اتاخرنا كثيرا فى دورى المبيعات
لكن إن شاء الله تعالى الاسبوع القادم هنزل فيديو جديد فيها
طب لو يوزر فورم هيكون الكود ازاى بدلا من شيت نموذج
استاذي .. لما اكتب تم ترحيل البيات يظهر لي ؟؟؟ لا تدعم اللغة العربية
استاذى لحل هذه المشكلة شاهد هذا الفيديو 👇
ruclips.net/video/S2LtRdOKfNo/видео.html
السلام عليكم جزاك الله خيرا لكن عندي خلل باللون الاصفر في اول الكود LR غيرت الاسم ومفعله مكرو مع الشكر
Lr = Data.Range("A10000").End(x1up).Row + 1 اسم الشيت DATA
ممكن اعرف اسم الشيت داخل البرمجة
@@alhassanabuelkhair اتفرجت الفديو لحضرتك عن اللون الاصفر ومشت الامور تمام لكن الان يكتب تم ترحيل البينات ويمسح المعلومات لكن لا ترجد البيانات بالشيت البيانات اعتذر لكن مبدئه بالبرمجه ومطلوب مني عمل برنامج للمكتبه الكتب
العفو 🌹
ممكن اعرف اسم الشيت داخل البرمجة
@@alhassanabuelkhair sheet 1 البيانات وsheet 2 الرئيسية
Private Sub CommandButton1_Click()
Dim Lr, CL1, CL2, IO As Long
Lr = data.Range("A10000").End(xlUp).Row + 1
For CL1 = 1 To 6
For CL2 = 7 To 12
For IO = 5 To 16 Step 2
data.Cells(Lr, CL1).Value = Sheet1.Cells(IO, "d").Value
data.Cells(Lr, CL2).Value = Sheet1.Cells(IO, "g").Value
CL1 = CL1 + 1
CL2 = CL2 + 1
Next IO
Next
Next
MsgBox "تم اضافة البيانات بنجاح", vbInformation
For Clear = 5 To 16 Step 2
Sheet1.Cells(Clear, "d").Value = ""
Sheet1.Cells(Clear, "g").Value = ""
Next Clear
End Sub
وهذه العمل لكن لا ترحل بصورة صحيحة حسب الجدول ولا ترحل كل البيانات وتبقى بالجدول المصمم
عند استخدام كود الترحيل يحذف البيانات في مكان الخلايا المرحلة إليها رغم استخدام ااكود بشكل صحيح في الجدول ماهو الحل
تأكد من كتابة 1+ فى نهاية المتغير الخاص بترحيل البيانات
و كتابة Cl1=CL1+1 فى كود الحلقات التكرارية
يعطيك العافية استاذ ممكن تساعدني بحل الخطأ
وقت ادخل لمحرر الاكواد واكتب المتغير واعرفه لما اجي اعطيه حفظ يوجهلي رسالة خطأ ويضللي اول شطر في الكود باللون الأصفر ، تحياتي لك 🌹💜
اولا هل حضرتك غير اسم الشيت كما فعلت بالفيديو
ثانيا هل حضرتك مفعل الماكرو فى الاكسل ؟؟
ثالثا يفضل ان تكتب الكود هنا لكى اعرف سبب الخطأ
@@alhassanabuelkhair نعم غيرتو ومفعل الماكرو
الكود اللى عايز أعرفه بمعنى أن أما ادوس انتر داخل شيت الاكسيل انتقل للخلية المجاورة مش للخلية اللى تحت
استاذ حاتم قولت لحضرتك مفيش كود يعمل كده فى برمجة الاكسيل لان دا عكس خوارزميات الاكسل نفسها
شكرا يا استاذ حسن بس فى حد قالى فى كود كده وماردش عليا.. معلش ازعجتك يااستاذ حسن@@alhassanabuelkhair
اخي انتر تنزل خلية وتاب تروح خلية مجاورة 🌹💜
👍❤❤👌
شكرا لك 🌹👍👍
بس وين كود البحث والتعديل في الفديو
إن شاء الله تعالى نعمله فى فيديو قادم
@@alhassanabuelkhair يا ريت في اسرع وقت يا باشمهندس
يرجى ارسال ملف الاكسل لو تكرمت
أستاذى الفاضل
تحميل ملفات الاكسل متاح للسادة المنتسبين للقناة
ruclips.net/channel/UC6HYHWSz54U500KsyZfte0Ajoin
لو الترحيل لأكثر من شيت فكيف يكون الكود
الكود سيكون مختلف قليلاً
@@alhassanabuelkhair
بارك الله فيك على الإهتمام بالرد
أنا عاوز الكود اللي يرحل لأكثر من ورقة
شكرا على الاهتمام بالرد...انا عاوز الكود اللي يرحل لاكثر من شيت @@alhassanabuelkhair
شاهد هذا الفيديو
ruclips.net/video/IxZ-ZmM-GFk/видео.html
يامنعه يُـُـُـُـُҽąـُـُـُـُاُ استاذ حسن نريد بواجه عربي
حضرتك الفكرة يمكن تطبيقها على واجهة اكسل سواء عربى أو انجليزى أو فرنسيه لأننا قمنا بتغيير اسم الشيت داخل البرمجة
شاهد الفيديو من البداية و سوف تحل المشكلة لديك
انا مافهمت الكود كيف
طب ممكن اعرف ايه المشكلة اللى واجهت حضرتك
وكيف اقدر اساعدك
معرفت الكود