البحث في الموقع

مساء الخير الاخوه الاعزاء اساتذة الاكسيل عندى ملف فيه اتصال صرف شيك كل ايصال فى شيت منفصل وفى شيت مجمع عاوز كل بيانات الشيكات تظهر فيه زى المثال اللى انا عاملة فى ملف المرفق ويا ريت لو ممكن تبقى معدلات مش اكواد ولكن لو مقيش معدلات توفى الغرض يبقى اكواد تمام وشكرا مقدما 455.xlsx

لدي ملف اكسل اود ان ارحل البيانات الخاصة بكل ورقة و جمعها في واحدة بكود المرجو مساعدتي و جازاكم الله خيرا ListEleve_20240320.xlsx

السلام عليكم و رحمة الله و بركاته و مغفرته و رضوان لكم جميعا اخوتى الأعزاء أعضاء المنتدى و زواره كنت منذ عدة ايام طلبت كود ترحيل بسيط لكن لم ارفق ملف للتنفيذ و ها أنا ارفق الملف ولكن مع بعض التعديلات على الطلب الأول حيث مع محاولاتى لتعديل اكواد مشابهة ارتفع سقف طلبى ليتحول الكود المطلوب إلى اكواد استدعاء تعتمد على ٣ متغيرات حالة الطالب ناجح او دورثان نوع الطالب بنين او بنات حالة القيد ( منقول او مستجد او باق ) او منازل وفى كل متغير يوجد احتمالين كما هو موضح مع ملاحظة انى عاوز الكود يتعامل مع المنقول و المستجد و الباقي كأنهم متغير واحد اى اى كلمة منهم هم التلاتة تعامل نفس المعاملة الشيت مصدر البيانات و الشيتات الهدف اول سطر به بيانات هو السطر ٢١ و البيانات يمكن أن توجد حتى السطر رقم ٢٠٠٠ المفترض أن الكود هيقول بالتالي اول حاجة هيحذف الداتا فى ملفات الهدف فى الرانج من الخلية A21 : HZ2000 تانى حاجة هيستدعى الداتا المطلوبة من جميع الاعمدة من A:HZ فى شيت المصدر طبعا حسب المتغيرات فى الخلايا C1 D1 E1 بشيت الهدف و محدد اسماء و ارقام اعمدة تواجدها فى الشيت او المصدر تالت حاجة هيعمل مسلسل جديد للبيانات المستدعاة رابع حاجة هيعد عدد الطلبة اللى قام بجلب بياناتهم و هيكتب رسالة تم جلب بيانات عدد كذا طالب بنجاح انا عارف ان الكود بقى معقد شوية لكن كلى امل ان اساتذتى فى اوفيسنا ماتصعبش عليهم حاجة و تقبلوا اسمى و اخلص التحايا و الامانى ملف لتجربة كود الإستدعاء.xlsm

السلام عليكم ورحمة الله وبركاته بعد اذن أساتذة المنتدى ممكن عمل كود يعمل الاتى ترحيل المبالغ الموجوده في العمود D في شيت المبالغ الى شيت تجميع المبالغ كل على حسب الاسم وشهر السداد ولكن هنا يوجد أسماء مشتركة في الدور هنا يتم ترحيل المبلغ وتجميعه لهم وفى نفس الامر اسماء داخله باربع اسهم وثلاثة اسهم عند الترحيل تقسيمهم على الادوار مثال محمود عدد الاسهم واحد نصف يعنى هيدفع 150 جنيه ومحمود فى الاسماء مكرر مرتين مرة الاسم لواحدة والاسم الثانى مشترك مع الاسم محمد عدد الاسهم داخل بنصف سهم يعنى بيدفع 50 المطلوب عند الترحيل يجمع يرحل المبلغ 100 جنيه لمحمود ويرحل 50 جنيه لمحمود ويرحل 50 جنيه لمحمد ويجمعهم معا ليصبح المبلغ 100جنيه هذا نموج للحل الجمعية الشهرية.xlsm

السلام عليكم ورحمة الله ..يوجد في هذا الكود مشكله لا اعرفها فعند ترحيل البيانات لعميل واحد فقط يقوم بالمطلوب وعدنما اقوم بفتح شيت اخر لعميل اخر لا يعمل لا اعلم اين المشكلة برجاء من سيادتكم تطبيق الكود على الملف المرفق وجزاكم الله كل خير ..sheet1 يكون فيه البيانات المراد اخذ نسخه منها وترحيلها للشيت المكتوب في الخلية C3 وهو رقم هاتف العميل Mahmoud.xlsm

السلام عليكم ورحمة الله وبركاته عندى شيت مرتبات بطبعه على 3 كشوف وكنت لما احب اعدل لازم اعدل فى كل شيت جمعت البيانات كلها فى شيت واحد وعاوز ارحل البيانات لكل شيت باسمه اعدادى 1 اعدادى 2 ثانوى ويتم اخفاء الأعمدة الفاضية من كل شيت علشان الطباعة تكون على ورقتين A3 وخالص شكرى مقدما لاعضاء المنتدى المحترمين ارجو الرد هل ينفع ولا مينفعش الترحيل لانى بحاول بيعمل معايا أخطاء ومش عارف السبب ابريل20222.xlsm

عندي 11 شيت ومحتاجه اعملهم زي يوميه مجمعه بكل البيانات اللي ف الشيتات دي بكل تفاصيلهم يعني كل الاعمده تنزل زي ماهي تحت بعضها في الشيت الرئيسي عشان اقدر اخد منها بيانات تحليليه بعد كده ياريت لو ف كود او اي ملف يقدر يساعدني ف ده لان الموجود ترحيل من شيت لشيت لكن ترحيل شيتات متعدده لشيت واحد غير موجوده ف البحث

السلام عليكم عندي ملف اكسيل وفي صفحه عامه ( شهريه ) بيتم تسجيل فيها اي حركه ولكل عميل يوجد شيت منفرد لحسابه الشخصي والمدفوعات عايز معادله او حل ان لما ادخل البيانات في الصفحه الرئيسيه باسم العميل يتم اضافه السطر كاملا بنفس البيانات في صفحه العميل تلقائيا على اساس لما احتاج اعمل كشف حساب للعميل يكون جاهز وفيه كل حركات حسابه ؟ هل يوجد برنامج جاهز للموضوع دا ؟... الملف متاح بس المفروض ان الشرح بتاعي مستوف المطلوب او انا مش عارف اوصل المعلومه .. الملف في المرفقات ... يوجد شيت لكل شهر، وفي كل شهر عدد من التعاملات عايز اعمل كشف حساب للعملاء كل واحد لوحده ( اعمل لكل عميل شيت حساب لوحده) عايز لما اضيف عمليه جديده باسم عميل تتنقل تلقائي لصفحه الحساب بتاعته عشان لما اجي اراجع حساب عميل يبقى مكتوب فيه اسم العمليات كمان والحساب يوميه المكتب .xlsm

السلام عليكم ارجو المساعدة في ترحيل متعدد و اختيار الصفوف من صف واحد و لغاية 24 من خلال شيت data من الخلايا b4, b5,b6...........b27 ثم الضغط على زر ترحيل الى شيت book حسب الترقيم اسفل الجدول الكود التالي كنب بمساعدة الاخ @hassona229 , و له جزيل الشكر و يقوم بترحيل صف واحد Sub Test() Const nRows As Long = 25 Const sCells As String = "b39,b103,b167,b231,b295,b359,b423,b487,b551,b615,b679,b6,b71,b135,b199,b263,b327,b391,b455,b519,b583,b647" Dim x, a, t, ws As Worksheet, sh As Worksheet, wsdata As Worksheet, rng As Range, r As Range, lr As Long, n As Long, i As Long, m As Long, ii As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("Name") Set sh = ThisWorkbook.Worksheets("book") Set wsdata = ThisWorkbook.Worksheets("data") sh.Range("a6:b30,a39:b63,a71:b95,a103:b127,a135:b159,a167:b191,a199:b223,a231:b255,a263:b287,a295:b319,a327:b351,a359:b383,a391:b415,a423:b447,a455:b479,a487:b511,a519:b543,a551:b575,a583:b607,a615:b639,a647:b671,a679:b703").ClearContents x = Application.Match(wsdata.Range("b4").Value, ws.Rows(2), 0) If Not IsError(x) Then lr = ws.Cells(Rows.Count, x).End(xlUp).Row If lr < 4 Then MsgBox "No Data", vbExclamation: Exit Sub Set rng = ws.Range(ws.Cells(5, x - 1), ws.Cells(lr, x)) a = rng.Value n = UBound(Split(sCells, ",")) + 1 For i = 1 To n Set r = sh.Range(Split(sCells, ",")(i - 1)) t = Application.Index(a, Evaluate("(Row(" & m + 1 & ":" & m + nRows - 1 + 1 & "))"), Array(1, 2)) m = m + nRows For ii = UBound(t) To LBound(t) Step -1 If IsError(t(ii, 1)) Then t(ii, 1) = Empty t(ii, 2) = Empty Else Exit For End If Next ii r.Offset(0, -1).Resize(UBound(t), 2).Value = t Set r = Nothing Next i End If Application.ScreenUpdating = True End Sub الملف في المرفق كتيب العلامات 2022.xlsm

وعليكم السلام اخى @محمد عدنان طلبك من البدايه كان ترحيل صف واحد وهو في الخليه b4 من شيت data وهذا ما تم عمله اختر افضل اجابه لسؤالك وافتح موضوع جديد بالطلب الجديد وان شاء الله تجد مطلبك سواء منى او من الاساتذه

السلام عليكم اخ @hassona229 نعم لكن للاكسل بعد تصدير الاسماء من شيت name الى book حسب الاختيار من شيت data اخ @hassona229 فكرة ملف العمل هو عملية ترحيل الاسماء الى ورقة book ثم يقوم بطباعتها على شكل كتاب الطباعة تكون بعد تسخ الاسماء للطلبة ملاحظة ليس نسخ جميع الاسماء للصفوف التسخ يكون شرط اختيار الصفوف من صفحة data الاختيار ممكن يكون صف واحد او خمسة او عشرة او اعلى اختيار 24 صف اتمنى ان يكون الشرح واضح و جزاك الله خير الجزاء السلام عليكم هل هنالك من طريقة لعمل الماكرو او اي فكرة لترحيل الاسماء،؟ و شكرا للجميع

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

السلام عليكم ورحمة الله وبركاته كنت منذ زمن حملت ملف لدرجات الطلاب وقد أجريت عليه تعديلات يسيرة. أرجو المساعدة في إخراج هذا الملف بصورة جميلة وكلي ثقة بإبداعاتكم. المطلوب: تعديل الكود بحيث يرحل الناجحين إلى شيت: (ناجح) والذين عليهم الدور ثاني، إلى شيت: (دور ثاني) ولو في مجال ترحيل كذلك العشر الأوائل إلى الشيت المسمى بنفس الاسم وكذلك تعديل على شيت الإحصائية، وكذلك ترحيل الغائبين عن الاختبار إلى شيت الغائبين. كشوفات الناجحين والراسبين - فصل واحد.xlsm

هذا الأمر تم تناوله في المنتدى كثيرا بعنوان ترحيل من عدة شيتات إلى شيت واحد يمكنك الرجوع لهذه الموضوعات للاستفادة منها في استنتاج الكود اللازم في ملفك بالتوفيق

أرجوا من السادة الافاضل ان تفيدني عن كيفية جلب البيانات من عدة شيتات الي شيت واحد تلقائيا وعند تعديل البيانات يتم التعديل تلقائي

السلام عليكم إخواني أهل المنتدى أريد معادلة ترحيل البيانات من شيت واحد إلى شيت 2 كما هو موضح في الجدول تـــم تعديل عنوان المشاركة ليتناسب مع طلبك صالح.xlsx

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

تحية طيبة للجميع وأسأل الله أن يديم عليكم لباس الصحة والعافية عندي كودين الأول لترحيل حلقة متكررة إلى شيت 2 وحفظ الشيت الثاني PDF والكود الثاني من تعديل الأستاذ (الرائد77) عند دمج الكودين يطلع لي خطأ في السطر sned بمعنى أن الترحيل إلى PDF يعمل تمام ولكن المشكلة ما قدرت أرسله على الإيميل الخطأ عند send المطلوب : 1) تصحيح خطأ الإرسال بالإيميل 2) وإذا كان من الممكن استبدال سطر a = 1 Do While a <= 4 بهذا السطر لكي استغني عن تعديل الكود في كل مرة For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row الكود بالكامل Sub Send_Payslip() Dim OutApp As Object Dim OutMail As Object a = 1 Do While a <= 4 EmpID = Sheet2.Range("A8").Offset(a, 0).Value Sheet3.Range("A8").Value = EmpID Filename = Sheet3.Range("A1").Value & ".pdf" Sheet3.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Filename Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Range("A22").Value .Subject = Range("A1").Value .HTMLBody = Range("A1").Value .Attachments.Add (ThisWorkbook.Path & "\" & Sheet3.Range("A1").Value & ".pdf") .Send End With Set OutMail = Nothing Set OutApp = Nothing a = a + 1 Loop End Sub تحياتي للجميع إرسال إيملات pDF.xlsm

الاساتذة الافاضل الاخوة بحاجة لفكرة من خبراتكم لتسهل عليا الموضوع الموضوع ان لدى عدد 6 مصنفات كل حياتى بالملفات هذه الملفات ال6 بها نفس الاكواد ونفس التقارير اغلبها من اهداء الاستاذ العبقرى سليم حصبيا الشيتات بكل مصنف هى اسماء حسابات فى 6 مصنفات عدد114 شيت وهى 114 حساب الاعمدة فى ال6 مصفات هى 20 شخص كل مصنف به فى كل شيت عدد 5 اشخاص يوجد حسابات مشتركة فى ال 6 مصنفات عدد 20 حساب مشترك انا اعمل على ال6 مصنفات بحيث ادخل كل شخص سدد مبلغ كام على الحساب من خلال شيت ترحيل واذا طلب اى تقرير اقوم بجمع ال6 تقارير واجمعهم فى تقرير واحد حيث يوجد تقرير به اسماء الحسابات بتاريخ احتاج افكارسهلة انفذها بحيث اجمع ال 114 شيت فى مصنف واحد فى كل شيت 20 عمود بحيث اطلع تقرير مجمع جاهز للطباعة مرفق ملف من 6 ملفات به التقرير الذى اهداه الى اخى فى الله استاذ سليم اعزه الله , m هى اسم الشخص و1و2و3 اسم الحساب شكر وتقدير واحترام My_Repport_Updated.xlsm

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

عندى ملف الاكسل المطلوب الشيت الاول مسمى يومى اسجل فيها البيانات اليوميه الشيت التالى مسمى ابريل 2 اى يعنى من 15 الى 30 ابريل الشيت التالى مسمى مايو1 اى يعنى من 1الى 15مايو وهكذا اريد عمل زر فى الشيت (يومى ) بحيث عند ملء البيانات والضغط عليه بيانات اليوم الى شيت التجميع ابريل2 اى يرحل البيانات الى شيت ابريل2 يوم 15 ابريل الذى هو يوم التسجيل واليوم التالى 16 ابريل بعدما امسح البيانات واسجل جديد يوم 16 يرحلها الى ملف ابريل2 سطر يوم 16 وهكذا وعندما ياتى يوم واحد مايو يرحل فى 1 مايو وهكذاااااااااااااااااااا واخر ملف يجمل كل المراحل معا بشكل اوتوماتيكى فى شيت (اجمالى كلى) هل هذا ممكن فى اكسل ولكم جزيل الشكر عنوان مخالف... تم تعديل عنوان المشاركة ليعبر على طلبك ترحيل من يومى لاسبوع او شهرى.xlsx

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

السلام عليكم ورحمة الله فضلا لدي استفسار بخصوص تجميع بيانات من شيتات مختلفة إلى شيت واحد تجميعي بطريقة معينة وهي كالتالي في المرفق مثال بيه عدد 2 ملف فيهم البيانات المطلوب تجميعها في الشيت الثالث Sample Sheet 1 الشيت الأول Sample Sheet 2 الشيت الثاني Collecting Sheet الذي سيتم فيه التجميع الشيت الأول والثاني وكل الشيتات على نفس الشاكلة فيها نفس تصميم وأماكن الخلايا ولكن البيانات هي اللي متغيرة وفي الشيت أنا موضح كل حاجة إن شاء الله المطلوب عمل زر في الشيت التجميعي بمجرد الضغط عليه يظهر نافذه أختار منها الشيت اللي عاوز انسخ البيانات منها فيتم ترحيلها للشيت التجميعي بحيث مع التكرار لإدراج البيانات من الشيتات المختلفة يتم إدراجها تحت بعضها كأنه ترحيل فواتير على سبيل المثال. اتمنى من حضراتكم المساعدة واتمنى إن الشرح على الشيتات المرفقة واضح. SAMPLE.rar

السلام عليكم ورحمة الله تحية لكم يا كرام عندي ملفين (ملف فيه بيانات بعض الموظفين غير مرتبين ) أريد ترحيل صف بيانات الموظف من العامود A:AG إلى الملف الثاني في شيت Overtime على حسب رقم الموظف في العامود A ملاحظة: لا يوجد تكرار في رقم الموظف سواء في المصدر أو الهدف فما له داعي وضع شرط تكرار ملاحظة: الملفين في مجلد واحد ولا يمكن أن يكون في نفس المجلد ملفات أخرى لا إكسل ولا غيره بحثت في المنتدى وغيره ما وجت ترحيل مجموعة صفوف على حسب رقم الموظف مع الشكر مقدماً لكل من مر هنا وأخص من ساعدني بالدعاء والشكر تحياتي OT_2_DE..xlsx Q.c.xlsx

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