sam_farh

بعتزر بجد مخدتش بالي ياريت كان حد نبهني وعلي العموم الف شكر وجزاك الله خيرا فعلا كود ناجح جدا وهناك اضافه بسيطه جدا عشان الاصدقاء يستفيدو Sub HARD() Dim WS1 As Worksheet Dim WS2 As Worksheet Dim Rng As Range Dim A, B, C, D As String Set WS1 = ThisWorkbook.Sheets("المبيعات") Set WS2 = ThisWorkbook.Sheets("ترحيل") Set Rng = WS1.Range("B8:E24") A = WS1.[E2]: B = WS1.[E3]: C = WS1.[B1]: D = WS1.Range("B2") If Application.WorksheetFunction.CountIf(WS2.Range("B:B"), WS1.[E2].Value) > 0 Then MsgBox "رقم الوثيقة موجود مسبقا", vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal, "انتباه": Exit Sub If Application.WorksheetFunction.CountA(WS1.Range("E8:E24")) = 0 Then MsgBox "اكمل البيانات حتي يتم الترحيل", vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal, "انتباه": Exit Sub Application.ScreenUpdating = False F = Rng For i = 1 To UBound(F) If Len(F(i, 4)) > 0 Then WS2.Range("b" & Rows.Count).End(xlUp).Offset(1).Resize(1, 4).Value _ = Array(A, B, C, D) On Error Resume Next ' Rng.SpecialCells(xlCellTypeConstants).ClearContents WS1.Range("B1,B2").Value = Empty On Error GoTo 0 With WS2.Range("A2:A" & WS2.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-1") End With End If Next Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تعليمات" End Sub

فين الملف

السلام عليكم هل في مشكله في عرضي للمشكله ام في الملف

لازم نسخه من الملف عشان نعرف المشكله

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

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

السلام عليكم اصدقائي العباقره عندي كود ترحبل من صفحه لخانات معينه الي صفحه اخري ولكن اريد عند الترحيل البيانات تنزل بعد اخر بيانات موجوده متنزلش في اول سطر بدون مسح البيانات من الصفحه المحول منها عرض 3.xlsb

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

ربنا يبارك في حضرتك

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

وهذه الخطوات التي قمت بها ولكن المشكله لم تحل

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

السلام عليكم بعد تغير الوندوز من 7 الي 10 ورغم تعريب اللغه الا ان الملفات القديمه اكسل او تكتست لا تقراء العربيه وعامله مشاكل في المكرو

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

السلام عليكم اصدقائي الاعزاء ارجوا تعليمي بعض النقاط لماذا في ال ComboBox يقوم بالوقف علي الخانه 101 ولا يري مابعده ايضا عند البحث داخل ال ComboBox يقوم بالبحث بالحرف ولا يقوم بالبحث بالكلمه في اعدادات الفورم خانه اختيار المدي ROWSOURCE مكتوب كلمه _snitems ماذا تعني لاني متعود اني اكتب اسم الصفحه والمدي المطلوب ولكن عندا عمل ذلك لا يعمل الكود فاتورة.xlsm

السلام عليكم اصدقائي الخبراء الملف الاول فاتوره 105 كنت قد وجدته في هذا المنتدي العملاق الملف الثاني فاتوره 106 قمت بتعديله بما يتناسب مع عملي والتعديل كان بدل البحث بالكود جعلت البحث بالاسم ولكن حدث خطاء ما عند البحث بالاسم لا يتم استدعاء البيانات فاتورة 105.xlsm فاتورة 106 .xlsm

الف شكر اخي محمد حسن المحمد جزاك الله خيرا

لو الفرز تمام من الممكن تطبيقه علي شيت A بدل شيت B وعمل ترحيل لما يظهر في الفرز هل هذا ما تحتاج

شوف الملف ده اتمني ان يفي بالمطلوب Sorting test.xlsm

الملف فيه تفاصيل كثير ناقصه ومحتاج شرح للمطلوب اكثر تفصيل

بعتزرلك اخي محمد يوسف ابو يوسف يبدو ان الملف لم يقم بالحفظ test .xlsb

السلام عليكم كيف يتم اضافه صوره خلفيه للفورم بدل اللون test.xlsx

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

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