Xuất trích dữ liệu để làm phiếu giao hàng

[hoanghuy200515]

Anh Ba Tê cho em thanks anh nhiều nha. Cách của anh rất tốt.
Tại bên em gửi bảng thống kê cho khách hàng, rồi phiếu giao hàng em cũng tách ra từng file nhỏ (phieu giao hang 01, phieu giao hang 02, …) nên em mới chia ra 2 file cho dễ save as từng phần nhỏ. Làm chung 1 file em copy qua từng file excel mới thì phần định dạng và format có sẵn sẽ bị thay đổi (paste special cũng bị lỗi định dạng ban đầu)
Mà trong phiếu giao hàng của em tới 10 dòng lận, giờ em phải sửa code thế nào để nó vừa đủ 10 dòng thế anh. VBA em không biết xài.
Anh có tài liệu nào dành cho người chưa biết gì về VBA hay lập trình muốn tự học VBA cho em xin với.
Thanks !

View more random threads:

• Đánh số phiếu
• Có thể cập nhật dữ liệu tự động kiểu này không ạ?
• Hỏi cách đếm nhưng loại bỏ đếm trùng
• nhờ mọi người giúp tính thời gian lưu trữ trong 3 năm của các loại hóa chất sau,thank
• Tạo thẻ trong excel
• Giúp mình nhập liệu nhanh với
• Đánh số thứ tự nhập liệu một cách liên tục cho các sheet.
• Cần xuất ra một file excel khác.
• các a/c ơi giúp em ct lấy tất cả các cột trong một bảng tính với nhé.thanks
• Hỏi về lệnh Conditional Formatting tự động đổi màu ô theo ngày thực

[thailee]

Anh Ba Tê cho em thanks anh nhiều nha. Cách của anh rất tốt.
Tại bên em gửi bảng thống kê cho khách hàng, rồi phiếu giao hàng em cũng tách ra từng file nhỏ (phieu giao hang 01, phieu giao hang 02, …) nên em mới chia ra 2 file cho dễ save as từng phần nhỏ. Làm chung 1 file em copy qua từng file excel mới thì phần định dạng và format có sẵn sẽ bị thay đổi (paste special cũng bị lỗi định dạng ban đầu)
Mà trong phiếu giao hàng của em tới 10 dòng lận, giờ em phải sửa code thế nào để nó vừa đủ 10 dòng thế anh. VBA em không biết xài.
Anh có tài liệu nào dành cho người chưa biết gì về VBA hay lập trình muốn tự học VBA cho em xin với.
Thanks !

Yêu cầu bên trên là 9 dòng, sao bây giờ là 10? Chuẩn bị câu hỏi cho kỹ trước khi gởi lên chứ.
Thay Sub cũ bằng cái này để lấy dữ liệu 10 dòng.

Private Sub Worksheet_Change(ByVal Target As Range)Dim sArr(), dArr(1 To 29, 1 To 9), I As Long, R As Long, J As Long, K As Long, Num As LongOn Error Resume NextIf Target.Address = "$J$2" Then    Num = Range("J2").Value    R = Num * 10 - 9    sArr = Sheets("Data").Range(Sheets("Data").[C4], Sheets("Data").[C4].End(xlDown)).Resize(, 6).Value    For I = R To R + 9            K = K + 1        dArr(K, 1) = sArr(I, 2)            K = K + 1        dArr(K, 1) = sArr(I, 1)        dArr(K, 5) = sArr(I, 3)        If dArr(K, 5) > 0 Then dArr(K, 6) = "x"        dArr(K, 7) = sArr(I, 4)        dArr(K, 8) = sArr(I, 5)        dArr(K, 9) = sArr(I, 6)            K = K + 1    Next I        [B15:J43].Value = dArrEnd IfEnd Sub  

[vietnam]

Em có 1 file data và 1 file phiếu giao hàng. Mỗi tuần em phải làm thống kê trên file data chung và từ đó xuất trích để làm phiếu giao hàng (9 dòng sẽ trích ra được 1 phiếu xuất giao hàng). Nhưng toàn phải copy từng ô rất lâu. Nhờ mọi người chỉ giúp dùm em làm thế nào hay dùm hàm gì trích lọc cho nó nhanh tí.
Em có fill màu xanh, cam và tím là những ô dữ liệu cần trích loc qua.
Trên phiếu giao hàng em có fill 1 ô màu vàng. Em muốn ở đó mình gõ số 1 hay TPHCM01 thì nó tự nhảy bên dưới luôn. rùi gõ số típ theo thì nó sẽ tự nhập 9 dòng típ theo trong file data.

[ngocphuong]

Em có 1 file data và 1 file phiếu giao hàng. Mỗi tuần em phải làm thống kê trên file data chung và từ đó xuất trích để làm phiếu giao hàng (9 dòng sẽ trích ra được 1 phiếu xuất giao hàng). Nhưng toàn phải copy từng ô rất lâu. Nhờ mọi người chỉ giúp dùm em làm thế nào hay dùm hàm gì trích lọc cho nó nhanh tí.
Em có fill màu xanh, cam và tím là những ô dữ liệu cần trích loc qua.
Trên phiếu giao hàng em có fill 1 ô màu vàng. Em muốn ở đó mình gõ số 1 hay TPHCM01 thì nó tự nhảy bên dưới luôn. rùi gõ số típ theo thì nó sẽ tự nhập 9 dòng típ theo trong file data.

- Mỗi file có thể dùng hàng trăm sheet, sao lại xài 2 file, mỗi file 1 sheet?
- Dùng VBA được không? Thay đổi ô J2 sẽ có dữ liệu của 9 dòng bên Data
Muốn dùng 2 file riêng thì .... chờ thêm người khác.

[anhngoctmy]

Em có 1 file data và 1 file phiếu giao hàng. Mỗi tuần em phải làm thống kê trên file data chung và từ đó xuất trích để làm phiếu giao hàng

Bạn toàn làm chuyện ngược đời:

- Việc theo dõi thì nên làm trên 1 File, với 1 shet chứa dữ liệu và sheet là phiếu giao hàng.

- Sử dụng phiếu giao hàng in ngay khi giao hàng và dùng nó để kiểm đếm và ký nhận, chứ ai để đến 1 tuần mới xuất phiếu và ký nhận, nếu xuất phiếu thiếu hoặc thừa thì giải quyết bằng cách nào, muốn kiểm lại hàng so với phiếu thì làm sao mà kiểm.

- Phiếu giao hàng sau khi xuất phiếu xong thì dùng nó để nhập vào sheet dữ liệu.

- Cần cái gì nữa thì dùng sheet theo dõi xuất ra File mới rồi gửi cho khách hàng, chứ không nên tách ra và lưu từng file nhỏ (không lẽ vài trăm khách hàng bạn lại lưu vài trăm File).