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

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

السلام عليكم 

احتاج الى كود  عندما اضع البيانات في التيكست بوكس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

المطلوب الترحيل  من a2:a35  وكما تلاحظ في الصف 19  البيانات كاملة علية يتم  تجاهل الصفوف  التي بعد الصف 19  لكونها غير مكتملة   وعدم تجاهل الصف 33و34و35  وبالتالي يجب ان  تصبح الورقة 2 كما في الصورة المرفقة 

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

لدي اخطاء في ترحيل البيانات من اليوزرفورم الى  ورقة 1 والترحيل من ورقة 1 الى ورقة 2 

بالنسبة للورقة1 الاخطاء تبدا من الصف 29 الى الصف 35  القيمة يجب ان تكون 1050 وليس 3000

اما الورقة 2 عند الترحيل من الورقة 1  يرحل بعض البيانات ويتجاهل الاخرى والقيم خاطئة  

وتخزين الفاتورة على هيئة pdfعهدة.xlsm

SS1.xlsm

SS1.xlsm

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

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

عندي استفسار اخير  عندما يتم الترحيل خصوصا بالفاتورة يتم ترحيل الارقام المتسلسلة 1و2و3 ويتاجاهل الفارغة في الكود الاول اما كودك  فلا  هل من حل بحيث يتم ترحيل  الفاتورة التي تحتوي  على ارقام متسلسلة  فقط وتجاهل الصفوف التي لا تحتوي على ارقام تسلسلية 

بارك الله فيك يا خي الكود يعمل بشكل رائع