اكسل vba الترحيل حسب اسم الصنف

رابط جروبنا على الفيس بوك
www.facebook.c...
رابط صفحتنا على الفيس بوك
www.facebook.c...

[@عدليالمنسي-خ7ت]

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

[@mouhdoudi987]

بارك الله فيك ياخي الفاضل جزاك الله خيرا انشاء الله

[@atefkhalifa7544]

جزاكم الله خيراً

[@eng.abdullahelsnoty5422]

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

[@HassenHB]

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

[@wesam.mohamed4970]

جزاك الله خيرا استاذ اسلام رجب

[@hossamyoussef8733]

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

[@ouzadidibrahim]

بارك الله فيك . اريد نفس الطريقة لكن الترحيل يكون لملف جديد.

[@morcosmina1549]

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

[@zozozozo43]

رح اضرب راسي بالحيط كرمال اقتراحك

[@aymnsmoudi2847]

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

[@kambodi2010]

السلام عليكم للي حصل عندهم خطأ out of script error 9 ضع في بداية الكود dim x as string وان شاء الله تنتهي المشكلة

[@K.P.shaimaa]

لو سمحت لو كان العمود كل والخليه يوجد بيها كلام مختلف

[@joseflama7286]

السلام عليكم أستاذ رجب. لو أمكن الترحيل من اللست بوكس ألى الشيت لو أمكن القيم المالية ترحيلها من اللست. بوكس إلى الشيت

[@tariksalman7225]

انا اشتغلت زى المثال تمام بس مش فهم الخطاء منين

[@AnwarAlfaqeehAlhusseini]

لو عايز ارحل الى مصنف اكسل لكل صنف يعني ملف اكسل تاني

[@saadmahfouz012]

سلام عليكم هل كان فى رد

[@AnwarAlfaqeehAlhusseini]

saad mahfouz وعليكم السلام لا ما في ردود

[@Mas_aden1]

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

[@greenlandgreenland1953]

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

[@clinic9medicalcomplex439]

أضف أي شكل تريده لزر الترحيل و اكتب فيه اللي تريد و بعداه اضغط عليه باليمين و اضغط assign macro

[@khater535]

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

[@العقولالسامية-غ1ي]

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

[@alikoukach6421]

الف شكر على الشرح عندي سؤال لوسمحت لدي 12 شيت كل شيت يمثل مصروفات يومية في شهر من السنة من مواد مختلفة والعمود الاخير في كل شيت يمثل مجموع المصروفات من كل مادة خلال الشهر كيف يمكن ان انقل اعمدة المجموع من كل شيت اي من كل شهر الى شيت 13 والتي تمثل اسماء اشهر السنة في السطر العلوي وتحت كل اسم شهر عامود مجموع مصروفات المواد خلال هذه الشهر

[@عمادالدويدى-خ4ظ]

انا عملت نفس الخطوات لكن فى مشكلة بيرحل اول شيت فقط ويجبلى خطأ ف lr = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row

[@saad_alsahli]

نفس المشكلة

[@العقولالسامية-غ1ي]

السلام عليكم

[@Agirvan-QM]

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

[@tariksalman7225]

ممكن ترسلى الملف

[@elbadrylawyer4190]

lr = Sheets(x).Range("a" & Rows.Count).End(x1up).Row لو سمحت المعادلة بتجي فيها خطاء

[@tariksalman7225]

ir = Sheets(x).Range("A" & Rows.Count).End(X1Up).Row لو سمحت استاذ اسلام مش فاهم اعكس اذاى بتيجى فيها خطاء جزاك الله خير

[@saad_alsahli]

نفس المشكلة

[@mostafaabdelbakielsayed823]

imgur.com/a/00csnCz يا استاذ اسلام بص على الصورة دى وشوف الخطا لو سمحت

[@mostafaabdelbakielsayed823]

imgur.com/a/pgx2dXr

[@ferasesm]

السلام عليكم اخي الفاضل نفس الخطأ ظهر معي هل تمكنت من حل الخطأ افيدونا ودمتم سالمين