Macro paste value tới sheet chỉ định và tới dòng tiếp theo chưa ghi dữ liệu??? (1 người xem)

[mrhackgm]

em xin huỷ bài viết, vì đã làm đc!
tuy chưa chuyên nghiệp lắm, nhưng đã tạm giải quyết đc công việc của em.
Em luôn mong đợi sự đóng góp của mọi người để file cơ động hơn, vì ở phần tôi đậm chưa hợp lý lắm.

Sub Run_1()
'
' Run_1 Macro
'


'
Application.Run "VD.xlsm!Go_1"
Selection.Copy
ActiveSheet.Application.Run "VD.xlsm!Go_2"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Previous.Select
End Sub


Sub Go_1()
'
' Go_1 Macro
'


'
Application.Goto Reference:="INDIRECT(""Issue_Slip!b8:f17"")"
End Sub
Sub Go_2()
'
' Go_2 Macro
'


'
Application.Goto Reference:="INDIRECT(""Book!a""&Issue_Slip!R6C6-1&""4"")"
End Sub

 

[ndu96081631]

tuy chưa chuyên nghiệp lắm, nhưng đã tạm giải quyết đc công việc của em.
Em luôn mong đợi sự đóng góp của mọi người để file cơ động hơn, vì ở phần tôi đậm chưa hợp lý lắm.

Không đầu không đuôi, biết đâu mà giúp

em xin huỷ bài viết, vì đã làm đc!
.

Đã vậy thì đóng topic luôn