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

[أبوحازم]

عفوا أريد ترحل كل البيانات التي في العمود : a-b-c الى الورقة8

وبعد الضغط على زر الترحل يمسح البيانات الملف مرفق . وشكر

ترحيل.rar

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

السلام عليكم

 

استخدم الكود التالي

Sub Macro1()
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row

If LR = 1 Then Exit Sub

Application.ScreenUpdating = False
Range("A2:C" & LR).Copy
With Sheets("ورقة8")
    LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    .Range("A" & LR).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
Range("A2:C43").ClearContents
Application.ScreenUpdating = True
End Sub

تحياتي

[أبوحازم]

ياسلام  شكرا جزيلا