Giúp em làm mã code VBA copy dữ liệu qua sheet khác với (1 người xem)

[nguyenquanxray209]

E muốn là khi e copy dữ liệu vào dòng 2 của sheet kết quả thì nó cũng sẽ tự cập nhập vào sheet danh sách

 

[nghiaphuc]

E muốn là khi e copy dữ liệu vào dòng 2 của sheet kết quả thì nó cũng sẽ tự cập nhập vào sheet danh sách

Bạn dùng code này nhé:
[GPECODE=vb]Sub CopyDuLieu()
With Sheet1
.[A2:J2].Copy Sheet2.[A65000].End(xlUp).Offset(1)
.[A2].Activate
End With
End Sub[/GPECODE]
Trong file, bạn nhập dữ liệu vào hàng 2 rồi nhấn nút Lưu dữ liệu là được.

Lưu ý: Lần sau bạn đặt tiêu đề topic sát với nội dung cần hỏi nhé.

 

[Kiều Mạnh]

a kieu manh ơi e sửa rồi đáy ạ a xem giúp e nhé

Bạn copy Một lần hay nhiều lần .... nối đuôi nhau không ....mình cũng mới viết Bài tham quái quỷ xong nên cũng tập viết kiểu vậy cho bạn nha...có gì cho ý kiếm nha

Public Sub Data(Nguon As Range, Dich As Range)
    Dim arr(), kq(), i&, j&
    arr = Nguon.Value
    ReDim kq(1 To UBound(arr, 1), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            kq(i, j) = arr(i, j)
        Next
    Next
    Dich.Resize(UBound(arr, 1), UBound(arr, 2)) = kq
End Sub

Chạy Sub sau nha

Sub Copy_Sheet()
 Data Sheets(1).Range("A2:J2"), Sheets(2).Range("A2")                 ''<- Copy qua Sheet ko Noi duoi nhau    Data Sheets(1).Range("A2:J2"), (Sheets(2).Range("A65536").End(3)(2)) ''<- Copy qua Sheet can duoi nhau
End Sub

Còn một cách đơn giản nữa

Range("No").value = Range("Kia").value

 

[nguyenquanxray209]

Mình copy nhiều lần vào sheet 1( sheet kết quả ) xong sheet danh sách nối đuôi nhau ý.

 

[Kiều Mạnh]

Mình copy nhiều lần vào sheet 1( sheet kết quả ) xong sheet danh sách nối đuôi nhau ý.

Vậy thì xài code của nghiaphuc hay code của mình cũng ok mà...Code Nghiaphuc bạn dễ hiểu hơn
Nếu xài code mình viết Bạn xóa dòng sau trong Sub Copy_Sheet() đi nha

 Data Sheets(1).Range("A2:J2"), Sheets(2).Range("A2")                 ''<- Copy qua Sheet ko Noi duoi nhau

 

[nghiaphuc]

Mình copy nhiều lần vào sheet 1( sheet kết quả ) xong sheet danh sách nối đuôi nhau ý.

Ở sheet kết quả thì dữ liệu chỉ nằm ở hàng 2 hay nhiều hàng vậy bạn?

 

[nguyenquanxray209]

Bạn dùng code này nhé:
[GPECODE=vb]Sub CopyDuLieu()
With Sheet1
.[A2:J2].Copy Sheet2.[A65000].End(xlUp).Offset(1)
.[A2].Activate
End With
End Sub[/GPECODE]
Trong file, bạn nhập dữ liệu vào hàng 2 rồi nhấn nút Lưu dữ liệu là được.

Lưu ý: Lần sau bạn đặt tiêu đề topic sát với nội dung cần hỏi nhé.

a ơi e copy rồi nhưng không được. mà mã code này là cop vào sheet 2 hay sheet 1 hả a

 

[nguyenquanxray209]

Ở sheet kết quả thì dữ liệu chỉ nằm ở hàng 2 hay nhiều hàng vậy bạn?

ở nhiều hàng a ạ. e muốn nó nối tiếp nhau thành một danh sách ạ.

 

[nghiaphuc]

a ơi e copy rồi nhưng không được. mà mã code này là cop vào sheet 2 hay sheet 1 hả a

Mục đích của code là khi bạn có dữ liệu tại hàng 2 sheet Kết quả, bạn nhấn nút Lưu dữ liệu thì dữ liệu tại hàng 2 này sẽ được copy nối tiếp qua sheet Danh sách. Ở code này bạn có thể nhầm lẫn một chút, vì Sheet2 là tên trong VBA của sheet Kết quả, còn Sheet1 là tên của sheet Danh sách.

 

[nguyenquanxray209]

Mục đích của code là khi bạn có dữ liệu tại hàng 2 sheet Kết quả, bạn nhấn nút Lưu dữ liệu thì dữ liệu tại hàng 2 này sẽ được copy nối tiếp qua sheet Danh sách. Ở code này bạn có thể nhầm lẫn một chút, vì Sheet2 là tên trong VBA của sheet Kết quả, còn Sheet1 là tên của sheet Danh sách.

Mình chưa hiểu lắm bạn có thể nói rõ hơn không. Khi mình copy một thông tin khách hàng mới vào sheet kết quả và ân lưu rồi nhưng dữ liệu không chuyển sang sheet danh sách. mà mình copy cả hàng thứ hai bên sheet kết quả luôn ý. làm vậy có gì sai không nhỉ.

 

[nghiaphuc]

ở nhiều hàng a ạ. e muốn nó nối tiếp nhau thành một danh sách ạ.

Nếu trên sheet Kết quả có nhiều hàng thì bạn thay câu lệnh

.[A2:J2].Copy Sheet2.[A65000].End(xlUp).Offset(1)

thành câu lệnh

Intersect(.[A2:J10000], .[A1].CurrentRegion).Copy Sheet2.[A65000].End(xlUp).Offset(1)

 

[Kiều Mạnh]

Mục đích của code là khi bạn có dữ liệu tại hàng 2 sheet Kết quả, bạn nhấn nút Lưu dữ liệu thì dữ liệu tại hàng 2 này sẽ được copy nối tiếp qua sheet Danh sách. Ở code này bạn có thể nhầm lẫn một chút, vì Sheet2 là tên trong VBA của sheet Kết quả, còn Sheet1 là tên của sheet Danh sách.

Vụ này giải thích nhiều tập đây.... Nghiaphuc xử đi nha

 

[nghiaphuc]

Vụ này giải thích nhiều tập đây.... Nghiaphuc xử đi nha

Ặc ặc... Mình giải thích khó hiểu lắm à ta?! Chỉ là tiếng Việt thôi mà. Hic hic...

 

[nguyenquanxray209]

hehe. tại chưa làm cái vba này bao giờ cả. bạn có thể hướng dẫn mình dùng cái code thế nào không. cái sheet kết quả mình không đánh dữ liệu vào mà copy cả hàng thứ hai đấy từ 1 danh sách khác. khi copy thế thì mã code có cần thay đổi gì không )

 

[nghiaphuc]

hehe. tại chưa làm cái vba này bao giờ cả. bạn có thể hướng dẫn mình dùng cái code thế nào không. cái sheet kết quả mình không đánh dữ liệu vào mà copy cả hàng thứ hai đấy từ 1 danh sách khác. khi copy thế thì mã code có cần thay đổi gì không )

Bạn copy hay làm cách nào khác để có dữ liệu tại sheet Kết quả thì tùy bạn, không quan trọng. Code này chỉ có tác dụng copy dữ liệu đã có trên sheet Kết quả vào sheet Danh sách thôi.
Tôi đang nghi ngờ vấn đề máy bạn chưa cho phép chạy Macro nên nhấn cái nút kia mới không có tác dụng. Bây giờ bạn vào File\Options\Trust center, nhấn nút Trust center settings, tiếp theo chọn Macros và chọn Enable all macros.... --> OK.

 

[nguyenquanxray209]

mình copy đc sang sheet 2 rồi tuy nhiên là khi ấn lưu nó không tự động sang mà mình phải vào view/ chọn macros. sau đó ấn run thì nó mới copy sang sheet 2. có cách nào khắc phục vấn đề này không ạ