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

لم يعمل يبقى المشر ينتقل الى TEXTBOX3 الذي يقع بعده مباشرة

ما القصد بنهاية الاجزاء

ماذا تقصد بنهاية الاجزاء ؟

السلام عليكم أساتذتنا الكرام كيف اجعل مؤشر الكتابة ثابت في TEXTBOX2 بعد عملية الترحيل اي بعد عملية الترحيل يرجع المؤشر ل TEXTBOX2 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: Exit Sub 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 End Sub

السلام عليكم اساتذتنا الكرام في موضوع سايق طرحت طلب المساعدة في برنامج البصمة لكن يبدوا ان المطلوب لم يكن واضح رغم لا يعتمد الا على دالة if متعددة الشروط وساوضح المطلوب من جديد لدينا لدينا ملف به صفحاتان الاولى دخول العمال لادخل رقم البطاقة في الخلية a3 فيقوم الكود بالترحيل المجال من a3 الى d3 الى صفحة دخول 1 اذا كان رقم البطاقة غير مكرر يرحل المجال من a3 الى d3 في صفحة دخول العمال الى صفحة دخول 1 الى اخر سطر فارغ . اذا وجد الرقم مكرر يرحل فقط الخلية d3 من صفحة دخول العمال الى العمود f في صفحة دخول 1 هذا الجزء الاول من المطلوب هل اجد مساعده من فضلكم برنامج البصمة2.rar

للرفع

للرفع رفع الله مقامكم

السلام عليكم أساتذتنا الكرام أرجوا أن أوفق في شرح المطلوب المعطيات عند إدخال 13 رقم مثلا 1111111111111 في الخلية A3 من شيت دخول العمال يتم الترحيل مباشرة إلى صفحة تجميع دخول العمال المطلوب1: عند إدخال الرقم 1111111111111 مرة ثانية في الخلية A3 من شيت دخول العمال أريد من الكود أن يرحل إلى نفس السطر في العمود F في صفحة تجميع دخول العمال ويأخذها من الخلية D3 في صفحة دخول العمال Classeur8_2(1).rar

نعم هذا ما اقصده وهو التعامل مباشرة مع بين الاكسل وجهاز البصمة ...واضن اساتذتنا لا يعجزهم هذا اذا كان الامر ممكن

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

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

للرفع

السلام عليكم اساتذتنا الكرام هل يمكن ربط جهاز البصمة بالاكسل والتعامل مع جهاز بالصمة مباشرة من الاكسل ....اولي اهمية لهذا المضوع ...فلو تكرمت اساتذتنا لا تبخلو علي بالاجابة

هذا هو المطلوب جزاك الله كل خير اخي عماد ونفع بك

السلام عليكم اساتذتنا الكرام كيفية أجعل Frame شفاف في اليوزرفورم

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

السلام عليكم اساتذتنا الكرام كيف يمكن تعديل هذا الكود للتعرف على الصفحة المراد حفظ التعديل فيها لان اليوزرفورم الموضوع فيه هذا الكود في يفتح في صفحة أخرى Private Sub CommandButton6_Click() ActiveCell.Offset(0, 0).Value = TextBox12 ActiveCell.Offset(0, 1).Value = TextBox2 ActiveCell.Offset(0, 2).Value = TextBox3 ActiveCell.Offset(0, 3).Value = TextBox4 ActiveCell.Offset(0, 4).Value = TextBox5 ActiveCell.Offset(0, 5).Value = TextBox6 ActiveCell.Offset(0, 7).Value = TextBox7 ActiveCell.Offset(0, 8).Value = TextBox8 ActiveCell.Offset(0, 9).Value = TextBox9 ActiveCell.Offset(0, 10).Value = TextBox10 ActiveCell.Offset(0, 11).Value = TextBox13 MsgBox "Êã ÊÓÌíá ÇáÊÚÏíáÇÊ" End Sub

السلام عليكم لم افهم الموقع استاذ طارق انا اريد تغيير الالوان في الكود التالي With CommandButton6 If .BackColor = &H8000& Then .BackColor = &H80FF& Else: .BackColor = &H8000& End If End With والرموز الموجودة في الموقع لا يقبلها الكود

السلام عليكم اساتذتنا الكرام من فضلكم اريد معرفة رموز الالوان في vba مثل H8000 HFF بحثت ولم أجدها جزاكم الله خيرا

جزاك الله خيرا ونفع بك استاذ علي

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

¨جزاك الله خيرا استاذ علي بوركت

السلام عليكم اساتذتنا الكرام من فضلكم اريد كيفية حذف يوزرفورم

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

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