ترحيل بيانات

[الدهشوري]

ترحيل بيانات.xlsx

أعضاء منتدى المبدعين السلام عليكم ورحمه الله  

أرغب فى ترحيل البيانات من شيت إدخال البيانات إلى صفحة الشيت مع العلم ان هناك تغير فى البيانات فى شيت إدخال البيانات 

[أ / محمد صالح]

جرب استعمال هذا الكود

Sub masTar7eel()
Application.ScreenUpdating = 0
Range("B2:B16").Copy
Sheets("الشيت").Select
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & lr).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = 0
Range("A" & lr).Select
Sheets("ادخال بيانات").Select
Range("B2:B16").ClearContents
Range("B2").Select
Application.ScreenUpdating = 1
MsgBox "Done by mr-mas.com"
End Sub

وهو عبارة عن تسجيل ماكرو لنسخ الخلايا من الشيت الاول الى آخر صف في الشيت الثاني مع خيار اللصق transpose

ولا تنس أن تحفظ الملف بامتداد يدعم الاكواد مثل xlsb

بالتوفيق