Xima Alfadni قام بنشر أكتوبر 20, 2014 قام بنشر أكتوبر 20, 2014 (معدل) السلام عليكم الرجاء التكرم بالمساعدة في تصحيح كود الحذف حيث انه يقوم بحذف السجل التالى له وبخصوص كود البحث في الكمبوبوكس هل يمكن تطويره ليعمل بقاعدة For Next وشكرا فورم به الحذف - هام.zip تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni
Xima Alfadni قام بنشر أكتوبر 20, 2014 الكاتب قام بنشر أكتوبر 20, 2014 هلا يوجد اخ كريم يجيب على هذا التساؤل على الرغم من شبه تأكدى انه لن يجيب عليه أحد لأن هذا سادس سؤال اكتبه في هذا المنتدى دون ان يلتفت له أحد المشرفين الخبراء الافاضل أو الاعضاء الكرام !! و شكرا
Xima Alfadni قام بنشر أكتوبر 20, 2014 الكاتب قام بنشر أكتوبر 20, 2014 (معدل) اخى الكريم اشكرك على مجهودك بس الملف ما بيفتح معى .. هل يمكنكم تحميل الملف مرة اخرى تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni
شوقي ربيع قام بنشر أكتوبر 20, 2014 قام بنشر أكتوبر 20, 2014 هذه الاكواد المستعملة في الفورم البحث والحذف Dim LsInd As Byte Private Sub UserForm_Initialize() ComboBox1.List = Worksheets("User").Range("A1") _ .CurrentRegion.Columns("A").Value End Sub Private Sub ComboBox1_Change() Dim sh As Worksheet Dim Mh As Long, Lr As Long Dim i As Integer Dim ii If Me.ComboBox1 <> "" Then ii = Me.ComboBox1 Set sh = Sheets("User") With sh Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Mh = WorksheetFunction.Match(ii, .Range("A1:A" & Lr), 0) End With For i = 1 To 5 Me.Controls("TextBox" & i) = sh.Cells(Mh, i) Next LsInd = Me.ComboBox1.ListIndex + 1 'Vlookup function for the textboxes once a value has been selected in ComBox1 'TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 2, False) 'TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 3, False) 'TextBox3 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 4, False) End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() Dim sh As Worksheet Set sh = Sheets("User") sh.Range("A" & LsInd & ":E" & LsInd).Delete Shift:=xlUp ' If Me.ComboBox1.ListIndex = -2 Then Exit Sub ' Worksheets("USER").Range("A2").Offset(Me.ComboBox1.ListIndex, 0).Range("A1:J1").Delete Shift:=xlUp End Sub فورم به الحذف - هام.zip 2
Xima Alfadni قام بنشر أكتوبر 20, 2014 الكاتب قام بنشر أكتوبر 20, 2014 (معدل) جزاك الله كل الخير .. استفسار اخير .. لو كان يوجد في البحث كائنات اخرى غير تيكست بوكس مثل تشيك بوكس او خلافه ممكن تعطينى بس مثال عليها تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni
شوقي ربيع قام بنشر أكتوبر 20, 2014 قام بنشر أكتوبر 20, 2014 لم افهم سؤالك جيدا لاكني في كود البحث السابق استعملت دالة Match بحيث تبحث عن قيمت الكمبوبكس في العمود الاول ان كنت تريد البحث عن شيء اخر بواسطة التكست بوكس مثلا ماعليك سوى تبديل القيمة التي يستمد منها المتغير ii بياناته ii = Me.ComboBox1 تصبح ii = Me.Tsectbox1
Xima Alfadni قام بنشر أكتوبر 20, 2014 الكاتب قام بنشر أكتوبر 20, 2014 (معدل) اخى الكريم في البداية اشكرك على اهتمامك بالرد في المثال انا حاولت تعلم الطريقة فقمت بتحويل بداية مسار البحث من العمود a الى العمود c ولم اوفق ؟ ارجوك اشرح لى الخطأ في الملف المرفق الحالى و الاخير لكى اتعلم الطريقة وهذه معلومة هامة لجميع الاخوة في تعلم كيفية الحذف في نطاق و ليس السطر بالكامل ثانيا انا اضفت تشيك بوكس كمثال فكيف يمكن اضافته الى عناصر البحث ليبحث عنه كما يبحث عن التكست بوكس ببنفس الطريقة الحالية وقد قمت بادراج تسال عن نفصل الموضوع بفكرة اخرى و لكن الاخوة المشرفين و الخبراء الافاضل لم يبدو اى تجاوب بالرد عليه و الرابط كالتالى : http://www.officena.net/ib/index.php?showtopic=56086 لذلك ارجوا من الاخوة و الاساتذة الكرام التكرم بالاجابة على هذه المعلومة البسيطة وجزاكم الله خير و اكرر شكرى حذف.zip تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni
شوقي ربيع قام بنشر أكتوبر 20, 2014 قام بنشر أكتوبر 20, 2014 الخطاء هنا هو انك تبحث عن كلمة غير موجودة في عمود البحث انت ملئت بيانات القائمة المنسدلة من العمود e وتبحث عن قيمه في العمود c قم بتغير كود ملى القائمة المسدلة بهذا الكود ComboBox1.List = Worksheets("User").Range("C1").CurrentRegion.Columns("A").Value .وايضا في كود ملى التكسات الانك غير الاعمدة For i = 1 To 5 Me.Controls("TextBox" & i) = sh.Cells(Mh, i + 3) Next
Xima Alfadni قام بنشر أكتوبر 20, 2014 الكاتب قام بنشر أكتوبر 20, 2014 جزاك الله كل الخير ... و اشكرك جزيل الشكر لان هذه تقريبا اول مرة احد يهتم و يجيب على استفسارى للنهاية :) عندى استفسار اخر و اخير على الرابط التالى : http://www.officena.net/ib/index.php?s=92dfbd4401fd61a5317bfb51b2fe4de1&showtopic=56158 في المثال المرفق قد تحصلت بالبحث على نصف الاجابة وهو يشرح كيف انسخ من ملف الى ملف بطريقة Last Row و لكن السؤال الباقي هو كيف استعيد البيانات التى وضعتها في الملف المغلق بدون ان افتحه ، و بنفس طريقة Last Row بمعنى استعيد البيانات بنظاق متجدد مثل ما اضعها بنظاق متجدد ويكون الملف الاساسى مفتوح و الاخر يظل مغلق اشكرك على سعة صدرك وجزاك الله خير Get Data.zip
Xima Alfadni قام بنشر أكتوبر 21, 2014 الكاتب قام بنشر أكتوبر 21, 2014 الخطاء هنا هو انك تبحث عن كلمة غير موجودة في عمود البحث انت ملئت بيانات القائمة المنسدلة من العمود e وتبحث عن قيمه في العمود c قم بتغير كود ملى القائمة المسدلة بهذا الكود ComboBox1.List = Worksheets("User").Range("C1").CurrentRegion.Columns("A").Value السلام عليكم .. السادة الخبراء بخصوص هذا الكود فان الكمبوبوكس سيبدا من بداية عمود C فكيف ان كنت اريد ان يبدا من c3 بحيث يتجاهل ماهو موجود في C1 وC2 ComboBox1.List = Worksheets("User").Range("C3").CurrentRegion.Columns("A").Value حاولت ان اصيغها بهذه الطريقة و لكن لم يفلح و ارجوا تصحيح الخطأ وشكرا
Xima Alfadni قام بنشر أكتوبر 22, 2014 الكاتب قام بنشر أكتوبر 22, 2014 للرفع مرة اخرى عسي ان يصادف اخ كريم يعلم الاجابة يجيب على التساؤل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.