بارك الله فيك وجعل هذا العمل في ميزان حسناتك نتمنى المزيد
@mouhdoudi9874 жыл бұрын
بارك الله فيك ياخي الفاضل جزاك الله خيرا انشاء الله
@atefkhalifa75443 жыл бұрын
جزاكم الله خيراً
@wesam.mohamed49706 жыл бұрын
جزاك الله خيرا استاذ اسلام رجب
@hossamyoussef87337 жыл бұрын
ما شاء الله عليك جزاك الله خيرا وجغلة الله فى ميزان حسناتك ؟؟ الى عاةز يوصل االفيل ممكن تدلنا لو سامحت
@morcosmina15496 жыл бұрын
الله ينور عليك. سؤالى لو حبيت الشيت الاساسي يظل بدون مسح كيف يتم ترحيل الداتا الجديدة فقط
@zozozozo436 жыл бұрын
رح اضرب راسي بالحيط كرمال اقتراحك
@HassenHB6 жыл бұрын
يا استاذ جزاك الله خير حاب اعرف كيف اتحكم في عدة جداول من جدول رئيسي حيث اذا حذفت صف يحذفه من جميع الجداول او اضف صف علما العمل يكون في ملف واحد متكون من صفحات
@aymnsmoudi28479 жыл бұрын
الله يسلم ايديك وبارك الله فيك ممكن نعكس العملية جلب البيانات من صفحات الى الصفحة الاولى
@ouzadidibrahim5 жыл бұрын
بارك الله فيك . اريد نفس الطريقة لكن الترحيل يكون لملف جديد.
@kambodi20102 жыл бұрын
السلام عليكم للي حصل عندهم خطأ out of script error 9 ضع في بداية الكود dim x as string وان شاء الله تنتهي المشكلة
@khater5357 жыл бұрын
اخي الفاضل السلام الله عليكم ورحمته وبركاته جزاك الله عنا خير الجزاء .مطلوب ترحيل بيانات 20 صنف من ورقة العمل الى 20 ورقة بحب اسم الصنف ياريت ترسل الملف حتى نستفيد
@K.P.shaimaa6 жыл бұрын
لو سمحت لو كان العمود كل والخليه يوجد بيها كلام مختلف
@joseflama72866 жыл бұрын
السلام عليكم أستاذ رجب. لو أمكن الترحيل من اللست بوكس ألى الشيت لو أمكن القيم المالية ترحيلها من اللست. بوكس إلى الشيت
@eng.abdullahelsnoty54223 жыл бұрын
طيب انا دلوقتي بيبقي عند خلايا فاضية و مش عايزها تتمسح لم ادوس ترحيل ايه الحل او بمعني تاني يرحل الصفوف اللي بيقي الخانة بتاعتهم فيعا البيان بتاعها ويترك الصفةف اللي الخلية بتاعتهم مفيش فيها بيانات
@tariksalman72257 жыл бұрын
انا اشتغلت زى المثال تمام بس مش فهم الخطاء منين
@alikoukach64216 жыл бұрын
الف شكر على الشرح عندي سؤال لوسمحت لدي 12 شيت كل شيت يمثل مصروفات يومية في شهر من السنة من مواد مختلفة والعمود الاخير في كل شيت يمثل مجموع المصروفات من كل مادة خلال الشهر كيف يمكن ان انقل اعمدة المجموع من كل شيت اي من كل شهر الى شيت 13 والتي تمثل اسماء اشهر السنة في السطر العلوي وتحت كل اسم شهر عامود مجموع مصروفات المواد خلال هذه الشهر
@العقولالسامية-غ1ي6 жыл бұрын
السلام عليكم
@mohamedasaleh71275 жыл бұрын
Sub Mohamed() Sheets(1).Activate For Each f In Range("E2:E50") If f "" Then x = f.Value Range(f.Offset(0, -3)).Copy LR = Sheets(x).Range("B" & Rows.Count).End(xlUp).Row Sheets(x).Activate Range("B" & LR + 1).Select Selection.PasteSpecial xlPasteValues End If Next f Sheets(1).Activate Application.CutCopyMode = False Range("B2:E50").ClearContents End Sub
@AnwarAlfaqeehAlhusseini6 жыл бұрын
لو عايز ارحل الى مصنف اكسل لكل صنف يعني ملف اكسل تاني
@saadmahfouz0124 жыл бұрын
سلام عليكم هل كان فى رد
@AnwarAlfaqeehAlhusseini4 жыл бұрын
saad mahfouz وعليكم السلام لا ما في ردود
@العقولالسامية-غ1ي6 жыл бұрын
اخ اسلام لدي مشكلة في الترحيل كلما قمت بترحيل تاخذ البيانات نفس المحل الاول ثم اعيد الترحيل فيرحل بنفس المكان ولاينزل ابدا الى تحت في نفس العامود مع ان الكود صحيح فهو دايما يرحل في اول صف ولاينزل الى تحت
@greenlandgreenland19534 жыл бұрын
مساء الفل والورد استاذي الكريم عملت الخطوات بس عندي على اخر خطوة زر الترحيل وكيف اعمل زر الترحيل مع الكود الخاص بزر الترحيل هنا المشكلة متوقفة عندي ممكن اتبين لي مع التوضيح مع الشكر الجزيل لك
@clinic9medicalcomplex4393 жыл бұрын
أضف أي شكل تريده لزر الترحيل و اكتب فيه اللي تريد و بعداه اضغط عليه باليمين و اضغط assign macro
@Agirvan-QM3 жыл бұрын
تحية طيبة الأخ اسلام لدي سؤال عن ترحيل بيانات فاتورة مبيعات وهو: هل يمكن كتابة كود يقوم بترحيل بيانات فاتورة وجمع المتشابه منها في جدول المبيعات تلقائيا دون تكرارها, أي جمع السعر النهائي والعدد المباع مثلا لصنف ما تلقائيا خلال الترحيل دون تكرار اسم الصنف أسفل بعضها. وهل لديك فيديو على القناة يقوم بشرح هذا الأمر ؟
@عمادالدويدى-خ4ظ6 жыл бұрын
انا عملت نفس الخطوات لكن فى مشكلة بيرحل اول شيت فقط ويجبلى خطأ ف lr = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row
@saad_alsahli5 жыл бұрын
نفس المشكلة
@tariksalman72257 жыл бұрын
ممكن ترسلى الملف
@elbadrylawyer41907 жыл бұрын
lr = Sheets(x).Range("a" & Rows.Count).End(x1up).Row لو سمحت المعادلة بتجي فيها خطاء
@tariksalman72257 жыл бұрын
ir = Sheets(x).Range("A" & Rows.Count).End(X1Up).Row لو سمحت استاذ اسلام مش فاهم اعكس اذاى بتيجى فيها خطاء جزاك الله خير
@saad_alsahli5 жыл бұрын
نفس المشكلة
@mostafaabdelbakielsayed8236 жыл бұрын
imgur.com/a/00csnCz يا استاذ اسلام بص على الصورة دى وشوف الخطا لو سمحت
@mostafaabdelbakielsayed8236 жыл бұрын
imgur.com/a/pgx2dXr
@ferasesm6 жыл бұрын
السلام عليكم اخي الفاضل نفس الخطأ ظهر معي هل تمكنت من حل الخطأ افيدونا ودمتم سالمين