جزاكم الله خيرا وبارك الله فيكم بالرغم كنت ابحث عملية ترحيل البيانات بدون اكواد ولكن طريقتك شجعتني كثيرا وارجو ان تعذرني لجهلي في الفيجول بيسك ولكن ظهرت لي رسالة خطأ424 run time error والسطر الثاني object required ماذا يعني ذلك بالرغم انا اسير على نفس خطواتك تحياتي لكم ولجهودكم
شكرا لك على المعلومات الجميلة.. طبقت العملية بنجاح ولكن عند الخروج من ورقة العمل ثم الدخول اليها واضافة معلومات جديدة والضغط على حفظ لا يقبل وتظهر رسالة بخصوص المايكرو
السلام عليكم كنت أريد مساعدة منك بس في الكود ده اريد ان احدد مدى في الاكسيل من داخل الفيجوال بيسك بحيث أحدد اسم الخلية في المدى من متغيرات فبدلا من كتابة اسم الخلية مثل هذا myexcel.Range("a3 : f10 ").Copy أحددها بمتغير myexcel.Range("a & y1 : f & y2").Copy ولكنها تعطي error
اخي الفاضل انا عندي ملف اكسل به عدد 2 ورقة بقوم بترحيل عدة اعمدة وصفوف من ورقة الي الثانية ويكون اللصق في العمود c تمام وبيكون اكثر من صف انا اريد اجعل ال Vba يكتبلي امام كل خلية تم نقلها التاريخ في العمود A ويكتب ايضا الشهر في العمود B للخلايا المنقولة فقط الجديدة لكي اعرف متي رحلت هذه البياانت ارجوا الافادة شكرا
تحية طيبة الأخ الكريم لدي سؤال عن ترحيل بيانات فاتورة مبيعات وهو: هل يمكن كتابة كود ترحيل بيانات فاتورة وجمع الأصناف المتشابهة منها في جدول المبيعات تلقائيا دون تكرارها, أي جمع السعر النهائي والعدد المباع مثلا لصنف ما تلقائيا خلال الترحيل دون تكرار اسم الصنف أسفل بعضها. هل لديك فيديو على قناتك يقوم بشرح ذلك..
تحية طيبة الأخ الكريم لدي سؤال: هل يمكن كتابة كود يقوم بترحيل بيانات من شيت إلى آخر وجمعها في جدول واحد دون تكرارها ؟ مثال، عند ترحيل بيانات فاتورة مبيعات إلى جدول مبيعات في شيت آخر هل يمكننا جمع العدد المباع والسعر النهائي على سبيل المثال للأصناف المتماثلة دون تكرارها أسفل بعضها وذلك لضمان عدم تكبير حجم ملف الإكسل
Worksheets.FillAcrossSheets (Worksheets("æÑÞÉ1").Range("A1:C50000")) هذا كود ترحيل لكل الصفحات الى انا اريد الترحيل الالى لصفحه واحده فقط لتكون شيت 2 مثلا
الله رائع تسلم ايدك شرح وتقديم
... بصراحه استخدامك للاكواد بطريقه سهلة و بسيط جداً
mohamed nagib youssef
😍😍😍 كل الشكر والتقدير لحضرتك استاذ محمد
السلام عليكم ورحمة الله تعالى وبركاته
كود رائع جدا ومفيد للغاية
شرح بسيط ودقيق جدا
بارك الله فيك أستاذ وجزاك الله عنل خير الجزاء
شكرا لحضرتك استاذ محمد علي الكلام الجميل
احست جداً جميل انك بتشارك افكارك مع الأخرين في ميزان حسناتك يارب
وحبيت اعرف اذا كنت اريد ترحيل الأسماء الى شيت ثاني بدون مايختفي من الشيت الأوالي كيف
Mhs Bh
شكرا لحضرتك هي البيانات مش بتختفي
هي بتتمسح بعد الترحيل
Sheet1. Range("A1"). Value=""
ده مثال ان يمسح الخلية A1 في Sheet1
جزاك الله خيرا و بارك الله فيك جيد جدا
جزاك الله خيرا على المجهود الرائع والمميز والبسيط
Amir Sokar
كل الشكر والتقدير لحضرتك استاذي
والله العظيم شرح جميل وممتاز ولديا سؤال في حالة احد الخلايا على الاقل فارغة مثلا الخلية b3 ;b2 h; b1
شكرا لحضرتك 😁
قاعده IF تقدر تزود فيها زي ما انت عاوذ وبالشرط اللي نفسك فيه
اوجزت وابلغت .. وفقك الله لنفع المتابعين والمهتمين
شكرا .
كل الشكر والتقدير علي هذا الكلام الجميل شكرا لحضرتك يا فندم
شكرا جدا لشرح حضرتك بس ممكن نضيف عدم تكرار البيانات
احسنت يا استاذ استمر😍😘😘
شكرا استاذ احمد يوسف علي الفيديو
ممتاز جدا
Ahmed Mohamed Abd Rabbou شكرا لحضرتك استاذ احمد
جزاك الله خيرا . لو عوز ارحل البيانات من سطر الى سطر اخر فى نفس الشيت بمجرد ما ادوس انتر وشكرا جزيلا
شرح جميل شكرا لحضرتك استاذ احمد
تعطيك الف عافية بس حاب استفسر هل يمكن عمل كود لعدم ترحيل بيانات مكررة
الكود واضح و بسيط لكن ناقصه دالة offset للإنتقال من سطر الى السطر التالي
لو سمحت لو عاوز الماكرو ينقل خلايا فيها معادلات لشيت تاني بحيث تظهر في الشيت التاني قيم وليس معادلات
جزاك الله خيرا
ممكن ياستاذ تشرح النى بشكل افقي هذا الفيديو عمودي لو حبيت اعمل بشكل افقي بدل العمودي
شرح اكثر من رائع شكراً لك
كل الشكر والتقدير لحضرتك أستاذ يس
جزاك الله خير
جزاكم الله خيرا وبارك الله فيكم بالرغم كنت ابحث عملية ترحيل البيانات بدون اكواد ولكن طريقتك شجعتني كثيرا وارجو ان تعذرني لجهلي في الفيجول بيسك
ولكن ظهرت لي رسالة خطأ424 run time error والسطر الثاني object required
ماذا يعني ذلك بالرغم انا اسير على نفس خطواتك
تحياتي لكم ولجهودكم
استاذ ممكن تعرض فيديو جديد لكن الجدول بشكل افقي لاني عمل بنفس الطريقة لكن ماعرف ممكن المساعدة وشكراً
الكود بيرحل البيانات بالفعل بشكل افقي
شكرا لك على المعلومات الجميلة..
طبقت العملية بنجاح ولكن عند الخروج من ورقة العمل ثم الدخول اليها واضافة معلومات جديدة والضغط على حفظ لا يقبل وتظهر رسالة بخصوص المايكرو
يعني يقول تم تعطيل المايكرو الخاص بك بسبب وحدات الأمان الخاص بك..
كيف احل المشكلة رجاء
فعل المايكرو عندك في شيت الاكسيل استاذي
انا دايما بذكرها في اي فيديو
شكرا لك اخي المريم.. فعلتها..مشي الحال..
واذا اردنا منع البيانات مكررة ما العمل
لو سمحت انا عملت يوزر فورم..
وحابب اعمل زر اخفاء الورقة (تصغير)
كيف لو سمحت؟؟
في حدث الورك بوك - Open
Application.Visible = False
بحفظ انيبول ماكرو ولما بفتح تانى مش بيشتغل
حضرتك بتحفظ بصغة Enable Workbook Macro
ولاة شيت اكسيل عادي
@@HowToExcel
مش بحفظ عادى
بحفظ انيبول ماكرو
طب بعد اذنك انا عايز كود يعمل ازاحه للاسفل فى حالة وجود قيمه فى الخليه المجاوره
مش فاهم قصد حضرتك ممكن توضح اكتر
السلام عليكم
كنت أريد مساعدة منك بس في الكود ده
اريد ان احدد مدى في الاكسيل من داخل الفيجوال بيسك بحيث أحدد اسم الخلية في المدى من متغيرات
فبدلا من كتابة اسم الخلية مثل هذا myexcel.Range("a3 : f10 ").Copy
أحددها بمتغير myexcel.Range("a & y1 : f & y2").Copy
ولكنها تعطي error
أستاذنا الفاضل لو سمحت تتكرم علينا بكود ترحيل البيانات
من ملف اكسيل إلى ملف آخر ، وليس من شيت إلى شيت
في نفس الملف وجزاك الله عنا خير الجزاء
اخي الفاضل
انا عندي ملف اكسل به عدد 2 ورقة بقوم بترحيل عدة اعمدة وصفوف من ورقة الي الثانية
ويكون اللصق في العمود c تمام وبيكون اكثر من صف
انا اريد اجعل ال Vba يكتبلي امام كل خلية تم نقلها التاريخ في العمود A
ويكتب ايضا الشهر في العمود B للخلايا المنقولة فقط الجديدة
لكي اعرف متي رحلت هذه البياانت ارجوا الافادة
شكرا
فى سوال ممكن اسال
شكراااا
جزاك الله خير لكن رابط الملف لا يعمل
تحية طيبة الأخ الكريم
لدي سؤال عن ترحيل بيانات فاتورة مبيعات وهو: هل يمكن كتابة كود ترحيل بيانات فاتورة وجمع الأصناف المتشابهة منها في جدول المبيعات تلقائيا دون تكرارها, أي جمع السعر النهائي والعدد المباع مثلا لصنف ما تلقائيا خلال الترحيل دون تكرار اسم الصنف أسفل بعضها.
هل لديك فيديو على قناتك يقوم بشرح ذلك..
وحالب اعرف شلون افعل عملية الحفظ
تحية طيبة الأخ الكريم
لدي سؤال: هل يمكن كتابة كود يقوم بترحيل بيانات من شيت إلى آخر وجمعها في جدول واحد دون تكرارها ؟
مثال، عند ترحيل بيانات فاتورة مبيعات إلى جدول مبيعات في شيت آخر هل يمكننا جمع العدد المباع والسعر النهائي على سبيل المثال للأصناف المتماثلة دون تكرارها أسفل بعضها وذلك لضمان عدم تكبير حجم ملف الإكسل
استاذي ماعم يمشي الحال عم يعطي خطأ
لماذا لايعمل عندي يطلع خطأ
برجاء رفع الشيت
للاسف ليس هناك ملف خاص بالفيديو
شرح الكود سهل حضرتك تقدر تعمله
ممكن الترحيل الاتوماتك للبيانات من غير رز حفظ
+Yasser Amen
يعني يرحل اتوماتيك بالتحديد استاذي
نفس المثال اللى حضرتك عامله لكن ترحيل البيانات يكون الى بدون تدخل منى
Worksheets.FillAcrossSheets (Worksheets("æÑÞÉ1").Range("A1:C50000"))
هذا كود ترحيل لكل الصفحات الى
انا اريد الترحيل الالى لصفحه واحده فقط لتكون شيت 2 مثلا
طيب لاذم يكون فيه شرط معين علشان يرحل عنده
How To Excel لا هذا الكود بيرحل جميع البيانات من غير شرط بمجرد كتابه البيانات فى شيت ١ يتم ترحيلها لجميع الشتات
ممكن الكود اكسل
استاذ ممكن ايميل اورقم الوتسب لتواصل
تقدر حضرتك تتواصل معانامن خلال صفحة الفيس بوك او الجروب
استاذي ماعم يمشي الحال عم يعطي خطأ