الـعيدروس قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 السلام عليكم الاساتذة الافاضل معاي كود حذف في فورم ادخال بيانات طريقة الحذف النقر دبل كليك على الليست بوكس لتظهر قائمة تصريح الحذف والذي هو 1234 لااطول عليكم الشرح على الملف وفقكم الله excel.rar
الـعيدروس قام بنشر يونيو 22, 2011 الكاتب قام بنشر يونيو 22, 2011 طلبي سهل بالنسبة اليكم فأرجو التعديل على الكود للاهميه
احمدزمان قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 السلام عليكم Sub COPPPY() R1 = ActiveCell.Row Range("A" & R1 & ":Z" & R1).Copy TR = Sheets("delet").Range("A999").End(xlUp).Row + 2 Sheets("delet").Range("A" & TR).PasteSpecial Paste:=xlPasteAll Application.CutCopyMode = False End Sub
عادل حنفي قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 السلام عليكم الله يباركلك يا احمد يايعقوب و علي الله تكن منورنا علي طول اخي alidroos اضافة الي عمل اخي احمد يعقوب و بعد اذنه طبعا هذا الكود علي اعتبار انه الصف الاول في الصفحة data سيتم نقله لاخر صف فارغ في الصفحة delet ثم الغاء الصف الاول مع ضرورة وضع صف العنوان في الصفحة delet في الصف الثاني و هذا لسلامة الكود If Sheets("delet").Range("A3") = "" Then n = 3 Else n = Sheets("delet").Range("A2").End(xlDown).Row + 1 End If i = 4 For x = 1 To 52 Sheets("data").Cells(i, x).Select Sheets("delet").Cells(n, x).Value = Sheets("data").Cells(i, x).Value Next Rows(4).Delete تحياتي
الـعيدروس قام بنشر يونيو 22, 2011 الكاتب قام بنشر يونيو 22, 2011 السلام عليكم الاساتذة الافاضل احمد زمان و عادل حنفي حفظكم الله مشكورين جدا على الاكواد كلها تفي بالغرض ولي طلب ياريت تضيفه على الملف نفسه في الفورم اكون لك من الشاكرين لاني حاولت اضيفه لم يزبط يلصق الاعمده 6 الاولى فقط وملاحظة ياريت النسخ يكون للقيم فقط والتنسيقات وليس الكل بارك الله فيكما
عادل حنفي قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 اخي جرب كده الملف انا لم اجربه و اخبرني النتيجة تحياتي excel.rar
الـعيدروس قام بنشر يونيو 22, 2011 الكاتب قام بنشر يونيو 22, 2011 الاستاذ عادل الكود باين عليه معصلج وناوي هوشه بختار اسم احمد لكي يحذفه راح نسخ رؤس الاعمدة ولصقه في ورقة delet وحذف الاسم طبعن وعملت نفس الطريقة لاادريس حذفه ولم يلصقه في ورقة delet ارجو النظر في الكود واشكرك مجددا على اهتمامك
عادل حنفي قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 اخي هل قمت بوضع صف العنوان في صفحة delet في الصف الثاني
عادل حنفي قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 سؤال ثاني هل المثال الذي ارسلته يختلف عن الملف الذي تجرب عليه من ناحية بداية الصفوف في كل صفحة
الـعيدروس قام بنشر يونيو 22, 2011 الكاتب قام بنشر يونيو 22, 2011 بالنسبه للفورم الذي ارفقته انت في المشاركة واما رؤس الاعمدة موجودة في ورقة delet ملفك جاي فيه استاذ عادل ملاحظ انك عملت زر في الشيت للحذف ومااريده الحذف من الفورم بمعنى ابحث عن الاسم المراد حذفه فااضغط دبل كليك على الليست بوكس فيعطيني رسالة ادخال تصريح للحذف والكود اريده في هذه الجزئية يقوم بنسخ صف الاسم ولصقة في ورقة delet ثم يقوم بحذف الصف
الـعيدروس قام بنشر يونيو 22, 2011 الكاتب قام بنشر يونيو 22, 2011 لاحظ على ملف الفيديو المرفق استاذ عادل delet.video.rar
عادل حنفي قام بنشر يونيو 22, 2011 قام بنشر يونيو 22, 2011 لقد تم عمل الكود في هذي الجزئية بالفعل عموما يوجد زر عندك في الملف الاخير الذي رفعته لك به كود نقل الصف و من ثم الغاؤه جرب فيه لبكره ان شاء الله تحياتي
الـعيدروس قام بنشر يونيو 22, 2011 الكاتب قام بنشر يونيو 22, 2011 اوك استاذي تصبح على خير نوم العوافي واحلام سعيده وفي امان الله
احمدزمان قام بنشر يونيو 23, 2011 قام بنشر يونيو 23, 2011 السلام عليكم الله يباركلك يا احمد يايعقوب و علي الله تكن منورنا علي طول تحياتي السلام عليكم و رحمة الله وبركاته اخي عادل انته النور كله في الحقيقة انا لم اجد اي زر للحذف لكي يضاف اليه الكود
الـعيدروس قام بنشر يونيو 23, 2011 الكاتب قام بنشر يونيو 23, 2011 استاذ احمد يعقوب اطلع على المرفق الذي في المشاركة رقم 12
الـعيدروس قام بنشر يونيو 23, 2011 الكاتب قام بنشر يونيو 23, 2011 استاذ احمد يعقوب الكود يعمل بكفائه ولاكن لم ينسخ كامل الاعمدة على مايبدو انه ينسخ الى عمود الغياب فقط ومابعده لم ينسخه فأرجو اكمال الجميل والتعديل عليه
الـعيدروس قام بنشر يونيو 24, 2011 الكاتب قام بنشر يونيو 24, 2011 (معدل) عفوا استاذ احمد يعقوب عدلت اخر عمود وزبط معي بارك الله فيك وفي ميزان حسناتك انشاء الله ملاحظة بسيطه هل بالامكان التحكم بكبر الخط ونوعه في شيت delet بمعنى ادمجه في الكود تم تعديل يونيو 24, 2011 بواسطه alidroos
الـعيدروس قام بنشر يونيو 24, 2011 الكاتب قام بنشر يونيو 24, 2011 الاستاذ احمد تحديد الخط عملته في حدث الصفحه وادى الغرض اشكرك Private Sub Worksheet_Activate() Range("a3:az1000").Font.Size = 12 Range("a3:az1000").Font.Name = "Traditional Arabic" End Sub
عادل حنفي قام بنشر يونيو 24, 2011 قام بنشر يونيو 24, 2011 السلام عليكم بارك الله فيك يا احمد يا يعقوب اخي alidroos اعذروني النت مغلبني من امس و يادوب اعمل حاجة استني امامه ساعتان البركة فيكم تحياتي
احمدزمان قام بنشر يونيو 24, 2011 قام بنشر يونيو 24, 2011 السلام عليكم و رحمة الله اخي عادل انته الخير و البركة وربنا يهديلك النت بتاعك اخي علي ادريس بانسبة للخط ممكن تدمجة في نفس الكود الكود الي علملته تضيف امامة اسم الورقة فقط مع التحية
الـعيدروس قام بنشر يونيو 24, 2011 الكاتب قام بنشر يونيو 24, 2011 السلام عليكم استاذ عادل لا عليك فخيرك كثير علينا استاذ احمد يعقوب انشاء الله احاول اعمل ماقلت وعلى الله زبط تحياتي تلميذكم أبو نصار
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.