الجموعي

- الملف به مشكلة برقم الصنف (وهى - انا عندى اكتر من 120 صنف وعند القيام بادخال رقم الصنف من الفورم يظهر لى 57 صنف فقط ) تم حلها نموذج فاتورة بالفورم_2.rar

هل هذا ما تقصدهنموذج نقل عاملين الى فروع المنشأه - Copy.rar

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

اللهم أمين يارب العالمين

اللهم أمين وجميع بلاد المسلمين

شرح ممتاز اخي إبراهيم بارك الله فيك وفي مساعيك النبيله تقبل تحياتي

أخي الكريم لو اردت إضافة السنة الحالية للكود هذا الكود Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Year(Now()) أو إذا اردت ان تظهر السنة في ليبل لوحدها قم بإضافة ليبل وادرج هذا الكود Me.Label1.Caption = Year(Now()) وإذ اردت ايضا ان يظهر اسم الملف بالامتداد الخاص به Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - x)

نعم أخي الكريم بارك الله فيك ربي يحفظك

أخي حماده عمر كود ممتاز أنا إستعملت هذا الكود يؤدي نفس الطريقه Private Sub ComboBox1_Change() Me.ComboBox2.Clear On Error Resume Next For h = 2 To 11 Me.Controls("TEXTBOX" & h).Value = "" Next Me.ComboBox2.Value = "" If Me.ComboBox1.Value = "" Then: Exit Sub Sheets(ComboBox1.Value).Select Call HMA End Sub Sub HMA() With ComboBox2 For I = 1 To 50 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select '"ÌÏæá" & " " & "" Then c.Select Next End With End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub

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

أساتذتي الفضلاء لو تكرمتم لي بشرح هذا الكود Lr = Cells(Rows.Count, "A").End(xlUp).Row If Me.ComboBox1.Value = "" Then: Exit Sub If Me.ComboBox1.Value = "جدول1" Then For r = 1 To 9 Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r) Next End If LR1 = Cells(Rows.Count, "J").End(xlUp).Row If Me.ComboBox1.Value = "جدول2" Then For rr = 1 To 9 Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr) Next End If LR2 = Cells(Rows.Count, "S").End(xlUp).Row If Me.ComboBox1.Value = "جدول3" Then For rr = 1 To 9 Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr) Next End If LR3 = Cells(Rows.Count, "AB").End(xlUp).Row If Me.ComboBox1.Value = "جدول4" Then For rr = 1 To 9 Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr) Next End If ComboBox1_Change

أجل هذا ما قصدته لكن عند البحث القائمة المنسدلة تعمل اريدها لا تعمل مثلا تجد القيمة وعند الضغط عليها تجد الفراغ هل من طريقة لتجريب هذا الكود Me.ComboBox3.Locked = True أو Me.ComboBox3.Enabled = True

أخي الكريم بعد الإطلاع على الملف عليك أولا بترتيب بيانات شيت دخول الأقراص وشيت خروج الأقراص مثلا في الشيت 1 رقم اذن الدخول تاريخ الدخول لحساب العميل ماركة 1 2013-10-31 حامد ابو سالم القمة وفي الشيت 2 1 2013-11-19 اسامة جمال الطهوى أرجو منك ترتيب البيانات ليسهل علينا مساعدتك

نعم هذا ما قصدته لكن بشرط الصور في المرفقات توضح ما أقصده

شكرا لك على سعه صدرك إحترامي وتقديري

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

بارك الله فيك أريد تغيير القيمة التي تظهر في التكست بوكس 2 هي تظهر هكذا 10/10/1985 وأنا اريدها 10-10-1985

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

شرح ممتاز أخي إبراهيم بعد فهم الكود قمت بتطبيقه على التكست بوكس 8 Me.TextBox8.Value = Application.WorksheetFunction.Max(Range("g3:g" & LR)) تاريخ الخروج: في التكست بوكس ظهرت أرقام أخرى

شكرا جزيلا وبارك الله فيك ربي يحفظك هل تكرمت لي بشرح هذا الكود Me.TextBox7.Value = Application.WorksheetFunction.Max(Range("a3:a" & LR)) + 1 Me.TextBox5.Value = ActiveSheet.Name + 1 & "/" & ActiveSheet.Name

تسلم أخي إبراهيم مزالت بيانات الجدول 4 غير سليمه البيانات تدخل في الشيت لكن في الليست بوكس لا تظهر هل لاحظت ذلك

ماشاء الله عليك هل لي ان اعرف كيف سويت ذلك؟

أخي إبراهيم ها هو الملف ومعه صور تبين المشكلة بالنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه أريدها من اليمين لليسار مثل البيانات في الجدول في الشيت label-SS.rar

في الجدول 1 عند ترحيل البيانات وجدت خطا والمتمثل في تم إدراج البيانات في الصف 10 والصف 5.6.7.8.9 كلها فارغة بلنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه أريدها من اليمين لليسار مثل البيانات في الجدول

هكذا كفيت ووفيت أخي عمر وفي هذا الكود توجد الجداول 3 فقط كيف أضيف كود جدول 4 Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "A").End(xlUp).Row If Me.ComboBox1.Value = "" Then: Exit Sub If Me.ComboBox1.Value = "ÌÏæá1" Then For R = 1 To 9 Sheet1.Cells(Lr + 1, R).Value = Me.Controls("TEXTBOX" & R) Next End If LR1 = Cells(Rows.Count, "J").End(xlUp).Row If Me.ComboBox1.Value = "ÌÏæá2" Then For RR = 1 To 9 Sheet1.Cells(LR1 + 1, RR).Offset(0, 9) = Me.Controls("TEXTBOX" & RR) Next End If LR2 = Cells(Rows.Count, "S").End(xlUp).Row If Me.ComboBox1.Value = "ÌÏæá3" Then For RR = 1 To 9 Sheet1.Cells(LR2, RR).Offset(0, 18) = Me.Controls("TEXTBOX" & RR) Next End If ComboBox1_Change End Sub قمت بإضافة الكود التالي هل هذه البيانات صحيحة If Me.ComboBox1.Value = "ÌÏæá4" Then For RR = 1 To 9 Sheet1.Cells(LR2, RR).Offset(0, 27) = Me.Controls("TEXTBOX" & RR) Next End If وبالنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه أريدها من اليمين لليسار مثل البيانات في الجدول