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

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