حسين مامون

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

جرب المرفق معادلة.xlsm

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

هل تقصد الحدف الخلايا من C4:A4 و C7:A7 وضح اكثر ما تريد و ما لا تريد

الكود يعمل بناء على طلبك انظر الصورة عموما اشرح ما تريد بالتفصيل وسأحاول انشاء الله

تفضل TEST2.xlsm

تفضل جرب معادلة.xlsm

السلام عليكم بعد ادن الاستاد Hicham1470 جرب المرفق...................... اي ادخال في العمود M سيفتح فورم يبين نفس الادخال في جميع الشيتات TEST2.xlsm

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

وعليكم السلام ورحمة الله اليك هذا الكود جربه يقوم بترحيل بشروط : اولها يفحص الخلايا في العمود 17 اذا كانت متطابقة مع اي شهر (مسميات الصفحات) تانيا : يفحص كود العميل في العمود b في الداتا و العمود b في شهر (الصفحة المطابقة للشرط الاول) اذا وجد الكود يمر الى التالي وغير ذلك يرحل ملاحظة : اضف تتمة الكود حسب ما تريد ان يرحل تحياتييييييييييييييييييييييييييي Option Explicit Sub tarhil2() Dim sh As Worksheet Dim ws As Worksheet Set ws = Sheets("Accmove") Dim lr1, lr2, x Application.ScreenUpdating = False lr1 = ws.Cells(Rows.Count, 3).End(3).Row For Each sh In Sheets If sh.Name <> "Accmove" Then For x = 4 To lr1 lr2 = sh.Cells(Rows.Count, 2).End(3).Row If lr2 = 3 Then lr2 = lr2 + 1 If sh.Name = ws.Cells(x, 17).Text Then If Application.WorksheetFunction.CountIf(sh.Range("b5:b" & lr2), ws.Cells(x, 2)) > 0 Then GoTo 1 '=============== sh.Range("b" & lr2 + 1).Value = ws.Cells(x, 2) sh.Range("c" & lr2 + 1).Value = ws.Cells(x, 3) 'اضف ما تريد ان يرحل هنا كالسطرين اعلاه '=============== End If 1: Next x End If Next sh Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله ...جرب المرفق علامه صح اوخطأ.xlsm

جرب تغيير الشرط في الكومبوبوكسات كما في الصورة

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

جزاك الله خيرا استاذ مجدى يونس

الحمد لله ان تم الامر على خير تم عمل المطلوب جرب المرفق كشوفات الطلبة الرسمي 2022 - 1.xlsm

الكومبوبوكس لتعيين العمود لي فيه اسماء الطلاب يعني عند ادخال اسم الطالب في تيكست البحث سيظهر اسم الطالب في الست1 ويمكن بحث في جميع الاعمدة ولكن بالحلقات التكرارية او انشاء صفحة مساعدة اصبر شويا وسأعمل على هذا ...جرب المرفق كشوفات الطلبة الرسمي 2022 - 1.xlsm

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

يعمل عندي وهذا المرفق كشوفات الطلبة الرسمي 2022 - 1.xlsm سبب الخطأ في الصورة امسح المدى الخاص بتعبأة الكومبوبومسات

بالنسبة لاضافة طالب انسخ الكود الى الفورم Option Explicit Private Sub Comclass_Change() Label13.Caption = Comclass.Column(1) Label14.Caption = Comclass.Column(2) End Sub Private Sub CommandButton1_Click() 'On Error Resume Next Dim x Dim R As Long Dim RR, lr If Label13.Caption = "" Then MsgBox "اختر الصف اولا", vbExclamation: Exit Sub R = Label13.Caption RR = Label14.Caption Dim ws As Worksheet: Set ws = Sheets("Names") Application.ScreenUpdating = False lr = ws.Cells(Rows.Count, (R)).End(3).Row ws.Range(RR).Offset(lr) = txtname Application.ScreenUpdating = True End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() Dim x, R R = 0 Dim ws As Worksheet: Set ws = Sheets("Names") Comclass.ColumnCount = 3 For x = 1 To 49 If ws.Cells(1, x) = "الرقم" Then GoTo 1 Comclass.AddItem Comclass.List(R, 0) = ws.Cells(1, x) Comclass.List(R, 1) = ws.Cells(1, x).Column Comclass.List(R, 2) = ws.Cells(1, x).Address R = R + 1 1: Next x End Sub

تفضل اوفيسنا بحث معدل 3.xlsm

جرب المرفق داتا-1 (2).xlsm

وعليكم السلام ورحمة الله ...تفضل اتمنى ان يكون ما تريد ..واسف على التأخر في الرد لظروف قاهرة هناك بعض الاضافات مثل sheet1 الذي يمكنك اضافة اصناف اخرى حسب النوع الذي تريد انظر sheet1 وشيت خاص للطباعة ملاحظة: ما زلت لم افهم (الانشطة) جرب ان كان ماتريد فحسنا ...في الصورة الانشطة AD . AR شرح غير مفهوم داتا-1 (2).xlsm

بعد اذن الاستاد مهند محسن انسخ الاكواد وضعها داخل الفورم Private Sub TextBox1_Change() TOTALALL End Sub Private Sub TextBox2_Change() TOTALALL End Sub Private Sub TextBox3_Change() TOTALALL End Sub Private Sub TextBox4_Change() TOTALALL End Sub Private Sub TextBox5_Change() TOTALALL End Sub Sub TOTALALL() TextBox6 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) End Sub

يمكن ذلك ولكن بانتشاء زر تعديل وليس اضافة كود للترحيل مع الجمع.xlsm

السلام عليكم ...جرب المرفق كود للترحيل مع الجمع.xlsm