mselmy

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

فكرة الملف المرفق كلاتى : لدى عمليات خاصه بالعملاء فاريد ان اعرف كل عميل ما هى اعلى حركة تمت على حسابه وفى الخانه المجاوره اليوم الذى تمت فيه هذه الحركه استعملت الداله look up لكن النتائج غير دقيقه علما بان الملف المرفق ملف مبسط اما الحقيقى فعدد العملاء به كبير ويصعب مراجعتهم ولكم جزيل الشكر

فى بعض الاحيان اقوم بعمل ملف اكسيل فيه بعض الماكروز ولكن عند الحفظ يرفض البرنامج حفظها واحيان اخرى انقل ملف به ماكروز من جهاز لاخر اجد انه نقل ملف الاكسيل بدون ماكروز فيه سبب المشكله دى وكيف يمكن تجنبها

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

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

مشاء الله دائما مبدع ربنا يوفقك ديما

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

اخوانى الاعزاء بمساعدة الاستاذ عبد الله المجرب واكواد الاستاذ الحسامي تم التوصل لهذا الحل ارجو من الله ان يكون فيه فائدة لبعض اعضاء المنتدى form control.rar

حاولت تركيب الاكواد لكن تعثرت فى الكود الخاص باللغه form control.rar

وادى كود تانى بس ده تاريخ بس Dim dDate As Date Private Sub CommandButton1_Click() Sheet1.Range("G1").Value = dDate End Sub Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Mid(TextBox1.Value, 4, 2) > 12 Then MsgBox "Invalid date, please re-enter", vbCritical TextBox1.Value = vbNullString TextBox1.SetFocus Exit Sub End If dDate = DateSerial(Year(Date), Month(Date), Day(Date)) TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") dDate = TextBox1.Value End Sub

حفرت شوية فى عدة مواقع ولقيت كود بالشكل ده لكن معرفتش ازبطه هل يستطيع احد تزبيطه Private Sub TextBox1_Change() yourTextBox.text = Formatnumber(Linked Data,[#,##0]) End Sub here are some other variations. yourTextBox.Text = FormatNumber("#,##0") yourTextBox.text = Formatnumber(Linked Data,[#,##0]) FormatNumber ("$#,##0.00_);[Red]($#,##0.00)") format(YourNumber, "###,###,##0.00") format(YourPercentage, "###%") FormatNumber(YourNum) FormatPercent(YourPer

للرفع

هل يوجد طريقة للتحكم بشكل ونوع البيانات المدخله فى الـ textBOX بحيث اجعل احدها يكتب حروف لاتينية مباشرتا واخر تكون البيانات فيه ارقام فقط واخر الداتا على شكل تاريخ

و تم اضافة دالة فى هذا الملف تقوم بعمل دالة MAX IF واعتقد انها مفيدة انشاء الله ونسالكم الدعاء max.rar max.rar

عثرت فى احد المواقع على كود يقوم بعمل الدالة MAX http://www.vbexcel.com/how-to-get-maximum-and-minimum-numbers-in-range-with-vba-code/ max.rar

استادى العزيز عبد الله اشكرك شكرا جزيلا هلى اهتمامك لقد قمت بعمل تعديل على الكود الاول والحمد لله اوفى بالغرض واليك الكود Sub Abu_Ahmed() Dim CL As Range, C As Range, Ce As Range For Each CL In Sheet2.[C3:O3] If CL.Value = [C2] Then For Each C In [b4:B30] For Each Ce In Sheet2.[b4:B30] If C.Value = Ce.Value And C.Offset(0, 1).Value = 1 And C.Value <> "" Then Sheet2.Cells(Ce.Row, CL.Column) = "ÛíÇÈ" End If If C.Value = Ce.Value And C.Offset(0, 1).Value = "" And C.Value <> "" Then Sheet2.Cells(Ce.Row, CL.Column) = "íÖÑ" End If Next Next End If Next End Sub

شكرا على الاهتمام لكن الترجيل توقف بعد الطالب الاول و عند ترك الخلبيه الاولى خاليه يقوم بالترحيل للفراغات

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

تسلم ايدك

الاخوه الاعزاء مرفق ملف اكسيل مطلوب عمل كود ترحيل به بالشكل المرفق فى الملف ولكم جزيل الشكر سجل الحضور.rar

برنامج كويس لكن البرنامج غير مكتمل لو يكمل يكون حاجه ممتازه

للرفع

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

توكلنا على الله وهذا هو الايميل selmy74@gmail.com

الحمد لله الذى هدنا لهذا وما كنا لنهتدى لولا ان هدنا الله