Copy khi filter dòng bằng VBA

[tranphuson]

Mình có 1 file sau khi filter dòng sau đó copy dữ liệu đã được filter lên phía trên bằng VBA:

Dữ liệu ở Sheet "Pivot" cần copy từ Cột A, I, J, K, L, M, N, O, P => Copy lên dòng số 3 phía trên

Xin cảm ơn

 

[Hoàng Trọng Nghĩa]

Cho hỏi là nó luôn luôn có 8 mã thôi hả bạn?

 

[tranphuson]

Cho hỏi là nó luôn luôn có 8 mã thôi hả bạn?

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

 

[Hoàng Trọng Nghĩa]

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

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ứ?

 

[tranphuson]

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ứ?

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

 

[Hoàng Trọng Nghĩa]

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

Nếu chỉ có vậy thì code sẽ đơn giản thế này:

Sub CopyPasteValue()
    Range("A24:A93,I24:P93").Copy
    Range("A3").PasteSpecial Paste:=xlPasteValues
End Sub

 

[tranphuson]

Nếu chỉ có vậy thì code sẽ đơn giản thế này:

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)

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

 

[be_09]

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

Thử code sau:

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

 

[tranphuson]

Thử code sau:

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ợ

 

[tranphuson]

Thử code sau:

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?

 

[Hoàng Trọng Nghĩa]

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?

Bạ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")

 

[tranphuson]

Bạ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")

Cảm ơn bạn đã giúp

 

[tranquynh.81]

Mình có 1 file có 3 sheet (dc, kd,md) , mình muốn copy các dòng từ sheet kd và md sang sheet dc . vì mình copy từng lần lâu quá khoảng 15000 dòng . mong các bạn giúp đỡ . Mình có gửi file

cảm ơn .