تعد عملية الترحيل من ابسط البرمجيات على الاكسيل التي قد تساعدك في العمل أو في الادارات أو في تسجيل بعض المعلومات التي تخصك على الاكسيل، هي عمليةسهلة.
Sub value1()
Dim lr As Integer
lr = [a3].End(xlUp).Row
Range("a2:d" & lr).Copy
Range("h" & [h100].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("a2").Select
End Sub
-------------------------------------------------------------
Sub value2()
Dim lr As Integer
lr = [a3].End(xlUp).Row
Range("a2:d" & lr).Copy
Range("h" & [h100].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("a2").Select
MsgBox ("valide")
End Sub
________________________________________Sub value3()
Dim lr As Integer
lr = [a3].End(xlUp).Row
Range("a2:d" & lr).Copy
Range("h" & [h100].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("a2").Select
Range("a2:d100").ClearContents
MsgBox ("valide")
End Sub
-------------------------------------------------------------
Sub value4()
Dim lr As Integer
Sheets(1).Activate
lr = [a3].End(xlUp).Row
Range("a2:d" & lr).Copy
Sheets(2).Activate
Range("h" & [h100].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Sheets(1).Activate
Range("a2").Select
Range("a2:d100").ClearContents
MsgBox ("valide")
End Sub
لاحظ الفيديو
ليست هناك تعليقات:
إرسال تعليق