احمد سعيد

up

up

UP

السلام عليكم ورحمة الله و بركاته محتاج اوزع اقساط العملاء او بالاصح عندي مجموعة عملاء في شيت واحد كل صف يمثل قسط شهر لعميل اي مثلا العميل احمد بشهر يناير و هتلاقي بعده العميل محمد قسط شهر يناير يعني مش كل عميل لوحده المشكلة هنا ان لو العميل مثلا في شهر يناير دفع اكتر من القسط محتاج ان الزياده ديت تترحل للشهر التالي مع العلم اني فعلا نجحت في عملها ولكن لمدة قسط واحد فقط برجاء المساعدة الحسابات.rar

معادلة SUBSTITUTE انظر المرفق حدف الفراغ.rar

لم اجربه وجاري الرفع

للاسف اخي الملف به بيانات عمل مش اقدر ارفعه .. ثانيا الاوفيس 2010 خاص بالعمل و مرخص .. بعد ما اضغط yes بيعمل recovery للشيت

مشكلة في فتح ملف اكسيل بعد تشغيل Share Workbook على الشبكة عندي بتظهر هذه الرسالة في اوفيس 2010 excel found unreadable content in .xlsx do you want to recover the contents of this workbook هل من حل

السلام عليكم ورحمة الله وبركاته عندي مجموعة من النسب المئوية في شيت الاكسيل مثل 11.15% او 9.50% او 12% او 8% لها اشكال مختلفة بس بنفس التنسيق المشكلة هي عند ترحيلها في اليوزرفورم بتظهر بالشكل 0.1099 او 0.113 او 0.1095 مع العلم اني محتاجها تظهر بنفس الشكل الاول 11.15% مع العلم اني حاولت فيها كثيرا ونجحت في تحويلها ولكن النتائج خطأ لان القيمة ليها علاقة بخلايا ثانية فكان نتيجة الضرب و القسمة خطأ بعد تعديل الفورمات المرفق ملف به مثلا العميل "رامى" لو السعر 60000 والنسبة 0.08 كان الكاش 4800 المعادلة صحيحة ولكن اذا تم تغير النسبة الى 8 كان الكاش 480000 ولكن المعادلة خطأ ارجو المساعدة يي Test2.rar

السلام عليكم ورحمة الله وبركاته كنت محتاج اعدل على كود البحث الموجود ليصبح يظهر النتائج (اسم العميل فقط) في ليست بوكس واختيار العميل من ليست بوكس وترحيل باقي البيانات في الخلايا الاخرى مع العلم محتاجه ان يرحل لو كان العميل مكرر موجود اكثر من مره Test2.rar

اتحلت الحمد لله شكرا جزبلا اخي

up

السلام عليكم ورحمة الله وبركاتة عندي مشكلة في حفظ ملف اكسيل من نوع XlSM طبعا به يوزرفورم في الشبكة في الشغل طبيعة الشبكة في الشغل انه يوجد سيرفر بنضع فيه ملفات الاكسيل و الملفات الاخرى وكل واحد له يوزر نيم وباسورد للدخول على دومين الشركة يوزر نيم وباسورد بيفتح نسخة الويندوز زي اي نسخة عادية بنستخدم اكسيل 2010 المشكلة بتظهر سواء عامل الملف شير او مش شير بمجرد الحفظ بتحصل المشكلة Review --- share workbook عندي صلاحية بتعديل ملفات الاكسيل الموجودة في فولدر معين مرفق صورة للمشكلة

up

السلام عليكم ورحمة الله بركاته اولا اود ان اشكر جميع الاعضاء على مساعدتي على انهاء مشروعي واتمنى مساعدتي في هذا الكود بحيث ان الترحيل لا يرحل التكرار ولكني ارغب في ترحيل التكرار لان بيكون لعميل اكثر من ملف With Sheet4 lastrow = Sheet4.Range("j10000").End(xlUp).Row For iRow = 3 To lastrow If .Cells(iRow, 10) = ComboBox7.Text Then TextBox1.Text = .Cells(iRow, 3) TextBox2.Text = .Cells(iRow, 4) TextBox3.Text = .Cells(iRow, 5) TextBox29.Text = .Cells(iRow, 10) ComboBox1.Text = .Cells(iRow, 11) TextBox6.Text = .Cells(iRow, 12) ComboBox2.Text = .Cells(iRow, 13) TextBox8.Text = .Cells(iRow, 14) TextBox9.Text = .Cells(iRow, 15) ComboBox3.Text = .Cells(iRow, 18) ComboBox4.Text = .Cells(iRow, 20) ComboBox5.Text = .Cells(iRow, 25) ComboBox6.Text = .Cells(iRow, 26) TextBox14.Text = .Cells(iRow, 27) TextBox15.Text = .Cells(iRow, 29) TextBox16.Text = .Cells(iRow, 28) TextBox17.Text = .Cells(iRow, 30) TextBox18.Text = .Cells(iRow, 31) TextBox19.Text = .Cells(iRow, 36) TextBox23.Text = .Cells(iRow, 35) TextBox27.Text = .Cells(iRow, 33) TextBox28.Text = .Cells(iRow, 34) TextBox24.Text = .Cells(iRow, 45) TextBox25.Text = .Cells(iRow, 43) TextBox26.Text = .Cells(iRow, 47) TextBox20.Text = .Cells(iRow, 37) TextBox21.Text = .Cells(iRow, 49) TextBox22.Text = .Cells(iRow, 50) TextBox30.Text = .Cells(iRow, 9) ComboBox8.Text = .Cells(iRow, 9) TextBox31.Text = .Cells(iRow, 17) TextBox32.Text = .Cells(iRow, 69) TextBox33.Text = .Cells(iRow, 53) TextBox34.Text = .Cells(iRow, 52) TextBox36.Text = .Cells(iRow, 16) ComboBox9.Text = .Cells(iRow, 55) ComboBox10.Text = .Cells(iRow, 56) ComboBox11.Text = .Cells(iRow, 57) ComboBox12.Text = .Cells(iRow, 58) ComboBox13.Text = .Cells(iRow, 59) TextBox11.Text = .Cells(iRow, 70) TextBox13.Text = .Cells(iRow, 71) TextBox38.Text = .Cells(iRow, 72) TextBox40.Text = .Cells(iRow, 73) TextBox12.Text = .Cells(iRow, 75) TextBox37.Text = .Cells(iRow, 74) End If Next End With End Sub ثانيا كود التعديل لايقوم بالتعديل بالاسم بحيث اني بستعلم بالاسم فبالتالي لا يقوم بتعديل الاسم For i = 3 To 10000 If Cells(i, 10) = ComboBox7.Text Then Cells(i, 10).Select Exit For End If Next i ActiveCell.Offset(0, 1) = ComboBox1.Text ActiveCell.Offset(0, 2) = TextBox6.Text ActiveCell.Offset(0, 3) = ComboBox2.Text ActiveCell.Offset(0, 4) = TextBox8.Text ActiveCell.Offset(0, 5) = TextBox9.Text ActiveCell.Offset(0, 8) = ComboBox3.Text ActiveCell.Offset(0, 10) = ComboBox4.Text ActiveCell.Offset(0, 15) = ComboBox5.Text ActiveCell.Offset(0, 16) = ComboBox6.Text ActiveCell.Offset(0, 17) = TextBox14.Text ActiveCell.Offset(0, 19) = TextBox15.Text ActiveCell.Offset(0, 18) = TextBox16.Text ActiveCell.Offset(0, 20) = TextBox17.Text ActiveCell.Offset(0, 21) = TextBox18.Text ActiveCell.Offset(0, 26) = TextBox19.Text ActiveCell.Offset(0, 25) = TextBox23.Text ActiveCell.Offset(0, 23) = TextBox27.Text ActiveCell.Offset(0, 24) = TextBox28.Text ActiveCell.Offset(0, 35) = TextBox24.Text ActiveCell.Offset(0, 33) = TextBox25.Text ActiveCell.Offset(0, 37) = TextBox26.Text ActiveCell.Offset(0, 27) = TextBox20.Text ActiveCell.Offset(0, 39) = TextBox21.Text ActiveCell.Offset(0, 40) = TextBox22.Text ActiveCell.Offset(0, -1) = TextBox30.Text ActiveCell.Offset(0, 7) = TextBox31.Text ActiveCell.Offset(0, -7) = TextBox1.Text ActiveCell.Offset(0, -6) = TextBox2.Text ActiveCell.Offset(0, -5) = TextBox3.Text ActiveCell.Offset(0, 59) = TextBox32.Text ActiveCell.Offset(0, 43) = TextBox33.Text ActiveCell.Offset(0, 42) = TextBox34.Text ActiveCell.Offset(0, 6) = TextBox36.Text ActiveCell.Offset(0, 45) = ComboBox9.Text ActiveCell.Offset(0, 46) = ComboBox10.Text ActiveCell.Offset(0, 47) = ComboBox11.Text ActiveCell.Offset(0, 48) = ComboBox12.Text ActiveCell.Offset(0, 49) = ComboBox13.Text End Sub