[Hỏi] Tự Copy dữ liệu từ 1 dòng cố định Sheet 1 sang 1 dòng mới sheet 2 (1 người xem)

[toidjtjmtoi]

Cho mình hỏi có cách nào để khi mình nhập dữ liệu mới ở 1 dòng cố định tại sheet 1 thì nó tự thêm dòng copy toàn bộ dữ liệu mới này sang sheet 2 vào dòng tiếp theo khi mình save hoặc ấn 1 nút nào đó ....

 

[phulien1902]

Cho mình hỏi có cách nào để khi mình nhập dữ liệu mới ở 1 dòng cố định tại sheet 1 thì nó tự thêm dòng copy toàn bộ dữ liệu mới này sang sheet 2 vào dòng tiếp theo khi mình save hoặc ấn 1 nút nào đó ....

Bạn thử tạm với Code này cho 1 cột nhiều dòng.
Có File tham khảo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Sheet2.Range("A" & WorksheetFunction.CountA(Sheet2.Range("A:A")) + 1) = Range("A1")
    Range("A1").Select
End Sub

 

[toidjtjmtoi]

Cảm ơn bạn nhé .

 

[toidjtjmtoi]

Bạn thử tạm với Code này cho 1 cột nhiều dòng.
Có File tham khảo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Sheet2.Range("A"

 

[phulien1902]

À bạn có thể cho mình hỏi thêm là làm thế nào để cái code này thành nút bấm được không

Bạn làm như sau:
- Xóa Code cũ đi và bạn chép cái này vào Module nhé.

Sub toidjtjmto()
    Sheets(2).[a10000].End(xlUp)(2) = Application.WorksheetFunction.Transpose(Sheets(1).[a1])
    Sheets(1).[a1].ClearContents
End Sub

- Xin mời bạn tham khảo File

 

[minhtungph]

bạn thử chức năng paste link xem sao, bạn copy vùng nhập dữ liệu, sau đó qua sheet bạn muốn tự động nhập paste link vào

 

[toidjtjmtoi]

Bạn làm như sau:
- Xóa Code cũ đi và bạn chép cái này vào Module nhé.

Sub toidjtjmto()
    Sheets(2).[a10000].End(xlUp)(2) = Application.WorksheetFunction.Transpose(Sheets(1).[a1])
    Sheets(1).[a1].ClearContents
End Sub

- Xin mời bạn tham khảo File

Cho mình hỏi code sao chép cột hoặc hàng với :V
Phải sửa cái code này như thế nào
Transpose(Sheets(1).[a1])
Để chuyển sang copy theo hàng hoặc cột

 

[toidjtjmtoi]

Bạn làm như sau:
- Xóa Code cũ đi và bạn chép cái này vào Module nhé.

Sub toidjtjmto()
    Sheets(2).[a10000].End(xlUp)(2) = Application.WorksheetFunction.Transpose(Sheets(1).[a1])
    Sheets(1).[a1].ClearContents
End Sub

- Xin mời bạn tham khảo File

Bạn giúp mình nếu mình muốn copy theo hàng hoặc cột thì phải sửa code như thế nào
Sub toidjtjmto()
Sheets(2).[a10000].End(xlUp)(2) = Application.WorksheetFunction.Transpose(Sheets(1).[a1])
Sheets(1).[a1].ClearContents
End Sub

 

[phulien1902]

Bạn tham khảo cho phần tự động( bài #2), bạn thay dòng

If Target.Address = "$A$1" Then Sheet2.Range("A" & WorksheetFunction.CountA(Sheet2.Range("A:A")) + 1) = Range("A1")

Bằng dòng dưới sẽ cho Copy DL theo cột:

If Target.Address = "$A$1" Then Sheet2.Range("A65536").End(3).Offset(1, 0) = Target

Bằng dòng dưới sẽ cho Copy DL theo dòng:

If Target.Address = "$A$1" Then Sheet2.Range("AA1").End(xlToLeft).Offset(0, 1) = Target

 

[phulien1902]

Bạn giúp mình nếu mình muốn copy theo hàng hoặc cột thì phải sửa code như thế nào
Sub toidjtjmto()
Sheets(2).[a10000].End(xlUp)(2) = Application.WorksheetFunction.Transpose(Sheets(1).[a1])
Sheets(1).[a1].ClearContents
End Sub

- Để Copy theo cột( đó là Code trên)
- Để Copy theo hàng bạn tham khảo Code dưới đây

Sub toidjtjmto2()
    Dim intRow As Integer, ws2 As Worksheet
    Set ws2 = Sheets("Sheet2")
    For intRow = 1 To ws2.Range("A" & Rows.Count).End(xlUp).Row
        Range("A1").Copy ws2.Cells(intRow, Columns.Count).End(xlToLeft).Offset(0, 1)
       Exit For
    Next intRow
    Sheets(1).[a1].ClearContents
End Sub

= Bạn có thể tham khảo File

 

[toidjtjmtoi]

- Để Copy theo cột( đó là Code trên)
- Để Copy theo hàng bạn tham khảo Code dưới đây

Sub toidjtjmto2()
    Dim intRow As Integer, ws2 As Worksheet
    Set ws2 = Sheets("Sheet2")
    For intRow = 1 To ws2.Range("A" & Rows.Count).End(xlUp).Row
        Range("A1").Copy ws2.Cells(intRow, Columns.Count).End(xlToLeft).Offset(0, 1)
       Exit For
    Next intRow
    Sheets(1).[a1].ClearContents
End Sub

= Bạn có thể tham khảo File

Mình Cảm thấy rắc rối gấp mấy lần excel
Code tưởng chỉ đổi chút là được ai dè nó khác nhau hoàn toàn
À ý mình là copy dữ liệu từ cột A1>a5 chẳng hạn thì làm thế nào bạn

 

[phulien1902]

Mình Cảm thấy rắc rối gấp mấy lần excel
Code tưởng chỉ đổi chút là được ai dè nó khác nhau hoàn toàn
À ý mình là copy dữ liệu từ cột A1>a5 chẳng hạn thì làm thế nào bạn

Mình hiểu ý của bạn là nhập DL vào Sheet 1 rồi DL được cập nhật sang Sheet 2 theo dòng theo cột. Tuy nhiên không ai đi nhập dữ liệu từ 1 Cell Sheet1 sang Sheet 2 theo dòng & theo cột cả.
Vì vậy mình khuyên bạn lên tìm hiểu về FormSheet đi, chắc chắn sẽ đưa bạn đến cái bạn cần.