أبو عبد الملك السوفي

للرفع بورك فيكم

للرفع بورك فيكم

جزاك الله خيرا

نعم ربما المطلوب فيه لبس ولم يوضح جيدا

فقد ضربت مثلا فيه موردين فقط 

...لكن المطلوب ان يكون الموردين من 1 الى ربما قد يصل حتى 100 مورد

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

ممتاز استاذ سليم عمل اكثر من رائع جزاك الله كل خير

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

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

جزاك الله خيرا الاستاذ سليم ..جزئيه اخيره ليكون العمل متقن ونموذجي

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

السلام عليكم

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

مثلا اريد ان يكون التقرير في الفتره من 15/08/2020 الى   20/08/2020 للزبون محمد1 ومحمد3 فقط

فالكود يقوم بانشاء تقرير كما في شيت تقرير ..فيقوم الكود باستدعاء المشتريات من الزبون الواقعة بين التاريخين المحددين

Example.xlsm

السلام عليكم استاذ سليم هل يمكن ان تجعل الترحيل الى الشيت  بعد ان انتهي من ملأ الليست بوكس ..اي لا يكون مباشرة من التكست بوكس

السلام عليكم ...

لوسمحتم هل يوجد كود للترحيل من تكست بوكس الى ليست بوكس كما في المثال

فعند الضغط على ترحيل تنتقل المعلومات الى ليست بوكس

مثال.rar

للرفع

للرفع

السلام عليكم اساتذتنا الكرام

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

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

حيث يعرض الليست بوكس تاريخ آخر سداد / تاريخ آخر استدانة/ الزبون/ الدين المستحق

المصنف1.rar

للرفع

السلام عليكم

و هذا ملف به نموذج ادخال

بعد ادخال عدة اسماء للست بوكس

المطلوب

عند تحديد اي سطر في اللست بوكس والضغط دوبل كليك عليه يحذف من الليست بوكس

المصنف1.rar

السلام عليكم

أود فكرة للتحكم في رقم الكموند بوتون مثلا

Private Sub CommandButton5_Click()

 Me.CommandButton5.BackColor = &HFF&
End Sub

المطلوب عند نسخ سطر تغيير اللون ولصقه في كود كموند آخر أن يتعرف على رقمه وحده دون أن أكتبه  وحدي

هكذا

Private Sub CommandButton6_Click()

 Me.CommandButton6.BackColor = &HFF&
End Sub

Private Sub CommandButton7_Click()

 Me.CommandButton7.BackColor = &HFF&
End Sub

السلام عليكم

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

للرفع رفع الله قدركم واعلى مقامكم

استاذ محمد  هذا الكود لا يكفي بالغرض

لدي فوروم به تكس بوكس
والادخال في التكس بوكس يكون عن طريق قارئ الكود بار اي اضع المؤشر في التكس بوكس و امررالكود بار على القارئ فينقل الارقام للتكس بوكس

المطلوب هل هناك طريقة او كود  لربط القارئ بالتكس بوكس مباشرة حتى ولو كان المؤشر ليس في التكس بوكس فان القارئ ينقل الارقام للتكس بوكس
مباشرة

لما العجلة صديقي

فالاساتذة الكرام لم يدلوا بدولهم

رايت العجب في هذا المنتدى وتعلمت منه الكثير جدا حتى اني والحمد لله اصبحت ابرمج وحدي بفضل الله ثم بفضل هذا المنتدى 

و انا لا ايأس من شي حتى يقول خبراء المنتدى الامر مستحيل

السلام عليكم

أساتذتنا الكرام كيف الحال

هل هناك كود يمكنه برط جهاز قاري الكود بار مباشرة بتاكس بوكس في الفوروم

عندي فروروم به     TEXTBOX2  ودائما يجب ان اضع المؤشر في التكس بوكس لكي يشتغل البرنامج

اريد كود يربط القارئ مباشرة بالتكس بوكس بدون ان اتدخل

اضن ان الامر ليس مستحيل

الحمد لله تم حل المشكل بتكوين كود لغلق الفوروم واعادة فتحه بعد تنفيذ عملية الترحيل ...شكرا لكم جميعا جزاكم الله خيرا

5 دقائق مضت, عبدالسلام ابوالعوافي said:

جرب الكود بهذه الطريقة ولو حدث خطأ الرجاء تحميل الملف لكي يتم العمل عليه

 Sub DOKOL1()
 

Dim lr As Long
Dim dat As Date
dat = UserForm2.TextBox1
cou = Application.WorksheetFunction.CountIfs(Range("A2:A100000"), UserForm2.TextBox1, Range("b2:b100000"), UserForm2.TextBox2)
If cou = 1 Then
lr = MATCHAlsqr(Sheet2.Range("A2:b10000"), dat, 1, UserForm2.TextBox2, 2, 1) + 1
Else
lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If Sheet2.Cells(lr, 5) <> "" Then Call KOROG11: GoTo l

Sheet2.Cells(lr, 1) = Format(UserForm2.TextBox1.Value, "yyyy/mm/dd")
Sheet2.Cells(lr, 2) = UserForm2.TextBox2.Value
Sheet2.Cells(lr, 3) = Sheet1.Cells(Application.WorksheetFunction.Match(UserForm2.TextBox2.Value + 0, Sheet1.Range("a:a"), 0), 2)
Sheet2.Cells(lr, 4) = UserForm2.TextBox3.Value
Sheet2.Cells(lr, 5) = Format(Now, "hh:mm")
Sheet2.Cells(lr, 9).FormulaR1C1 = "=IF(NOT(OR(COUNTA(RC[-4]:RC[-3])=1,COUNTA(RC[-2]:RC[-1])=1)),IF(RC[-3]<RC[-4],RC[-3]+1-RC[-4],RC[-3]-RC[-4])+IF(RC[-1]<RC[-2],RC[-1]+1-RC[-2],RC[-1]-RC[-2]),"""")"
Sheet2.Cells(lr, 10).FormulaR1C1 = "=VLOOKUP(RC[-8],Sheet1!R2C1:R10000C4,4,0)"
Sheet2.Cells(lr, 11).FormulaR1C1 = "=IF(RC[-2]="""","""",IF((RC[-1]/24)<RC[-2],ABS(RC[-2]-(RC[-1]/24)),ABS(RC[-2]-(RC[-1]/24))))"
Sheet2.Cells(lr, 12).FormulaR1C1 = "=IF(RC[-3]="""","""",IF((RC[-2]/24)<RC[-3],RC[-3]-(RC[-2]/24),(RC[-2]/24)-RC[-3]))"
Sheet2.Range(Cells(lr, 9), Cells(lr, 12)).Value = Sheet2.Range(Cells(lr, 9), Cells(lr, 12)).Value


UserForm2.TextBox2.Value = ""

Call WindowsMediaPlayer1_OpenStateChange
l:
UserForm2.TextBox2.SetFocus
End Sub

 

للعلم استاذ يوجد هذا الكود في حدث التكس بوكس2

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
 r = Application.WorksheetFunction.CountIf(Sheet1.range("a:a"), TextBox2)
If r = 0 Then: TextBox2 = "": Exit Sub
ComboBox1.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 2)
 TextBox3.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 5)
   Call TextBox2_Change
   
   End Sub

اي ان الكود يتم تنقيذه عند الخروج من التكس بوكس2

جربته ولم يصلح