نسخ صف يحوي صيغ لصف تحته مباشرة أو

[نايف - م]

السلام عليكم

أرغب في كثير من الأحيان بنسخ صف لصف تحته مباشرة أو لأي صف أختاره

حاولت كتابة كود و قد نجح الأمر معي بنسبة مقبولة

في هذا المنتدى توجد مشاركة و هي تعتمد على أدراج و نسخ , أنا أريد دون أدراج

هل يمكن المساعدة

جعلها الله في ميزان حسناتكم

أدرج ملف مرفق

نسخ.rar

[ابو القبطان]

السلام عليكم

أرغب في كثير من الأحيان بنسخ صف لصف تحته مباشرة أو لأي صف أختاره

حاولت كتابة كود و قد نجح الأمر معي بنسبة مقبولة

في هذا المنتدى توجد مشاركة و هي تعتمد على أدراج و نسخ , أنا أريد دون أدراج

هل يمكن المساعدة

جعلها الله في ميزان حسناتكم

أدرج ملف مرفق

[ابو القبطان]

عفوا يا اخي اذا كنت ترغب في نسخ صف لصف آخر شرط ان يكون اسفل منه مباشرة كما قلت ، فإن الامر لا يستلزم بحث عن كود ، الاكسيل وفر لنا هذه العملية بطريقة سهله وبسيطه.

ماعليك إلا ان تقف في الخلية التي تريد النسخ اليهااو الصف ( بعد تحديد الصف بالكامل اذا اردت ) وتضغط مفتاحي

Ctrl+D

[نايف - م]

السلام عليكم

أخي الكريم أشكر أستجابتك

أحب أن تتم الأعمال "للسرعة "بالكود,

أشكرك و أقول أنا أعرف هذه الطريقة , لكن ما يهمني هو أستعمال الكود لنسخ صيغ الصف الأول في أي صف آخر ,

أخي الكريم"

طزيقتك تعني نسخ كل شيء (المحتويات, الصيغ,التنسيقات)

بارك الله فيك

[عبدالله باقشير]

السلام عليكم

لنسخ المعادلات لاخر صف

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 بواسطه خبور خير

[نايف - م]

السلام عليكم

بارك الله بك أخي خبور

مشكور على الرد

سأعمل على فهم الكودين

شكرا