iloveit
Thành viên thường trực
- Tham gia
- 2/3/13
- Bài viết
- 212
- Được thích
- 51
- Giới tính
- Nam
- Nghề nghiệp
- Tự do
Mình có đoạn code xóa dòng như sau, nhưng mình muốn sau khi copy hết công thức thì chọn lại cell ban đầu.
Cụ thể:
Khi mình đang ở cell A14 thì sau khi chạy sub sẽ chọn lại cell A14
Khi mình đang ở cell B15 thì sau khi chạy sub sẽ chọn lại cell B15
Nhờ mọi người giúp mình sửa đoạn code giúp! Chân thành cảm ơn.
Cụ thể:
Khi mình đang ở cell A14 thì sau khi chạy sub sẽ chọn lại cell A14
Khi mình đang ở cell B15 thì sau khi chạy sub sẽ chọn lại cell B15
Nhờ mọi người giúp mình sửa đoạn code giúp! Chân thành cảm ơn.
Mã:
Sub xoadong()
With Sheet2
ActiveCell.EntireRow.Delete
Range("F12").Select
Selection.AutoFill Destination:=Range("F12:F200"), Type:=xlFillDefault
Range("J12").Select
Selection.AutoFill Destination:=Range("J12:J200"), Type:=xlFillDefault
Range("M12").Select
Selection.AutoFill Destination:=Range("M12:M200"), Type:=xlFillDefault
Range("P12").Select
Selection.AutoFill Destination:=Range("P12:P200"), Type:=xlFillDefault
Range("X12").Select
Selection.AutoFill Destination:=Range("X12:X200"), Type:=xlFillDefault
Range("Z12").Select
Selection.AutoFill Destination:=Range("Z12:Z200"), Type:=xlFillDefault
End With
End Sub
Lần chỉnh sửa cuối: