أبو حنــــين

السلام عليكم اضف اسم الشيت في الفورم بهذا الشكل Private Sub Lb1_1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddName Sheets("kh").Range("Lb1_1") End Sub Private Sub Lb1_2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddName Sheets("kh").Range("Lb1_2") End Sub Private Sub Lb1_3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddName Sheets("kh").Range("Lb1_3") End Sub

السلام عليكم استعمل هذا الكود Private Sub CommandButton1_Click() For Each cl In Range("Officena") If cl.Address = ActiveCell.Address And Not IsNumeric(cl) Then CommandButton1.Caption = cl.Value Next End Sub

السلام عليكم أخي ياسر فتحي جزاك الله خيرا

السلام عليكم أخي قنديل الصياد حفظكم الله و رعاكم

جزاك الله خيرا اخي محمد

السلام عليكم اضف هذا الجزئ في الفورم Private Sub UserForm_Activate() sheet4.Activate End Sub

العفو أخي : الساهر

العفو اخي أشرف جزاك الله خيرا

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

و ان اردت الجمع بدون تحديد خلايا استعمل الكود التالي Private Sub CommandButton1_Click() Range("A1").Value = 0 Range("A1").Value = Val(Application.WorksheetFunction.Sum(ActiveSheet.UsedRange)) / 2 End Sub

شاهد المرفق Book1.rar

أخي أبو محمد عباس جزاكم الله خيرا حفظكم الله و رعاكم

السلام عليكم اعتقد انه سقط منه سهوا اضافة كلمة عشر في السطر التالي ChiffreLettre = Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر", "الحادي عشر", "الثاني ", "الثالث ", "الرابع عشر", "الخامس عشر", "السادس عشر", "السابع عشر", "الثامن عشر", "التاسع عشر") و بعد اضافة الكلمة يصبح السطر كالتالي ChiffreLettre = Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر", "الحادي عشر", "الثاني عشر", "الثالث عشر", "الرابع عشر", "الخامس عشر", "السادس عشر", "السابع عشر", "الثامن عشر", "التاسع عشر")

اعتقد بهذه الطريقة افضل Copy of حساب العملاء 2014_2.rar

السلام عليكم جرب المرفق Copy of حساب العملاء2014.rar

ضع مثل هذا في الورقة التي تحتوي على ارقام Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("w1").Formula = "=sum(" & Selection.Address & ")" Range("A1") = Range("w1").Value Range("w1") = "" End Sub

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

السلام عليكم اخي جمال عبد السميع جزاك الله خيرا كل عام و انت و كل الاسرة و الامة الاسلامية بخير حفظكم الله و رعاكم و جعل الجنة مثواكم تقبل مروري

جزاك الله خيرا فعلا ملف ممتاز

السلام عليكم جزاك الله خيرا أخي خالد الرشيدي تقبل تحياتي

السلام عليكم جرب المرفق اخي ياسر Yasser.rar

السلام عليكم ضع هذا الكود في الورقة 1 التي تكتب فيها Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Range("B:B").Copy Sheets("ورقة2").[C:C] Application.ScreenUpdating = True End Sub

السلام عليكم جرب هذا الكود لكتابة الحروف الانجليزية فقط Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) On Error Resume Next Dim ABOUHANINE As String ABOUHANINE = "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ" KeyAscii = Asc(Chr(KeyAscii)) If InStr(ABOUHANINE, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub

السلام عليكم اخي جمال افتقدك المنتدى و الحمد لله عدت سالما و ان شاء الله غانما اخوك ابو حنين

السلام عليكم جرب المرفق invoice_3.rar