ريان أحمد

السلام عليكم أستاذي العزيز أعتذر لأنني أتعبتك معي لكن مازالت هناك مشكلة وهي مبينة في المرفق الرجاء تبيين أين تم التعديل بالنسبة لهذا الأخير وبالنسبة للتعديل السابق 79 Sans titre.rar

شكرا لمررورك العطر وجزاك الله كل خير

مع إصافة كود لمنع حفظ بإسم Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Me.Save Cancel = True End If End Sub ------------------------ هذاالكود يوصع في حدث this work book وذلك لمنع إعادة التسمية بواسط حفظ بإسم

up

السلام عليكم لقد نجح الكود وجزاكم الله كل خير ودمت دخرا للمنتدى t.rar

السلام عليكم هل يعمل الكود في 2003 وأين يدرج في مودال أو في حدث فتح الملف لأنني جربته في 2003 ولم ينجخ

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

السلام عليكم أستاذي ضاحي عمل قمة في الإتقان والروعة جزاك الله كل خير أستاذي هل يمكن تزويدنا بنسخة 2003

up

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

up

Sans titre.rar

السلام عليكم أستاذي شكرا جزيلا وبارك الله فيك وجزاك الله كل خير بالننسبة لهذه الجزء من الكود For i = 2 To .Cells(Rows.Count, "a").End(xlUp).Row قمت بتغييره من a إلى إسم العمود فهل هو معني بالتعديل

Private Sub ComboBox1_Change() Dim i As Long, ii As Long Dim NdAry() Me.ListBox1.Clear With sss For i = 2 To .Cells(Rows.Count, "a").End(xlUp).Row If CStr(Me.ComboBox1) = CStr(.Cells(i, 1)) Then ii = ii + 1 ReDim Preserve NdAry(1 To 13, 1 To ii) NdAry(1, ii) = .Cells(i, 11).Value NdAry(2, ii) = .Cells(i, 14).Value NdAry(3, ii) = .Cells(i, 23).Value NdAry(4, ii) = .Cells(i, 24).Value NdAry(5, ii) = .Cells(i, 25).Value NdAry(6, ii) = .Cells(i, 17).Value NdAry(7, ii) = .Cells(i, 18).Value NdAry(8, ii) = .Cells(i, 19).Value NdAry(9, ii) = .Cells(i, 3).Value NdAry(10, ii) = .Cells(i, 26).Value NdAry(11, ii) = .Cells(i, 27).Value NdAry(12, ii) = .Cells(i, 29).Value NdAry(13, ii) = .Cells(i, 66).Value End If Next End With If ii Then If ii = 1 Then Me.ListBox1.Column = NdAry Else Me.ListBox1.List = WorksheetFunction.Transpose(NdAry) End If Else MsgBox "ãÚáæãÇÊ åÐÇ ÇáÞíÏ ÛíÑ ãÊæÝÑÉ", vbInformation, "ÇáäÊíÌÉ" End If Erase NdAry End Sub Private Sub ListBox1_Click() End Sub Private Sub UserForm_Initialize() Me.ListBox1.ColumnCount = 13 Me.ComboBox1.List = Range("bd2!$a$2:$a$60000").Value kh_Form_Zoom Me ------------------------- هذا الكود عندما قمت بتغيير مكان البحث a إلى عمود آخر لم يعمل الكود

السلام عليكم الملف لا يعمل عندي أفيس 2003

السلام عليكم أستاذي قمت بتحميل المرفق الأول تبعك وقمت يتتطبيق الشرح حيث قمت بتغيير ععمود البحث في العمود g وترتيبه هو 05 وقمت بتجربة الملف ولم ينجح الرجاء الشرح أين الخلل والصورة في المرفق أين تم تعديلي

up

جزاك الله كل خير وكل عام وأنت بخير

السلام عليكم كود منتهى الروعة هل يمكن وصعه في شريط الفورم متحرك

جزاك الله كل خير ونحن ننتظر ملفك بفارغ الصبر

up

للرفع

up

شكرا لك وأتمنى إيجاد الحل