أبو حنــــين

شاهد المرفق اولا قم باختيار المواد ثم اضغط على موافق invoice_2.rar

عد الى الرابط الاول فهناك مرفق

السلام عليكم اخي ابراهيم في المرفق الاول كنت قد وضعت الكود ليغير من لون الكتابة و يجعله ابيض فقط لكي لا يظهر في المرفق كود يقوم باخفاء الاعمدة print invo 3.rar

السلام عليكم جرب هذه الطريقة print invo 2.rar

السلام عليكم اخي ابراهيم جرب المرفق print invo.rar

السلام عليكم هل بهذه الطريقة Book11.rar

الحمد لله و لاتتردد ان كانت هناك بعض الملاحظات

السلام عليكم جرب المرفق و اخبرني بالنتيجة مقارنة_3.rar

السلام عليكم استعمل هذا الكود Sub sCopy_To() Application.ScreenUpdating = False lr = Sheets("الاسماء حسب القصول").Cells(Rows.Count, "C").End(xlUp).Row + 1 x = 5 For i = 1 To lr If Sheets("الاسماء حسب القصول").Cells(i, 21) = "نقل" Then Sheets("الاسماء حسب القصول").Range("B" & i).Resize(1, 9).Copy With Sheets("المنقولين من المدرسة") .Range("B" & x).PasteSpecial xlPasteValues .Range("A" & x) = x - 4 End With x = x + 1 End If Next Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

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

السلام عليكم اخي احمد مبروك الترقية و من نجاح الى آخر باذن الله تقبل تحياتي

السلام عليكم جرب الطريقة التالية اضغط على الملف بيمين الفأرة و استخدم فتح بواسطة ، ثم اختر اكسل2003

السلام عليكم اخي ياسر و الله كل ما في الامر هو انني لم اتوصل الى حل مقنع فكلما غيرت من الكود ظهرت نتائج غير التي اتوقعها لذلك لم ارد على الفور لكن اعتقد ان المرفق الآن يفي بالغرض و تأكد انني لم انسى طلبك و والله لقد جلست اكثر من 4 ساعات على فترات و انا اغير ثم اغير ثم اغير ...حتى توصلت الى الكود المناسب و الله اعلم ان كان صحيحا او لا و ان كان هناك اي خطأ لا تتردد في ذكره فان اصبت فذلك هو مرادنا و ان أخطأت فربما غيري كفيل بذلك مقارنة_2.rar

اخي قنديل الصياد جزاك الله خيرا

يجب عليك مسح الكود الاول و تعويضه بالثاني انت تركت الكودين معا امسح الكود Private Sub ComboBox1_Change() If ComboBox1.Text <> "" Then FORM_FATORA.TextBox15.Text = ComboBox1.Text FORM_FATORA.TextBox15.Enabled = False UserForm4.Hide End If End Sub و اكمل مع بقية الفورمات

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

السلام عليكم اتبع أخي الخطوات التالية ادخل على الفورمات الصغيرة التي تختار منها كود المتعامل او الحركة . . . . . ستجد الفورم الصغير يحتوي على كمبوبكس دوبل كليك على الكمبوبكس ستجد الكود التالي و هو مكرر في كل الفورمات الصغيرة مع اختلاف بسيط في تسمية مربعات النصوص فقط عند الدخول تجد الكود التالي مثلا هذا الكود موجود في فورم اسمها UserForm4 Private Sub ComboBox1_Change() If ComboBox1.Text <> "" Then FORM_FATORA.TextBox15.Text = ComboBox1.Text FORM_FATORA.TextBox15.Enabled = False UserForm4.Hide End If End Sub قم نسخ نفس الكود لكن في الحدث Click و ليس الحدث Change مع اضافة السطر ComboBox1.ListIndex = -1 ليصبح شكله النهائي كالتالي Private Sub ComboBox1_Click() If ComboBox1.Text <> "" Then FORM_FATORA.TextBox15.Text = ComboBox1.Text FORM_FATORA.TextBox15.Enabled = False '-------------------------------------------------- ComboBox1.ListIndex = -1 ' هذا هو السطر الذي اصفناه اما البقية فبدون اي تغيير '-------------------------------------------------- UserForm4.Hide End If End Sub و كرر العملية مع كل الفورمات الصغيرة تحياتي

السلام عليكم هذا الكود للملف الاول في المشاركة رقم 25 Sub sSort_BayName() Dim D As Range, F As Range Application.ScreenUpdating = False With Sheets("روض الفرج") last = .Cells(Rows.Count, "B").End(xlUp).Row .Range("F5:I" & last).ClearContents .Range("B5:C" & last).Copy .Range("F5") For Each D In .Range("D5:D" & last) For Each F In .Range("F5:F" & last) If CStr(D) <> CStr(F) Then GoTo 1 '& "*" F.Offset(0, 2) = D F.Offset(0, 3) = D.Offset(0, 1) 1 Next F Next D End With End Sub و هذا الكود للمشاركة الاخيرة رقم 28 Sub sSort_BayName() Dim D As Range, F As Range Application.ScreenUpdating = False With Sheets("Comparison") last = .Cells(Rows.Count, "B").End(xlUp).Row .Range("F5:I" & last).ClearContents .Range("B5:C" & last).Copy .Range("F5") For Each D In .Range("D5:D" & last) For Each F In .Range("F5:F" & last) If CStr(D) <> CStr(F) Then GoTo 1 '& "*" F.Offset(0, 2) = D F.Offset(0, 3) = D.Offset(0, 1) 1 Next F Next D End With End Sub جرب و اخبرني

السلام عليكم الأخ المحترم معتصم محمد لم انتبه لهذه الفيديوهات الا اللحظة جزاك الله خيرا و جعله في موازين حسناتكم

انظر المرفق هل بهذه الطريقة

تم تعديل الملف السابق

جرب المرفق Classeur2.rar

جرب هذه المعادلة في الخلية C8 =IF($C$4=2;A8+B8;IF($C$4=1;A8-B8;""))

السلام عليكم استعمل هذا الكود Sub sSort() Application.ScreenUpdating = False With Sheets("روض الفرج") last = .Cells(Rows.Count, "B").End(xlUp).Row .Range("B5:E" & last).Copy .Range("F5") .Range("F5:G" & last).Sort Key1:=.Range("F5"), Key2:=.Range("G5") .Range("H5:I" & last).Sort Key1:=.Range("H5"), Key2:=.Range("I5") End With End Sub

السلام هليكم انظر المرفق AAA.rar