عبدالفتاح محمد

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

السلام عليكم احتاج الى كود عندما اضع البيانات في التيكست بوكس2 يظهر اوتماتيكيا البيانات في بقية التيكسات بمجرد الكتابة مع العلم يكون البحث بناء على العمود b للورقة 1 بدون زر تحكم ان امكن textbox.xls

السلام عليكم تواجهني مشكلة في نقل البيانات هنا اريد ان اتناول جزئية من اليوزرفورم حيث اريد ترحيل بيانات اليوزرفورم التي تبدا من ر.م الى الاجمالي بحيث يتم ترحيل بيانات التيكست بوكس والكومبوكس الى ورقة العمل بحيث يبدا المدى للخلايا من a23:g23 هنا لقد تعمدت عدم ادراج صفوف تحت المدى a23 بحيث عندما يتم ترحيل البيانات التي اقوم بتعبئتها يقوم بادراج صف تحته مباشرة بنفس التنسيق بدون وجود اي صفوف فارغة ارفق لكم الكود والملف Private Sub CommandButton1_Click() Dim lastRow As Integer lastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1 æÑÞÉ4.Range(Cells(lastRow - 1, 1), Cells(lastRow - 1, 7)).Copy æÑÞÉ4.Cells(lastRow, 1).PasteSpecial Paste:=xlPasteFormats If lastRow < 23 Then lastRow = 23 'I added this line <------------ Cells(lastRow, "A").Value = TextBox45.Value Cells(lastRow, "b").Value = ComboBox1.Value Cells(lastRow, "c").Value = ComboBox2.Value Cells(lastRow, "d").Value = ComboBox3.Value Cells(lastRow, "e").Value = TextBox14.Value Cells(lastRow, "f").Value = TextBox15.Value Cells(lastRow, "g").Value = TextBox16.Value 'If you want to clear the objects after sending the info: ComboBox1.Value = "" ComboBox2.Value = "" ComboBox3.Value = "" TextBox14.Value = "" TextBox15.Value = "" TextBox16.Value = "" TextBox45.Value = "" end sub of.xlsm

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

شكرا اخي سليم على الكود شغال تمام ولكن عندي استفسار لو تساعدني فيه لو قمت بادراج TABLE جاهز من الموجودة في نافدة تصميم الاكسيل كيف يكون الكود الخاص بي ListObjects("Table1") اين يتم وضعه او التعديل في الكود

السلام عليكم احتاج الى تعديل في هذا الكود لدمج بيانات ورقة 1, 2 على التوالي في ورقة 3 لقد حاولت كثيرا ولكن ما وصلت اليه يمكن ان تلاحظوه في الملف Sub consolidate() Dim myInSht As Worksheet Dim myOutSht As Worksheet Dim aRow As Range Dim aCol As Range Dim myInCol As Range Dim myOutCol As Range Dim cell As Range Dim iLoop As Long, jLoop As Long jLoop = 2 ' loop through the worksheets For Each myInSht In ActiveWorkbook.Worksheets ' pick only the worksheets of interest If myInSht.Name = "ورقة1" Or myInSht.Name = "ورقة2" Then ' find the columns of interest in the worksheet For Each aCol In myInSht.UsedRange.Columns Set myOutCol = Nothing If aCol.Cells(1, 1).Value = "CODE" Then Set myOutCol = Sheets("ورقة3").Range("A:A") If aCol.Cells(1, 1).Value = "BRAND" Then Set myOutCol = Sheets("ورقة3").Range("B:B") If aCol.Cells(1, 1).Value = "QUANTITY" Then Set myOutCol = Sheets("ورقة3").Range("C:C") If Not myOutCol Is Nothing Then ' don't move the top line, it contains the headers - no data Set myInCol = aCol Set myInCol = myInCol.Offset(1, 1).Resize(myInCol.Rows.Count - 1, myInCol.Columns.Count) ' transfer data from the project tab to the consolidated tab iLoop = jLoop For Each aRow In myInCol.Rows myOutCol.Cells(iLoop, 1).Value = aRow.Cells(1, 1).Value iLoop = iLoop + 1 Next aRow End If Next aCol End If If iLoop > jLoop Then jLoop = iLoop Next myInSht End Sub دمج ورقتين بورقة.xlsm

لقد وضعتها مباشرة في ردي بعد كودك كما طلبت مني وظهرت العلامة خضراء خرجت من موضوعي ودخلت من جديد وجدت العلامة خضراء هل هناك مشكلة

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

عدرا اخي سليم يا ريت تدلني من وين اجد خيار الضغط افضل اجابة

شكر اخي سليم على هذا الكود والمجهود الذي قمت به

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

السلام عليكم لدي مجموعة من اوراق العمل تبدا من 1 الى 5 اريد في الورقة 5 تظهر جميع بيانات الاعمدة a,b,c,d تلقائيا في كل مرة يتم ادخال فيها البيانات من اليوزرفورم مع الاخذ بعين الاعتبار القيمة في العمود d اريد ان تكون الفورملا كالتالي ورقة 5(العمود d)=(ورقة 1(العمود d)+ورقة 2(العمود d)+ورقة 4(العمود d))-ورقة 3(العمود d) sheets1.xls

شكرا على توضيحك وتفاعلك وقد حصلت على اجابة من احد المواقع الاجنبية بخصوص ترحيل البيانات من ورقة 1 الى ورقة 2 لعلها تفيد الاعضاء واتمنى من الخبراء ايجاد حل لمشكلة عدم ترحيل صفوف رقم33و34و35 التي تحتوي علىsubtotal,shipping, total الكود في الاسفل يعمل تمام باسثناء المشكلة المذكورة Sub TransferData() Dim LastRow As Long LastRow = Sheets("ورقة1").Range("a" & Rows.Count).End(xlUp).Row Sheets("ورقة1").Range("A3:F" & LastRow).Copy Sheets("ورقة2").Range("A" & Rows.Count).End(xlUp).Offset(1) With Sheets("ورقة2").Range("E" & Rows.Count).End(xlUp).Offset(1) .Value = WorksheetFunction.Sum(Range(.Parent.Cells(3, "E"), .Offset(-1))) End With End Sub

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

بخصوص حدف المعادلة المشكلة لازالت قائمة من السطر 32 الى 35