Nhờ giúp đỡ lệnh copy tự động (1 người xem)

[haosev]

Bác nào có thể giúp em lệnh copy tự động không ạ!
- Dữ liệu nhập vào sheet: NHAP DU LIEU
- Sau khi nhập xong thì nhấn vòa nút COPY nó sẽ tự động copy tiếp vào dòng cuối của sheet: TONG HOP
- Copy xong thì hiện chữ ok, hoặc thông báo nữa ạ!
Bác nào giúp em với ạ, em cảm ơn!

 

[snow25]

Bác nào có thể giúp em lệnh copy tự động không ạ!
- Dữ liệu nhập vào sheet: NHAP DU LIEU
- Sau khi nhập xong thì nhấn vòa nút COPY nó sẽ tự động copy tiếp vào dòng cuối của sheet: TONG HOP
- Copy xong thì hiện chữ ok, hoặc thông báo nữa ạ!
Bác nào giúp em với ạ, em cảm ơn!

Đây bạn xem.

Sub copy()
Dim arr
Dim lr As Long
With Sheets("nhap du lieu")
     lr = .Range("B" & Rows.Count).End(xlUp).Row
     If lr < 3 Then MsgBox "nhap cai gi": Exit Sub
     arr = .Range("A3:D" & lr).Value
     .Range("A3:D" & lr).ClearContents
End With
With Sheets("tong hop")
     lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
     .Range("A" & lr).Resize(UBound(arr, 1), 4).Value = arr
End With
End Sub

 

[be_09]

Bác nào có thể giúp em lệnh copy tự động không ạ!
- Dữ liệu nhập vào sheet: NHAP DU LIEU
- Sau khi nhập xong thì nhấn vòa nút COPY nó sẽ tự động copy tiếp vào dòng cuối của sheet: TONG HOP
- Copy xong thì hiện chữ ok, hoặc thông báo nữa ạ!
Bác nào giúp em với ạ, em cảm ơn!

Sheet NHAP DU LIEU muốn thêm, bớt bao nhiêu dòng, cột là tùy ý, thử dùng code sau:

Sub Copy_PasteXuong()
    Sheet2.Range("A2").CurrentRegion.Offset(1).copy
    Sheet1.Range("A50000").End(xlUp).Offset(1).PasteSpecial
    Sheet2.Range("A2").CurrentRegion.Offset(1).ClearContents
End Sub

 

[haosev]

Thank 2 bác đã giúp be09 và snow25 Em làm đc rồi ạ!

 

[LienDong]

Đây bạn xem.

Sub copy()
Dim arr
Dim lr As Long
With Sheets("nhap du lieu")
     lr = .Range("B" & Rows.Count).End(xlUp).Row
     If lr < 3 Then MsgBox "nhap cai gi": Exit Sub
     arr = .Range("A3:D" & lr).Value
     .Range("A3:D" & lr).ClearContents
End With
With Sheets("tong hop")
     lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
     .Range("A" & lr).Resize(UBound(arr, 1), 4).Value = arr
End With
End Sub

Cho hỏi code trên sửa như thế nào
Khi mình muốn hỏi như bài 1
Do bảng số liệu của mình bố trí cách khác
Vui lòng xem file. Cảm ơn các bạn!

 

[LienDong]

Cho hỏi code trên sửa như thế nào
Khi mình muốn hỏi như bài 1
Do bảng số liệu của mình bố trí cách khác
Vui lòng xem file. Cảm ơn các bạn!

Nhờ các bạn giúp bài trên!

 

[snow25]

Nhờ các bạn giúp bài trên!

Bạn dùng cái này xem được không nhé.

Sub copy()
Dim arr
Dim lr As Long
With Sheets("nhap du lieu")
     lr = .Range("e" & Rows.Count).End(xlUp).Row
     If lr < 10 Then MsgBox "nhap cai gi": Exit Sub
     arr = .Range("E10:G" & lr).Value
     .Range("E10:G" & lr).ClearContents
End With
With Sheets("tong hop")
     lr = .Range("C" & Rows.Count).End(xlUp).Row + 1
     .Range("C" & lr).Resize(UBound(arr, 1), 3).Value = arr
End With
End Sub

 

[AnhThu-1976]

Bạn dùng cái này xem được không nhé.

Sub copy()
Dim arr
Dim lr As Long
With Sheets("nhap du lieu")
     lr = .Range("e" & Rows.Count).End(xlUp).Row
     If lr < 10 Then MsgBox "nhap cai gi": Exit Sub
     arr = .Range("E10:G" & lr).Value
     .Range("E10:G" & lr).ClearContents
End With
With Sheets("tong hop")
     lr = .Range("C" & Rows.Count).End(xlUp).Row + 1
     .Range("C" & lr).Resize(UBound(arr, 1), 3).Value = arr
End With
End Sub

Ồ!Mình cũng đang đi tìm code này!
Các bạn cho hỏi thêm, với code trên thì sau khi paste vào sheet tong hop thì mình muốn chọn nguyên khối ô vừa paste thì làm thế nào
Đưa Selection.Selec nhưng vẫn chưa được. Cảm ơn!

 

[snow25]

Ồ!Mình cũng đang đi tìm code này!
Các bạn cho hỏi thêm, với code trên thì sau khi paste vào sheet tong hop thì mình muốn chọn nguyên khối ô vừa paste thì làm thế nào
Đưa Selection.Selec nhưng vẫn chưa được. Cảm ơn!

Bạn chọn làm gì.Nguyễn khối của nó là mảng arr đó.Lấy luôn mà dùng.