أبو حنــــين

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

أعتقد انني قمت بالترحيل كما ورد في الطلب ترحيل بيانات.rar

في مكان هذا السطر Me.ComboBox3.AddItem c2 ضع هذا السطر Me.ComboBox3.AddItem Format(c2, "0%") ليصبح التاتج على شكل نسبة

السلام عليكم هناك مربع أزرق تكتبي فيع رقم الصنف ثم تضغطي على الزر ليتم الترحيل ترحيل.rar

البقاء لله أخي جمال : عظم الله أجركم و أحسن عزاءكم انا لله وانا اليه راجعون نسأل الله لها المغفرة و الرحمة و لذويها الصبر و السلوان رحم الله موتانا و غفر لنا و لهم م جمعنا في الفردوس الاعلى ، إنه على ذلك لقدير

السلام عليكم يجب مسح الكمبوبكس اولا ثم استدعاء البيانات فيكون الكود في UserForm_Activate كالتالي : Private Sub UserForm_Activate() Me.ComboBox1.Clear: Me.ComboBox2.Clear: Me.ComboBox3.Clear: For Each cl In [B.CODE] If cl <> "" Then Me.ComboBox1.AddItem cl End If Next For Each c2 In [AG.CODE] If c2 <> "" Then Me.ComboBox2.AddItem c2 End If Next For Each c2 In [TAX] If c2 <> "" Then Me.ComboBox3.AddItem c2 End If Next End Sub

تم عمل المطلوب

السلام عليكم لرفع ملف يجب اولا ضغطه ببرنامج ضغط عذا مثال على الترحيل كما جاء في المشاركة ترحيل الى صفحتين.rar

أخي شريف فوزي سأحاول ذلك في القريب العاجل ان شاء الله

أخي لا يوجد مرفق قم بضغط الملف اولا ثم ارسله

أخي : م - وصفي جزاك الله خيرا على مروركم الطيب وتشجيعكم المستمر أخي الحبيب مصطفي : جزاك الله خيرا على كلماتكم الطيبة

عملت على الملف في مشاركتك الاولى تغيير التاريخ.rar

اخي ابراهيم جرب المرفق الذهاب الى صفحة بعد مدة.rar

أخي ما هو المعيار المطلوب الذي تكون فيه الخلايا الصفراء لا تظهر في الطباعة

استعمل هذه الماكور Sub Printe() ActiveSheet.PageSetup.PrintArea = "$A$4:$H$9" ActiveSheet.PrintPreview End Sub

أخي مصطفى انظر الملف الذي زود بالخيارات التالية : ـ قاعدة بيانات تحتوي على أسماء العملاء ـ إمكانية البحث و عند العثور على العميل يمكن معاينة صفحته مباشرة سواءا كانت صفحة الاكتتاب اوصفحة الاسترداد ـ امكانية الاضافة لعميل جديد و حفظه في قاعدة البيانات لطلبه مرة أخرى نموذج 2.rar

السلام عليكم اعتقد اخي مصطفى ان الملفين يختلفان فقط في رأس الورقة غيرت فقط في العنوان نموذج 2.rar

أخي مصطفى عيد أنجزت الصفحة الأولى أرجوا الإطلاع عليها عيد مصطفى.rar

السلام عليكم أخي : مصطفى عيد لا تستغرب إن قلت لك بأن ذلك كان يدويا بعد تحميل الصورة ، قمت بإنشاء ملف إكسل جديد ثم نظرت الى الصورة الأصل و طبقت تنسيقاتها على هذا الملف يدويا و هي عملية ليست بالصعبة لكنها مرهقة و تتطلب التركيز فقط قرأت أن هناك بعض البرامج التي تقوم بتحويل الصور الى ملفات يمكن التعديل عليها لكنني لم اجربها و ان اردت ان اقوم بالعمل على الملفين المرسلين فسأحاول ذلك ان شاء الله لكن أمهلني بعض الوقت

الأخ يوسف الكود مرتبط مع بعضه البعض و أي تغيير في شيت البيانات يحدث خللا في الكود و ربما يطول شرحه لكن كمثال فقط لجزئ من الكود : For t = 1 To 10 ' العد 10 مثلا وضع لان الأشهر عددها في ورقة العمل 10 أشهر ' Array عندما تضيف شهر مثلا عليك أول بإضافته الى ' UserForm_Activate مع الاشهر الاخر و بنفس الطريقة في حدث الفورم ' و بعدها يعوض العدد 10 بالعدد 11 If Sheets(ComboBox3.Text).Cells(4, t + 6) = ComboBox2.Text Then ' العدد 4 مثلا في السطر السابق يمثل بداية كتابة البيانات اي من السطر 4 ' الحرف تي يمثل عدد الاشهر التي افترضناها ' العدد 6 يمثل بداية العمود الذي إبتدأت منه الأشهر If Sheets(ComboBox3.Text).Cells(s + 4, 2) = ComboBox1.Text Then

أخي : Soomi ان كان لديك الجدول فهو يسهل من العملية حيث يرتكز عليه المبرمج كقاعدة بيانات ينشأ منها مشروعه لذى أرسل الجدول ليتسنى لي معرفة الحقول الموجودة فيه ، طبعا بعد تفريغه من المعلومات التي ربما تكون خاصة لا يمكن نشرها

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

بعد إذن اخي ابو انس نستعمل الدالة Offset فيكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Cells(Lr - 1, 2) = "إجمالي" Then Cells(Lr - 1, 4).Offset(2, 0) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) Exit Sub Else Cells(Lr, 2) = "إجمالي" Cells(Lr, 4).Offset(2, 0) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) End If End Sub

هذا التعديل الذي طلبه أخي : الجزيرة حيث يجب ادخال الرقم 1357 حتى تتمنك من المسح 2تأمينات.rar

اخي زوهير يمكنك الاستعانة بهذا البرنامج الدوال.rar