سؤال بخصوص النسخ واللصق ؟

[أبن النيل]

الاخوة الأعزاء

كيف يمكن نسخ عدة اعمدة غير متتالية من شيت فى ملف

ولصقها إلى أعمدة متتالية فى شيت بملف أخر

ولكم جزيل الشكر والعرفان بالجميل

تم تعديل مايو 28, 2019 بواسطه أبن النيل

[edkawy]

السلام عليكم

1 - اختار الاعمده المراد عمل نسخ لها ( دوس على  زر الكونترول فى الكيبورد و بعدين ظلل الاعمده كلها المراد عمل نسخ لها)

2 - فرضا انك اخترت عدد 4 من الاعمده وعملت ليهم نسخ

3- روح على الشيت المراد عمل اللصق هناك

4- اختار عدد 4 من العمده ( او نفس عدد الاعمده اللى انت عملتلها نسخ من الاول ) 

5 - كليك يمين و بعدين اختار نسخ من القايمه

 

فى طريقه تانيه زى ماهو موضح فى الصوره التالته ودى ممكن انك تختار خلايا معينه أو جزء من الاعمده مش العمود كله

 

 

 

 

تم تعديل مايو 28, 2019 بواسطه edkawy
اضافه صوره

[سليم حاصبيا]

يمكن استعمال هذا الماكرو

Option Explicit

Sub copy_choosen_columns()
Dim My_Max: My_Max = Range("a1").CurrentRegion.Rows.Count
Dim I%, k%
I = 2: k = 1
Sheets("sheet2").Cells.Clear
With Sheets("sheet1")
Do Until .Range("H" & I) = vbNullString
 Sheets("sheet2").Cells(1, k).Resize(My_Max).Value = _
 .Cells(1, .Range("H" & I)).Resize(My_Max).Value
 I = I + 1: k = k + 1
Loop
End With
End Sub

الملف مرفق

 

 

copy_col.xlsm

[أبن النيل]

اشكركم جزيلا

ربنا يجعلة فى ميزان حسناتكم

[وجيه شرف الدين]

الله عليك استاذ سليم رائع