tranphuson
Thành viên thường trực
- Tham gia
- 14/8/09
- Bài viết
- 249
- Được thích
- 9
- Giới tính
- Nam
Tạm thời là 8 mã như vậy, nếu sau này có thêm thì mình chỉnh sửa sau. Cảm ơnCho hỏi là nó luôn luôn có 8 mã thôi hả bạn?
Nếu nhiều hơn VD là 20 mã đi, khi paste nó sẽ lấn vào cái Pivot tạo ra lỗi hoặc mất dữ liệu sao bạn? Lẽ ra bạn phải để cái Pivot ở một sheet và cái bảng phía trên ở một sheet mới an toàn chứ?Tạm thời là 8 mã như vậy, nếu sau này có thêm thì mình chỉnh sửa sau. Cảm ơn
Hiểu ý bạn nói. Nhưng yêu cầu của kế toán cần làm trước vậy. Vui lòng giúp mình trước 8 mã này. Cảm ơnNếu nhiều hơn VD là 20 mã đi, khi paste nó sẽ lấn vào cái Pivot tạo ra lỗi hoặc mất dữ liệu sao bạn? Lẽ ra bạn phải để cái Pivot ở một sheet và cái bảng phía trên ở một sheet mới an toàn chứ?
Nếu chỉ có vậy thì code sẽ đơn giản thế này:Hiểu ý bạn nói. Nhưng yêu cầu của kế toán cần làm trước vậy. Vui lòng giúp mình trước 8 mã này. Cảm ơn
Sub CopyPasteValue()
Range("A24:A93,I24:P93").Copy
Range("A3").PasteSpecial Paste:=xlPasteValues
End Sub
Nếu mà khi filter dòng bên dưới thay đổi thì mình có cách nào copy không cần phải xác định dòng (Range("A24:A93,I2493").Copy)Nếu chỉ có vậy thì code sẽ đơn giản thế này:
Mã:Sub CopyPasteValue() Range("A24:A93,I24:P93").Copy Range("A3").PasteSpecial Paste:=xlPasteValues End Sub
Thử code sau:Nếu mà khi filter dòng bên dưới thay đổi thì mình có cách nào copy không cần phải xác định dòng (Range("A24:A93,I2493").Copy)
Vì dữ liệu có thể thay đổi về dòng khi nhưng vẫn là 8 mã này có mã con thì filter total sẽ không cố định dòng. Cảm ơn
Sub Dung_Copy()
Dim DongCuoi As Long
DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row
Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Range("A2")
End Sub
Cảm ơn bạn đã hỗ trợThử code sau:
Mã:Sub Dung_Copy() Dim DongCuoi As Long DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Range("A2") End Sub
Cho mình hỏi thêm nếu copy thêm qua Sheet "Sum" thì phải chỉnh VBA này như thế nào?Thử code sau:
Mã:Sub Dung_Copy() Dim DongCuoi As Long DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Range("A2") End Sub
Bạn muốn sheet nào cũng được, sửa tại đây:Cho mình hỏi thêm nếu copy thêm qua Sheet "Sum" thì phải chỉnh VBA này như thế nào?
Cảm ơn bạn đã giúpBạn muốn sheet nào cũng được, sửa tại đây:
Union(Range("A15:A" & DongCuoi), Range("I15" & DongCuoi)).Copy Sheets("Sum").Range("A2")
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2