محمد عبدالسلام

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

السلام عليكم ورحمة الله وبركاته في الملف المرفق طلب تعديل الكود ليتم إخفاء صفوف الفارغة من نطاق معين من آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق من سطر ( E30) الى سطر ( E125) invoice3.zip

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

ارجو المساعده في الكود يوزر فورم اريد تعديل الكود لي يتما الإرسال البيانات الى عمود G وليس عمود H وماهو اسطر المسؤول لتغير من عمود الى عمود اخر Private Const ContColmn As Integer = 5 Private rng As Range Private Colmn Private Sub ButtonFind_Click() End End Sub Private Sub ListFind_Click() For i = 0 To ContColmn - 1 Me.Controls("Text" & i + 1).Value = Me.ListFind.Column(i) Next End Sub Private Sub ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim rng As Range, LR As Long Dim x, y, z 'x = InputBox("Please enter a Quantity") UserForm2.Show x = UserForm2.TextBox1.Value y = UserForm2.TextBox2.Value z = UserForm2.TextBox3.Value Unload UserForm2 If x = False Or StrPtr(x) = 0 Or Not IsNumeric(x) Then Exit Sub Else LR = Sheet1.Cells(Rows.Count, "E").End(xlUp).Row + 1 Set rng = Sheet1.Cells(LR, 4) If ListFind.Value <> "" Then rng.Value = ListFind.Value rng.Offset(0, 1).Value = y rng.Offset(0, 2).Value = x rng.Offset(0, 3).Value = ListFind.List(ListFind.ListIndex, 2) rng.Offset(0, 4).Value = z End If TextFind.SelStart = 0 TextFind.SelLength = Len(TextFind.Text) TextFind.SetFocus End If End Sub Private Sub TextFind_Change() Dim MyValue Dim MyAr() As String Dim R As Integer, i As Integer, ii As Integer Dim MyColmnFind As Integer, LastRow As Integer MyColmnFind = Me.ComboFind.ListIndex + 1 If MyColmnFind = 0 Then Exit Sub If MyColmnFind = 3 Then Me.TextFind = "" Me.ListFind.Clear With rng.Worksheet LastRow = .Range("A65536").End(xlUp).Row End With Colmn = "" With rng For R = 2 To LastRow If .Cells(R, MyColmnFind) Like "*" & TextFind & "*" Then Colmn = Colmn & R & " " ii = ii + 1 ReDim Preserve MyAr(1 To ContColmn, 1 To ii) For i = 1 To ContColmn MyValue = .Cells(R, i).Value2 MyAr(i, ii) = MyValue Next End If Next End With If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0 End Sub Private Sub UserForm_Activate() Set rng = Sheet2.Range("A1").Resize(1, 2) With Me.ComboFind .Column = rng.Value .ListIndex = 1 .Style = 2 End With R = Range("D62").End(xlUp).Row TextFind_Change End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Set rng = Nothing End Sub اليوزر فورم.zip

السّلام عليكم ورحمة الله وبركاته أرجو المساعده في ضبط كود اليوزرفورم لما يتم استدعاء البيانات من ورقة codes إلى الورقة invoice أريد تعديل الكود ليتم إرسال السعر إلى عمود G بدلا من العمود H اليوزر فورم.zip

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

السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير في الملف المرافق كود خاص بالاستاذ الافاضل ياسر العربي الرجاء التعديل 'الكودحتى يقوم باستخراج القيمه الخاصه بكل صنف ثانيا-استخراج الإجمالى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$57" Or Target.Address = "$H$58" Then [H59] = [H56] + [H57] - [H58] If Target.Column = 8 Then If Target.Row > 9 And Target.Row < 56 Then Target.Offset(, 1).Value = Target.Offset(, -2).Value * Target.Value: GoTo 86 End If End If If Target.Column = 6 Then If Target.Row > 9 And Target.Row < 56 Then Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value 86 [H56] = Application.WorksheetFunction.Sum(Range("I10:I56")) [H59] = [H56] + [H57] - [H58] End If End If End Sub كود يقوم باستخراج القيمه الخاصه بكل صنف1.zip

عمل رائع

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

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

الملف باسورد 2015 fat.xlsm

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

المرجو المساعدة

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

السلام عليكم ورحمة الله وبركاته اخي الحبيب بن علية حاجي جزاك الله خيرا على مجهودك وعلى الكود الرائع لي طلب اخي لو سمحت اريد تنفيذ متل هذه الطريقة في الملف المرفق جزاك الله خيرا 11.zip

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

جزاك الله خيرا اخي زيزو العجوز على هذا الكود الرائع ممكن لوسمحت اظهار لفورم بي المفتاح Tab دونا زر CTRL

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

جزاك الله خير رائع جدا

السلام عليكم ورحمة الله طلب كيفية تحويل ملف اكسيل من اوفيس 2010 الى اوفيس 2013

السلام عليكم ورحمة الله وبركاته طلب مساعدة هذا الملف عيبارة عن فاتورة يوجد فيه كودلي الأخ الصقر لى اخفاء صفوف الفاريغة عند الطباعة كود رائع ومميز المشكلة في صفاحة الطباعة لما اعمل معينة قبل الطباعة اجيدعداد صفاحة التي فيها بيانات اتنين اوحدة والباقي صفحة فضية مع العلم بي انا عداد البيانات في الفاتوة غير مستقيرة قد تاصيل لى صفحة وحدة او 2 او 3 وقد تاصيل الى 6 صفاحة هل مـــــــــــــــــــــــــــن حــــــــــــــــــــــــــــــل لطباعة اصفحة لتي فيها بيانات وباقي صفاحة الفرغة تختافي في طباعة وجزاكم الله خير وارقة الطباعة.zip

السلام عليكم ورحمة الله وبركاته لي طلب جزاكم الله خير طلب كود يقوم بإخفاء صفوف الفارغة محددة ولنفترض انها من الصف رقم 25 و 26 و27 الى االصف 45 خفاء صفوف الفارغة عند الطباعة.zip

أخى فى الله الأستاذ الكريم / صديق بارك الله فيكم وجزاك الله خيرا

السلام عليكم ةرحمة الله وبركاته اخوتي الكرام طلب كود لتحويل الارقام اوعملة الى نص بي لغة العربية كود تحويل الأرقام إلى نص.zip

السلام عليكم ورحمه الله وبركاته ارجو المساعده اريد طريقة لتحويل طباعة من افقي الى عمودي اولعكس على حساب طريقة الدى اريد بيها طباعة التقرير