Copy dữ liệu qua Sheet khác bằng VBA

[babygirl_8990]

Bạn thử cho nó "thế này nhỉ" xem sao.

 Public Sub GPE()
Dim  ShName As String, Rws As Long, Col As Long
With Sheets("DATA")
    ShName = .Range("C2").Value
    Rws = .Range("A1000000").End(xlUp).Row - 3
    Col = .Range("XFD4").End(xlToLeft).Column
    Sheets(ShName).Range("A4").Resize(Rws, Col).Value = .Range("A4").Resize(Rws, Col).Value
End With
End Sub

Anh bate giúp e viết code sao cho copy cột có đánh dấu x nhé. sheet DON HANG cho 5000 dòng nhé anh. Cảm ơn anh nhiều

 

[Ba Tê]

Anh bate giúp e viết code sao cho copy cột có đánh dấu x nhé. sheet DON HANG cho 5000 dòng nhé anh. Cảm ơn anh nhiều

Bài này thì có liên quan gì với bài hỏi trước?
Dữ liệu đơn giản như vậy thì xài tạm code này đi:

Public Sub sGpe()
Sheets("GOP").Range("E6:H6").Resize(5000).Value = _
Sheets("DON HANG").Range("E8:H8").Resize(5000).Value
End Sub

Chú ý: Nick tôi không phải "bate".

 

[babygirl_8990]

Public Sub sGpe() Sheets("GOP").Range("E6:H6").Resize(5000).Value = _ Sheets("DON HANG").Range("E8:H8").Resize(5000).Value End Sub

di chuyển dấu x dữ liệu sẽ copy theo chữ x á anh pate (^^)

 

[Ba Tê]

di chuyển dấu x dữ liệu sẽ copy theo chữ x á anh pate (^^)

Nhờ có chút mà đến giờ vẫn chưa nói rõ, x nào copy vào cột nào, tất cả có thể có bao nhiêu x.
Chắc tôi phải "chạy" kiểu hỏi "cà giựt, cà giựt" này rồi.

 

[babygirl_8990]

Nhờ có chút mà đến giờ vẫn chưa nói rõ, x nào copy vào cột nào, tất cả có thể có bao nhiêu x.
Chắc tôi phải "chạy" kiểu hỏi "cà giựt, cà giựt" này rồi.

LẦn đầu mò mẫm, lạ lẫm nên anh thông cảm, ý đồ của em muốn là vì em có rất nhiều đơn hàng H-001, H-002, H-003 v.v... nên muốn tạo nút lệnh chọn vào đơn hàng nào thì sẽ copy vào sheet tạo sẵn để xem dc khối lượng và số thùng......cụ thể copy 1 đơn hàng có 4 cột, kích thước, tồn đầu, đơn hàng, và còn lại . Chọn vào đơn hàng nào thì sẽ đánh dấu x vào và bấm nút lệnh thôi anh ạ. Anh "Ba Tê" giúp em nhé ^^

 

[Ba Tê]

LẦn đầu mò mẫm, lạ lẫm nên anh thông cảm, ý đồ của em muốn là vì em có rất nhiều đơn hàng H-001, H-002, H-003 v.v... nên muốn tạo nút lệnh chọn vào đơn hàng nào thì sẽ copy vào sheet tạo sẵn để xem dc khối lượng và số thùng......cụ thể copy 1 đơn hàng có 4 cột, kích thước, tồn đầu, đơn hàng, và còn lại . Chọn vào đơn hàng nào thì sẽ đánh dấu x vào và bấm nút lệnh thôi anh ạ. Anh "Ba Tê" giúp em nhé ^^

Nếu vậy thì tạo ô (F1), chọn đơn hàng nào thì lấy dữ liệu theo đơn hàng đó, đâu cần phải đánh dấu (7 cột luôn, các cột khác công thức lu bu không hiểu)

 

[babygirl_8990]

Nếu vậy thì tạo ô (F1), chọn đơn hàng nào thì lấy dữ liệu theo đơn hàng đó, đâu cần phải đánh dấu (7 cột luôn, các cột khác công thức lu bu không hiểu)

Anh BA tài quá, cảm ơn anh nhiều ạ ^^

 

[Ba Tê]

Anh BA tài quá, cảm ơn anh nhiều ạ ^^

Híc!
Hết bate, đến pate, rồi bây giờ là BA.
Muốn viết sao thì viết, thiệt là chẳng hiểu muốn gì đây.

 

[babygirl_8990]

Híc!
Hết bate, đến pate, rồi bây giờ là BA.
Muốn viết sao thì viết, thiệt là chẳng hiểu muốn gì đây.

Muốn tạo ấn tượng với anh BA, để lần sau anh nhớ mà giúp đỡ em nữa ạ!

 

[VetMini]

Híc!
Hết bate, đến pate, rồi bây giờ là BA.
Muốn viết sao thì viết, thiệt là chẳng hiểu muốn gì đây.

Mới đầu là ba te, tức là xí xọn. (tiếng Việt)
Kế đó là pâté, tức là món ăn xịn của Tây. (tiếng Pháp)
Bây giờ là BA, tức là Bachelor of Arts / cử nhân (tiếng Anh)

 

[Ba Tê]

Muốn tạo ấn tượng với anh BA, để lần sau anh nhớ mà giúp đỡ em nữa ạ!

Híc! Con tui năm nay gần 40, cháu ngoại 2 đứa, "tạo ấn tượng" chắc không cần đâu.
Nên tạo ấn tượng bằng câu văn, hình thức bài viết sao cho mọi người không cảm thấy "mắc ghét" vì "nạc mỡ lẫn lộn"(Hi, Dear, Thank, ACE, e, a, ah,... trong tiếng Việt)
Có mấy ký tự mà "làm biếng gõ", sao muốn người khác viết code hàng ngàn ký tự cho mình. (vì viết tắt là VBA bắt lỗi liền, may là anh Bill ra Msgbox rất lịch sự).