Chuyển số lượng (xin giúp đỡ)

[vudao]

Mến chào anh, chị, em trên diễn đàn.
Hôm nay em mạo muộn nhờ anh chị giúp em đoạn code chuyển số lượng từ kho này sang kho khác.
Ví dụ:
Kho 1: 50000 sp
Kho 2: 30000 sp
Kho 3: 50000 sp
KHo 4: 20000 sp
Khi cập nhật trên form số lượng chuyển từ kho (tự chọn) sang kho (tự chọn)
Dữ liệu sẽ được lưu trên sheet data và số lượng tại 2 kho đó thay đổi.

Cái này hiện em đang chia làm 2 bước:
1. trừ kho chuyển đi
2. cộng kho chuyển đến
trong sheet data (thủ công)

Rất mong nhận được sự giúp đỡ của các cao nhân
Em xin chân thành cám ơn

 

[huuthang_bd]

Tuy là bài viết đầu tiên nhưng bạn tham gia diễn đàn gần 12 năm rồi. Bạn đọc lại nội quy diễn đàn về tiêu đề bài viết để làm cho đúng nhé.

 

[vudao]

Dạ cám ơn anh
Lâu rồi mới quay lại diễn đàn, mong ACE thông cảm và bỏ qua cho em
Thanks

 

[SA_DQ]

Vấn đề là bạn thiết kế (các) trang tính như thế nào (?)
Mình nêu thử 2 cách, bạn cho biết giống hay trùng khớp với cách thiết kế nào:

(1)

TEN SF

Kho1

Kho2

Kho3

Kho4

Kho5

Kho6

Sản phẩm 1

10​

13​

Sản phẩm 2

20​

17​

Sản phẩm 3

30​

​ 2​

Sản phẩm 4

40​

45​

Sản phẩm 5

50​

Sản phẩm 6

60​

Sản phẩm 7

90​

Sản phẩm 8

120​

Sản phẩm 9

150​

1​

Sản phẩm 10

123​

Sản phẩm 11

132​

Sản phẩm 12

112​

Sản phẩm 13

132​

(2)

STT	Ngày	Loại	Từ kho	Đến kho	Mã HH	Tên HH	Số lượng	DVT
1	5/13/2020​	N		K01	VFF001	Giấy A4	13​	ram
2	5/15/2020​	C	K01	K05	VFF001	Giấy A4	7​	ram
3	5/17/2020​	X	K05		VFF001	Giấy A4	2​	ram
4	5/19/2020​	N		K02	XD_003	Xi măng	19​	bao
5	5/21/2020​	C	K02	K05	XD_003	Xi măng	9​	bao
6	5/23/2020​	X	K02		XD_003	Xi măng	2​	bao
7	5/25/2020​	N		K03	NL_009	dầu FO	9900​	Kg
8	5/27/2020​	C	K03	K06	NL_009	dầu FO	1800​	Kg
9	5/29/2020​	N		K04	FT_007	Gẽ lau máy	15.5​	Kg
10	5/31/2020​	C	K04	K02	FT_007	Gẽ lau máy	6.5​	Kg
11	6/2/2020​	X	K02		FT_007	Gẽ lau máy	1.5​	Kg

 

[vudao]

Dạ!! Sheet data em như hình dưới ạ

 

[vudao]

Form chuyển kho em thiết kế thế này ạ.

 

[vudao]

Các anh chị ơi, giúp em với !!

 

[iloveit]

bạn nên đính kèm file mẫu lên với dữ liệu giả lập (nếu không muốn đưa dữ liệu thật).

 

[SA_DQ]

Form chuyển kho em thiết kế thế này ạ.

(1) Ở bài #5, cột 'G' bạn sẽ ghi kho đi hay kho đến?
Nếu ghi (A) thì (B) đâu & ngược lại nếu (B) thì (A) ghi vô đâu?

(2) Sẵn hỏi thêm bạn: Hiện tại CQ bạn có mấy kho tất cả?

(3) Giả dụ bạn chỉ 1 kho thì hàng nhập bạn phải ghi dòng nhập & hàng xuất phải ghi hàng xuất
Mình nghĩ nhiều kho cũng tương tự:
Xuất ở 1 kho A cũng cần ghi lại & nhập hàng đó vô kho E ta cũng phải ghi lại dòng hàng đó

 

[vudao]

cám ơn các anh chị!
Em gửi file excel diễn tả cái ý của em. File excel thì e chưa xây dựng
Rất mong nhận được giúp đỡ từ các anh chị.
Xin cám ơn các anh chị

 

[vudao]

Xin báo với các anh chị
Em đã tìm ra được cách làm rồi. Xin đòng topic này lại tại đây.
Cám ơn sự giúp đỡ nhiệt tình của các anh chị

 

[Hoàng Tuấn 868]

Xin báo với các anh chị
Em đã tìm ra được cách làm rồi. Xin đòng topic này lại tại đây.
Cám ơn sự giúp đỡ nhiệt tình của các anh chị

Nếu tìm được rồi thì nên chia sẻ cách bạn làm để bạn nào cần thì tham khảo, không phải đăng bài để hỏi nữa bạn ạ.

 

[VetMini]

Nếu tìm được rồi thì nên chia sẻ cách bạn làm để bạn nào cần thì tham khảo, không phải đăng bài để hỏi nữa bạn ạ.

Ba cái mớ này khỏi cần chia sẻ. Chỉ riêng tìm xem nó làm gì và đúng hay sai đã hết thì giờ rồi. Thà đăng bài khác hỏi chính xác hơn.

 

[vudao]

Nếu tìm được rồi thì nên chia sẻ cách bạn làm để bạn nào cần thì tham khảo, không phải đăng bài để hỏi nữa bạn ạ.

Ba cái mớ này khỏi cần chia sẻ. Chỉ riêng tìm xem nó làm gì và đúng hay sai đã hết thì giờ rồi. Thà đăng bài khác hỏi chính xác hơn.

Dạ thưa các anh,
Khi em đưa ra vấn đề để cùng tham khảo thì không có ai có hứng thú với vấn đề.
Trong khi đó em loay hoay để tìm ra cách để giải quyết vấn đề.
Sau khi tìm được hướng giải quyết thì em báo để các anh chị khỏi phải mất công suy nghĩ những thứ được xem là "vớ vẩn" này
Code thì đơn giản thôi

Private Sub chuyenkho()

Dim DongCuoi As Long

DongCuoi = Sheet1.Range("b" & Rows.Count).End(xlUp).Row

Sheet1.Range("a" & DongCuoi + 1).Value = Me.ngay.Value ‘ngay

Sheet1.Range("b" & DongCuoi + 1).Value = Me.sophieu.Value ‘so phieu

Sheet1.Range("c" & DongCuoi + 1).Value = Me.solot.Value ‘so lot

Sheet1.Range("d" & DongCuoi + 1).Value = Me.noidung.Value ‘noi dung

Sheet1.Range("g" & DongCuoi + 1).Value = Me.kn.Value ‘kho nhan

Sheet1.Range("e" & DongCuoi + 1).Value = Me.soluong.Value ‘so luong

DongCuoi = Sheet1.Range("b" & Rows.Count).End(xlUp).Row

Sheet1.Range("a" & DongCuoi + 1).Value = Me.ngay.Value ‘ngay

Sheet1.Range("b" & DongCuoi + 1).Value = Me.sophieu.Value ‘so phieu

Sheet1.Range("c" & DongCuoi + 1).Value = Me.solot.Value ‘so lot

Sheet1.Range("d" & DongCuoi + 1).Value = Me.noidung.Value ‘noi dung

Sheet1.Range("g" & DongCuoi + 1).Value = Me.kc.Value ‘kho chuyen

Sheet1.Range("e" & DongCuoi + 1).Value = Me.soluong.Value ‘so luong

Unload Me

End Sub

Có thể là chưa tối ưu, nhưng đây là cách em nghĩ ra được.
cám ơn các anh chị bỏ chút thời gian đọc.
PS: Buồn thực sự