يوسف السيد

الاخ ابو حنين ... فقط اريد ان اعرف من خلال الكود التالى الذى تفضلت به ما هو المتغير او الشئ المسؤل عن عدد الاعمدة حتى استطيع تغييرة مستقبلا بالزيادة والنقص .......................................................................................................................................................... Private Sub ComboBox1_Click() lr = Sheets(ComboBox3.Text).Cells(Rows.Count, "B").End(xlUp).Row + 1 For s = 1 To lr TextBox1 = Sheets(ComboBox3.Text).Cells(ComboBox1.ListIndex + 5, 2).Offset(0, -1) Cells(ComboBox1.ListIndex + 5, 2).Select Next End Sub Private Sub ComboBox2_Click() lr = Sheets(ComboBox3.Text).Cells(Rows.Count, "B").End(xlUp).Row + 1 For s = 1 To lr For t = 1 To 10 If Sheets(ComboBox3.Text).Cells(4, t + 6) = ComboBox2.Text Then If Sheets(ComboBox3.Text).Cells(s + 4, 2) = ComboBox1.Text Then TextBox10 = Sheets(ComboBox3.Text).Cells(s + 4, t + 6) End If End If Next Next End Sub Private Sub ComboBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Text = "": TextBox2.Text = "": TextBox10.Text = "": TextBox9.Text = "" End Sub Private Sub ComboBox3_Click() lr = Sheets(ComboBox3.Text).Cells(Rows.Count, "B").End(xlUp).Row + 1 If ComboBox3.Text = "ورقة5" Or _ ComboBox3.Text = "موردى الخدمات والاصول الثابتة" Or _ ComboBox3.Text = "ورقة4" Then ComboBox1.Clear Exit Sub End If For d = 1 To ComboBox1.ListCount ComboBox1.Clear Next Sheets(ComboBox3.Text).Select For m = 1 To lr ComboBox1.AddItem Sheets(ComboBox3.Text).Cells(m + 4, 2) Next TextBox1.Text = "": TextBox2.Text = "": TextBox10.Text = "": TextBox9.Text = "" End Sub Private Sub CommandButton1_Click() If ComboBox2.Text = "" Or TextBox2.Text = "" Then MsgBox "قم بإختيار الشهر أولا و المبلغ الذي تريد إظافته أو حذفه ", vbCritical, "خطأ" Exit Sub End If lr = Sheets(ComboBox3.Text).Cells(Rows.Count, "B").End(xlUp).Row + 1 Dim mm As String mm = MsgBox("هل تريد إظافة مبلغ قدره : " & TextBox2.Value & vbNewLine & "لـ : " & ComboBox1.Text & vbNewLine & "إن كنت متأكدا من ذلك ، فاضعط على نعم", vbInformation + vbMsgBoxRight + vbYesNo, "") If mm = vbNo Then Exit Sub Else For s = 1 To lr For t = 1 To 10 If Sheets(ComboBox3.Text).Cells(4, t + 6) = ComboBox2.Text Then If Sheets(ComboBox3.Text).Cells(s + 4, 2) = ComboBox1.Text Then Sheets(ComboBox3.Text).Cells(s + 4, t + 6).Value = _ Val(Sheets(ComboBox3.Text).Cells(s + 4, t + 6)) + Val(TextBox2) End If End If Next Next CommandButton3.Value = True End If End Sub Private Sub CommandButton2_Click() If ComboBox2.Text = "" Or TextBox2.Text = "" Then MsgBox "قم بإختيار الشهر أولا و المبلغ الذي تريد إظافته أو حذفه ", vbCritical, "خطأ" Exit Sub End If lr = Sheets(ComboBox3.Text).Cells(Rows.Count, "B").End(xlUp).Row + 1 Dim mm As String mm = MsgBox("أنت على وشك حذف مبلغ قدره : " & TextBox2.Value & vbNewLine & "لـ : " & ComboBox1.Text & vbNewLine & "هل تريد المتابعة ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "") If mm = vbNo Then Exit Sub Else For s = 1 To lr For t = 1 To 10 If Sheets(ComboBox3.Text).Cells(4, t + 6) = ComboBox2.Text Then If Sheets(ComboBox3.Text).Cells(s + 4, 2) = ComboBox1.Text Then Sheets(ComboBox3.Text).Cells(s + 4, t + 6).Value = _ Val(Sheets(ComboBox3.Text).Cells(s + 4, t + 6)) - Val(TextBox2) End If End If Next Next CommandButton3.Value = True End If End Sub Private Sub CommandButton3_Click() lr = Sheets(ComboBox3.Text).Cells(Rows.Count, "B").End(xlUp).Row + 1 For s = 1 To lr For t = 1 To 10 If Sheets(ComboBox3.Text).Cells(4, t + 6) = ComboBox2.Text Then If Sheets(ComboBox3.Text).Cells(s + 4, 2) = ComboBox1.Text Then TextBox9 = Sheets(ComboBox3.Text).Cells(s + 4, t + 6) End If End If Next Next End Sub Private Sub UserForm_Activate() Dim Art Art = Array("يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر") مع ملاحظة ان الشهور هى التى تمثل الاعمدة' ComboBox2.List = Art End Sub Private Sub UserForm_Initialize() For t = 1 To ThisWorkbook.Sheets.Count R = Sheets(t).Name ComboBox3.AddItem R Next End Sub

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

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

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

الأخ // بن علية حاجى الأخ // عباد جزاكم الله خيرا ... وزادكم علما كلا الحلان يعمل بشكل صحيح تقبلوا شكرى وتقديرى

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

مشكور على الموضوع الرائع بارك الله فيك

بارك الله فيك .. اخى ابو حنين .... مشكور على المعلومات المفيدة

عمل متميز ... الى الامام دائما وفقك الله

بارك الله فيك وزادك من العلم بحورا

حاول ضغط الملف ببرنامج winrar ثم حاول ارفاقة مرة اخرى

اخى الكريم الحل ... advanced password recovery

بارك الله لك فيها ... وجعلها قرة عين لك

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

صراحة لم اطلعك ع ملفك لكن المرفق فيه ما يفيدك الانتقال.rar

كود رائع بارك الله فيك

بارك الله فيك أخى ابو أحمد وجعلك دوما عونا لنا .... واشكرك على الاهتمام والرد

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

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

بارك الله فيك أ // رجب جاويش

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

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

اخى الكريم شكرا على الرد .... ولكن لا ادرى كيف اوضح البيانات اكثر واكون شاكرا اذا ارفقت لى مثال تم عمله سابقا بنفس الكيفية.

اخى الكريم انا لا افهمك هل من الممكن ان توضح على الملف المرفق وشكرا ع ردك واهتمامك

اخى الكريم .. ما شاء الله كود رائع ولكن لى استفسار ارجو ان يتسع صدرك له هل يمكن الترحيل بناء على متغيرين ولكى اكون اكثر دقة فقد ارفقت الطلب بموضوع جديد وهذا هو الرابط http://www.officena.net/ib/index.php?showtopic=42715