نايف - م قام بنشر أكتوبر 30, 2009 قام بنشر أكتوبر 30, 2009 السلام عليكم أرغب في كثير من الأحيان بنسخ صف لصف تحته مباشرة أو لأي صف أختاره حاولت كتابة كود و قد نجح الأمر معي بنسبة مقبولة في هذا المنتدى توجد مشاركة و هي تعتمد على أدراج و نسخ , أنا أريد دون أدراج هل يمكن المساعدة جعلها الله في ميزان حسناتكم أدرج ملف مرفق نسخ.rar
ابو القبطان قام بنشر أكتوبر 31, 2009 قام بنشر أكتوبر 31, 2009 السلام عليكم أرغب في كثير من الأحيان بنسخ صف لصف تحته مباشرة أو لأي صف أختاره حاولت كتابة كود و قد نجح الأمر معي بنسبة مقبولة في هذا المنتدى توجد مشاركة و هي تعتمد على أدراج و نسخ , أنا أريد دون أدراج هل يمكن المساعدة جعلها الله في ميزان حسناتكم أدرج ملف مرفق
ابو القبطان قام بنشر أكتوبر 31, 2009 قام بنشر أكتوبر 31, 2009 عفوا يا اخي اذا كنت ترغب في نسخ صف لصف آخر شرط ان يكون اسفل منه مباشرة كما قلت ، فإن الامر لا يستلزم بحث عن كود ، الاكسيل وفر لنا هذه العملية بطريقة سهله وبسيطه. ماعليك إلا ان تقف في الخلية التي تريد النسخ اليهااو الصف ( بعد تحديد الصف بالكامل اذا اردت ) وتضغط مفتاحي Ctrl+D
نايف - م قام بنشر أكتوبر 31, 2009 الكاتب قام بنشر أكتوبر 31, 2009 السلام عليكم أخي الكريم أشكر أستجابتك أحب أن تتم الأعمال "للسرعة "بالكود, أشكرك و أقول أنا أعرف هذه الطريقة , لكن ما يهمني هو أستعمال الكود لنسخ صيغ الصف الأول في أي صف آخر , أخي الكريم" طزيقتك تعني نسخ كل شيء (المحتويات, الصيغ,التنسيقات) بارك الله فيك
عبدالله باقشير قام بنشر أكتوبر 31, 2009 قام بنشر أكتوبر 31, 2009 (معدل) السلام عليكم لنسخ المعادلات لاخر صف Sub KH_copy_row1() On Error Resume Next Dim R As Long R = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(R, "A"), Cells(R, "J")).Copy Cells(R + 1, "A").PasteSpecial Paste:=xlPasteFormulas Cells(R + 1, "A").Offset(0, 1).Resize(1, 9).SpecialCells(xlConstants).ClearContents On Error GoTo 0 End Sub لنسخ المعادلات من اول صف لاي صف تختاره Sub KH_copy_row2() Dim R As Long R = ActiveCell.Row Range("A1:J1").Copy Cells(R, "A").PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False End Sub تم تعديل أكتوبر 31, 2009 بواسطه خبور خير
نايف - م قام بنشر أكتوبر 31, 2009 الكاتب قام بنشر أكتوبر 31, 2009 السلام عليكم بارك الله بك أخي خبور مشكور على الرد سأعمل على فهم الكودين شكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.