على

مشكور اخي الكريم ماقصرت بارك الله فيك وجزاك الله كل خير

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

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

السلام عليكم استخدمت الدالة AGGREGATE لفرز البيانات من ورقة الي ورقة اخرى واريد استخدام الملف للعمل غلي الاكسل 2007 لكن هذه الدالة غير متوفرة بالاكسل 2007 فهل من بديل لها بالاكسل 2007 ؟ المطلوب موضح بالملف المرفق Ex1.rar

اخي انظر للملف المرفق ممكن يفيدك وهو عبارة عن قالب جاهز وفقك الله TS103987167-2.rar

ممكن اخي ترفق ملف تجربتك لتعم الفائدة لانني حاولت وصادفتنى بعض الاخطاء

اين يتم وضع الكود بالتحديد رجاء

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

السلام عليكم لدى عمل اتممته بفضل من الله وعمل الفورم والبحث ولكن لذى مشكلة لم اجد لهل حل فهل من مساعدة رحم الله والديكم فى سجلات موظفين للاجازات لكل موظف اكثر من سجل والبحث يتم برقم الموظف فعند تعديل سجل بالليست بوكس يتم تعديل كافة السجلات والمطلوب تعديل السجل المحدد فقط مرفق صورة للتوضيح والكود : Private Sub SaveCommandButton_Click() Dim i As Integer For i = 2 To 6000 If FileFind.Text = Cells(i, 3) Then Cells(i, 4) = TextBox2.Text Cells(i, 5) = TextBox3.Text Cells(i, 6) = TextBox4.Text Cells(i, 8) = TextBox6.Text End If Next MsgBox "تم التعديل بنجاح" Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.FileFind.Value = "" ListBox1.Clear Me.FileFind.SetFocus End Sub

السلام عليكم اريد شرح وتوضيح لهدا الكود لم يعمل معي لاظهار صفوف الليست بوكس في التكست بوكسات بالفورم ما الخطاء Sub ListBox1_Click() On Error Resume Next FileTextBox.Visible = True TybeTextBox.Visible = True DaysTextBox.Visible = True FromTextBox.Visible = True ToTextBox.Visible = True NotesTextBox.Visible = True CommandButton1.Visible = True DeleCommandButton.Visible = True SaveCommandButton.Enabled = False ii = 3 For i = 0 To Me.ListBox1.ColumnCount Me.Controls("TextBox" & ii).Value = Me.ListBox1.List(ListBox1.ListIndex, i) ii = ii + 1 Next End Sub

مشكور اخي جلال ماقصرت بارك الله فيك

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

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

>>>>>>>>

الله المستعان