الـعيدروس

السلام عليكم الظاهر سهوت عن موضوعك جرب هذا التعديل واتمنى من الاخوة من لدية اسكنار يجرب الكود احتمال الاشكالية تكون في نسخة الويندوز لديك Cy_Scan_Ali_2.xlsm

السلام عليكم فهمت عليك تفضل جرب المرفق غياب_A5 مع الغياب بعذر.xlsm

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

السلام عليكم جرب المرفق طبعا الطباعه على الفورم Form_Sale_Pur.xlsm

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

ممكن تعطيني تصور فاتورة المشتريات الذي تريدها الاسعار والاصناف والعملاء هذا كله يدوي ام هنا قاعدة بيانات

مانوع الاسكنار الذي تستخدمة والموديل

التعديل الاخير فياي سطر ظهر الخطأ Object required

الكود الذي لديك لم اعمل عليه من سابق اجهل استخدامه جرب هذا التعديل او استبدل هذه الاسطر بعد تعديلها بالملف الذي لديك With WS_A.Items(1) .Properties("6146").Value = 1 '4 .Properties("6147").Value = 200 '100 .Properties("6148").Value = 200 '100 .Properties("6149").Value = 0 .Properties("6150").Value = 0 .Properties("6151").Value = 830 .Properties("6152").Value = 1167 .Properties("6155").Value = 0 ' Set W_A = .Transfer(wiaFormatJPEG) End With Cy_Scan_Ali1.xlsm

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

السلام عليكم جرب المرفق Cy_Scan_Ali.xlsm

السلام عليكم الصق هذا الكود في حدث الفورم Private Sub UserForm_Activate() If ActiveSheet.Name <> "data" Then Me.Hide Sheets("data").Activate saad1.Show End If End Sub

اظن في هذه الحالة تحويل نتيجة حالة الشرط "الشرط المطلوب تحققه" اذا True يرجع القيمة 1 بدلا عن True واذا False يرجع القيمة 0 بدلا عن False واذا لم اصيب اتمنى اساتذه المعادلات التصويب

السلام عليكم جرب المرفق على الرابط التالي اكيد مع حجم البيانات الكبير بيكون بطيئ ملاحظة بسيطة على ملفك تنسيق الشيت كامل يسبب بطئ في الملف يفضل عمل بوردر فقط لمدى البيانات وليس للشيت كامل 2020_A.xlsm

جربت اضفت بيانات جديده وطبع معي في مرفق بيان حالة 3 ؟

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

السلام عليكم دالة معرفة امل ان تفيدك في ملفك شاهدي المرفق بدل اجازه.xlsm

انقل الفورم للملف الجديد وغير المعطيات في بداية الكود بإمكانك البحث بالمنتدى طريقة نقل الفورم واستدعاء الفورم

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

السلام عليكم تفضل Private Sub CommandButton1_Click() Dim c, ii, i Dim Tx As Control ii = 0 For i = 1 To 4 If TypeOf Me.Controls(i) Is MSForms.TextBox Then c = Me.Controls(i) = "": If c Then ii = ii + 1 End If Next If ii Then MsgBox ("لا يمكن الارسال بعض الحقول فارغه ") Else MsgBox ("تم الاسال ") End Sub

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

وعليكم السلام ليش مايكون ادخال البيانات في صفحة فقط

السلام عليكم حدد المدى اخي مايحتاج تحط مسمى لكل ورقة For Each ws In ThisWorkbook.Worksheets If ws.Name = Me.ComboBox3.Value Then With ws .Select Me.ComboBox1.RowSource = .Range("A6:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Address '"name1" ' A Me.ComboBox2.RowSource = .Range("B6:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Address '"data1" ' B End With End If Next

السلام عليكم استخدام عمود وسيط ممكن هذا التعديل مثل الملف Sub trheel() Dim Cl As Range, i As Integer For i = 2 To 41 For Each Cl In Range("G3:G" & [G10000].End(xlUp).Row) If Not Ch(Cl) Then If Cl.Value = Sheets(i).Name Then Cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("A" & Sheets(i).[A10000].End(xlUp).Row + 1) Cells(Cl.Row, "XFD") = "OK" End If End If Next Next End Sub Private Function Ch(Cl As Range) As Boolean If Cells(Cl.Row, "XFD") = "OK" Then Ch = True End Function

يشعر المستخدم تعريف المتغيرات اذا لديك متغيرات لم يتم تعريفها بـ Dim