dữ liệu tự cập nhật sang sheet khác của excell

Huyenmysu27 · 5/4/19

cả nhà ơi. giúp e với. hiện e đang kiểm kho với số lượng hàng lớn. e sử dụng cách tick mã code trên từng sản phẩm. làm cách nào để mã code từ cập nhật sang sheet sau để tổng hợp số lượng tồn ạ.
File như ở dưới em đính kèm ạ.
làm cách nào để cột mã vạch ở sheet mã vạch sẽ tự động cập nhật sang cột mã vạch của sheet tồn mà không bị trùng lặp ạ.
giúp e với ạ. cảm ơn cả nhà

LamNA · 5/4/19

Huyenmysu27 đã viết:
cả nhà ơi. giúp e với. hiện e đang kiểm kho với số lượng hàng lớn. e sử dụng cách tick mã code trên từng sản phẩm. làm cách nào để mã code từ cập nhật sang sheet sau để tổng hợp số lượng tồn ạ.
File như ở dưới em đính kèm ạ.
làm cách nào để cột mã vạch ở sheet mã vạch sẽ tự động cập nhật sang cột mã vạch của sheet tồn mà không bị trùng lặp ạ.
giúp e với ạ. cảm ơn cả nhà

Chưa thấy file

Huyenmysu27 · 5/4/19

LamNA đã viết:
Chưa thấy file

Huyenmysu27 · 9/4/19

LamNA đã viết:
Chưa thấy file

GIÚP MÌNH VỚI

LamNA · 9/4/19

Huyenmysu27 đã viết:
GIÚP MÌNH VỚI

Bạn nói chi tiết hơn được không, vì thật sự vẫn chưa hiểu bạn muốn kết quả thế nào nữa.

Huyenmysu27 · 9/4/19

mình muốn khi mà mình lấy mã vạch ở sheet mã vạch thì mã vạch đó sẽ tự nhảy trong sheet tồn. và khi lấy mã vạch trên sheet mã vạch sẽ bị trùng nhau, do 1 mã hàng sẽ có trùng mã vạch, nên bên sheet tồn mã vạch sẽ không bị lặp lại. để mình thống kê được mã hàng đó tồn bao nhiêu đó ạ.
Thanks bạn.

Bài đã được tự động gộp: 9/4/19

LamNA đã viết:
Bạn nói chi tiết hơn được không, vì thật sự vẫn chưa hiểu bạn muốn kết quả thế nào nữa.

mình muốn khi mà mình lấy mã vạch ở sheet mã vạch thì mã vạch đó sẽ tự nhảy trong sheet tồn. và khi lấy mã vạch trên sheet mã vạch sẽ bị trùng nhau, do 1 mã hàng sẽ có trùng mã vạch, nên bên sheet tồn mã vạch sẽ không bị lặp lại. để mình thống kê được mã hàng đó tồn bao nhiêu đó ạ.
Cảm ơn bạn.

LamNA · 9/4/19

Huyenmysu27 đã viết:
mình muốn khi mà mình lấy mã vạch ở sheet mã vạch thì mã vạch đó sẽ tự nhảy trong sheet tồn. và khi lấy mã vạch trên sheet mã vạch sẽ bị trùng nhau, do 1 mã hàng sẽ có trùng mã vạch, nên bên sheet tồn mã vạch sẽ không bị lặp lại. để mình thống kê được mã hàng đó tồn bao nhiêu đó ạ.
Cảm ơn bạn.

Bài đã được tự động gộp: 9/4/19

mình muốn khi mà mình lấy mã vạch ở sheet mã vạch thì mã vạch đó sẽ tự nhảy trong sheet tồn. và khi lấy mã vạch trên sheet mã vạch sẽ bị trùng nhau, do 1 mã hàng sẽ có trùng mã vạch, nên bên sheet tồn mã vạch sẽ không bị lặp lại. để mình thống kê được mã hàng đó tồn bao nhiêu đó ạ.
Cảm ơn bạn.

có nghĩa là muốn lọc trùng mã sheet "Ma vach" và tính tổng số lượng ở sheet "Tốn" đúng không

Huyenmysu27 · 9/4/19

LamNA đã viết:
có nghĩa là muốn lọc trùng mã sheet "Ma vach" và tính tổng số lượng ở sheet "Tốn" đúng không

dạ đúng rồi. với mã vạch khi xuất hiện bên sheet mã vạch sẽ tự động cập nhật bên sheet tồn luôn đó bạn.
cảm ơn bạn\

LamNA · 9/4/19

Huyenmysu27 đã viết:
dạ đúng rồi. với mã vạch khi xuất hiện bên sheet mã vạch sẽ tự động cập nhật bên sheet tồn luôn đó bạn.
cảm ơn bạn\

Có 2 cách
1. Pivot
2. VBA

Huyenmysu27 · 9/4/19

LamNA đã viết:
Có 2 cách
1. Pivot
2. VBA

LÀM CÁCH NÀO ĐỂ CỘT SỐ LƯỢNG TÍNH TỔNG VẬY BẠN

LamNA · 9/4/19

Huyenmysu27 đã viết:
LÀM CÁCH NÀO ĐỂ CỘT SỐ LƯỢNG TÍNH TỔNG VẬY BẠN

Có cái nút tính tổng bạn bấm nó xem

Huyenmysu27 · 9/4/19

LamNA đã viết:
Có cái nút tính tổng bạn bấm nó xem
View attachment 214915

BẠN CÓ THỂ CHỈ MINH CÁCH LÀM LUÔN KHÔNG. ĐỂ NHỮNG BẢNG SAU MÌNH BIẾT CÁCH LÀM Á.
CẢM ƠN BẠN

LamNA · 9/4/19

Huyenmysu27 đã viết:
BẠN CÓ THỂ CHỈ MINH CÁCH LÀM LUÔN KHÔNG. ĐỂ NHỮNG BẢNG SAU MÌNH BIẾT CÁCH LÀM Á.
CẢM ƠN BẠN

Bạn nên gửi file thật mình làm 1 lần rồi áp dụng file đó về sau luôn, chứ giờ mình cũng không biết chỉ bạn như thế nào để bạn hiểu.
Bạn bấm ALT + F11 sẽ thấy code VBA

Mã:

Sub tinh_tong()
Dim sarr, rarr()
Dim dic As Object
Dim Cot_DL As Long, Cot_KQ As Long, lr As Long, Tong As Long
Set dic = CreateObject("scripting.dictionary")
With Sheets("Ma Vach")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    sarr = .Range("A3:E" & lr).Value
    ReDim rarr(1 To UBound(sarr), 1 To 5)
    For Cot_DL = 1 To UBound(sarr)
        
            If Not dic.exists(sarr(Cot_DL, 1)) Then
                Cot_KQ = Cot_KQ + 1
                dic.Add sarr(Cot_DL, 1), Cot_KQ
                rarr(Cot_KQ, 1) = sarr(Cot_DL, 1)
                rarr(Cot_KQ, 2) = sarr(Cot_DL, 2)
                rarr(Cot_KQ, 3) = sarr(Cot_DL, 5)
                
            Else
                Tong = dic.Item(sarr(Cot_DL, 1))
                rarr(Tong, 3) = rarr(Tong, 3) + sarr(Cot_DL, 5)
            
            End If
    Next Cot_DL
End With
With Sheets("Ton")
    .Range("A3:E" & lr).ClearContents
    .Range("A3").Resize(Cot_KQ, 3) = rarr
End With
End Sub

Huyenmysu27 · 9/4/19

LamNA đã viết:

Bạn nên gửi file thật mình làm 1 lần rồi áp dụng file đó về sau luôn, chứ giờ mình cũng không biết chỉ bạn như thế nào để bạn hiểu.
Bạn bấm ALT + F11 sẽ thấy code VBA

Mã:

Sub tinh_tong()
Dim sarr, rarr()
Dim dic As Object
Dim Cot_DL As Long, Cot_KQ As Long, lr As Long, Tong As Long
Set dic = CreateObject("scripting.dictionary")
With Sheets("Ma Vach")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    sarr = .Range("A3:E" & lr).Value
    ReDim rarr(1 To UBound(sarr), 1 To 5)
    For Cot_DL = 1 To UBound(sarr)
       
            If Not dic.exists(sarr(Cot_DL, 1)) Then
                Cot_KQ = Cot_KQ + 1
                dic.Add sarr(Cot_DL, 1), Cot_KQ
                rarr(Cot_KQ, 1) = sarr(Cot_DL, 1)
                rarr(Cot_KQ, 2) = sarr(Cot_DL, 2)
                rarr(Cot_KQ, 3) = sarr(Cot_DL, 5)
               
            Else
                Tong = dic.Item(sarr(Cot_DL, 1))
                rarr(Tong, 3) = rarr(Tong, 3) + sarr(Cot_DL, 5)
           
            End If
    Next Cot_DL
End With
With Sheets("Ton")
    .Range("A3:E" & lr).ClearContents
    .Range("A3").Resize(Cot_KQ, 3) = rarr
End With
End Sub

nhưng hiện file của mình nó lớn nên tải lên đây ko được đó bạn.
thân!

be_09 · 9/4/19

Huyenmysu27 đã viết:
BẠN CÓ THỂ CHỈ MINH CÁCH LÀM LUÔN KHÔNG. ĐỂ NHỮNG BẢNG SAU MÌNH BIẾT CÁCH LÀM Á.
CẢM ƠN BẠN

Huyenmysu27 · 10/4/19

Huyenmysu27 đã viết:
nhưng hiện file của mình nó lớn nên tải lên đây ko được đó bạn.
thân!

Bạn có thể viếu giùm mình mã code của file này được ko. và có thể chỉ giúp mình cách sao chép mã code sang các bảng tương tự được không.
cảm ơn bạn nhiều!

LamNA · 10/4/19

Huyenmysu27 đã viết:
Bạn có thể viếu giùm mình mã code của file này được ko. và có thể chỉ giúp mình cách sao chép mã code sang các bảng tương tự được không.
cảm ơn bạn nhiều!

Mình gửi khi chọn sheet tồn thì tự tính tổng

Huyenmysu27 · 10/4/19

LamNA đã viết:
Mình gửi khi chọn sheet tồn thì tự tính tổng

bạn ơi. sao khi mình tính tổng số lượng hàng ở sheet mã vạch và sheet tồn nó không bằng nhau. với nếu như số lượng hàng của mình mở rộng trên 10.000 sản phẩm thì bảng tính có đúng không ạ.
cảm ơn bạn

LamNA · 10/4/19

Huyenmysu27 đã viết:
bạn ơi. sao khi mình tính tổng số lượng hàng ở sheet mã vạch và sheet tồn nó không bằng nhau. với nếu như số lượng hàng của mình mở rộng trên 10.000 sản phẩm thì bảng tính có đúng không ạ.
cảm ơn bạn

Bạn thử lại nhé

LamNA · 10/4/19

Huyenmysu27 đã viết:
bạn ơi. sao khi mình tính tổng số lượng hàng ở sheet mã vạch và sheet tồn nó không bằng nhau. với nếu như số lượng hàng của mình mở rộng trên 10.000 sản phẩm thì bảng tính có đúng không ạ.
cảm ơn bạn

Mình bổ sung phần vã mạch bỏ hàm Vlookup thay bằng VBA cho nó nhẹ lại file

dữ liệu tự cập nhật sang sheet khác của excell

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên mới

File đính kèm

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên tích cực

File đính kèm

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên mới

Biên Hòa, Đồng Nai

Thành viên mới

File đính kèm

Thành viên tích cực

File đính kèm

Thành viên mới

Thành viên tích cực

File đính kèm

Thành viên tích cực

File đính kèm

Facebook

Group