qhq

السلام عليكم اخي الكريم جرب التالي For h = 0 To ListBox1.ListCount - 1 Sum = Sum + Val(ListBox1.Column(4, h)) Next TextBox2 = Sum

اتبع الخطوات التالية من اعدادات الجهاز control panal اختر language ثم اختر administrative اختر change system locale ثم اختر اللغة العربية اضغط موافق ثم قم باعادة تشغيل الجهاز

السلام عليكم بعد اذن اخي حمادة فكرة اخرى على نفس كود اخي حمادة Private Sub CommandButton2_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("ورقة1") '============== SAMA1 = MsgBox("سيتم تسجيل البيانات الموجودة؟..هل انت متأكد من اجراء هذه العملية", vbYesNo) If SAMA1 = vbYes Then If Me.TextBox1 = "" Or Me.TextBox2 = "" Or Me.ComboBox1 = "" Then 'Exit Sub MsgBox "اكمل البيانات الغير مسجلة اولا", vbMsgBoxRight, "نقص في البيانات !!!" Exit Sub Else '========= SAMA = (ComboBox1.ListIndex + 1) * 4 iRow = ws.Cells(Rows.Count, SAMA).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, SAMA).Value = Me.TextBox1.Value ws.Cells(iRow, SAMA + 2).Value = Me.TextBox2.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" End If MsgBox "!! تم تسجيل البيانات .. بنجاح " Else MsgBox "!! لم يتم تسجيل البيانات" End If End Sub

هنا محاولة ممكن ان تستفيد منها جلوس.rar

بعد اذن الاخ Hancock هنا محاولة علها تفيد ںم§ں§ ¢çں©ï© ꧩ«ï، HaNcOcK Clear Final.rar

هنا محاولة علها تفي بالغرض MRS1.rar

هنا محاولة قد تفيدك مستودعات المفروشات 12011.rar

لا شكر على واجب ..... وأسف على تطفلي

مشاركة متواضعة اذا تم السماح لي ومن ما تعلمته من هذا المنتدى العظيم يمكنك تعديل الكود الى ( مع استخدام الخلية A1) Dim Counter As Long, LastOpen As String, Msg As String Sheets("Sheet1").Activate Application.GoTo [A6] Counter = GetSetting("XYZ Corp", "Budget", "Count", 0) Msg = "لقد فتح هذا الملف " & Counter & " مره." Msg = Msg & vbCrLf & "اخر تاريخ تم فتحه فيه هو: " & [a1] Msg = Msg & vbCrLf & "مع تحيات أوفيسنا " MsgBox Msg, vbInformation, ThisWorkbook.Name Counter = Counter + 1 SaveSetting "XYZ Corp", "Budget", "Count", Counter SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen [a1] = Date

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