Xin được hướng dẫn về code NHAP DU LIEU (1 người xem)

[loitaiai]

Đây là code nhập dữ liệu theo hàng dọc và tự động nhập theo hàng ngang
Sub NhapLieu()
Sheets("Form").Select
Ten = Range("B3").Value
DiaChi = Range("B4").Value
Phone = Range("B5").Value
Sheets("Bang Tong Hop").Select
n = Range("F1").Value
Range("B1").Select
ActiveCell.Offset(n + 3, 0).Value = Ten
ActiveCell.Offset(n + 3, 1).Value = DiaChi
ActiveCell.Offset(n + 3, 2).Value = Phone
Sheets("Form").Select
Range("B3:B5").Select
Selection.ClearContents
Range("B3").Select
End Sub

Bây giờ mình muốn thay đổi cách nhập dữ liệu hàng ngang sheet1 B3:B10 và tự động điền dữ liệu vào sheet2 từ C4:C11.
Đang tìm hiểu xin được các bạn hướng dẫn. Thank

 

[phucbugis]

Đây là code nhập dữ liệu theo hàng dọc và tự động nhập theo hàng ngang
...

chào bạn,
đoạn code trên làm gì có sheet1, sheet2 (--> nó là sheet mới hả bạn).
Tốt hơn bạn nên up thêm file để khi sửa code + test lại nữa.

 

[loitaiai]

To : phucbigis

Thank ban. Bạn xem file ví dụ:
Trong sheet NHAP DU LIEU có phần DANH MUC gồm có HANG NHAP , HANG TRA , CK .Mình muốn khi nhập dữ liệu và nhấn vào nút NHAP thì dữ liệu được nhập vào mục thích hợp bên sheet TONG HOP.Và sau khi nhập dữ liệu thì sẽ tự động xoá dữ liệu ở sheet NHAP DU LIEU.

P/s : mình ko biết về code chỉ mày mò trên mạng mà thôi. mong bạn thông cảm.

 

[phucbugis]

To : phucbigis

Thank ban. Bạn xem file ví dụ:
Trong sheet NHAP DU LIEU có phần DANH MUC gồm có HANG NHAP , HANG TRA , CK .Mình muốn khi nhập dữ liệu và nhấn vào nút NHAP thì dữ liệu được nhập vào mục thích hợp bên sheet TONG HOP.Và sau khi nhập dữ liệu thì sẽ tự động xoá dữ liệu ở sheet NHAP DU LIEU.

P/s : mình ko biết về code chỉ mày mò trên mạng mà thôi. mong bạn thông cảm.

Mình đã cài cho bạn code phần Hàng nhập, Hàng trả và CK thì tương tự như vậy ---> bạn tiếp tục viết nhé.

Bạn mở file và kiểm tra, có gì thắc mắc thì tính tiếp.

Sub [B]NhapLieu[/B]()
danhmuc = Range("L6").Value
    Select Case danhmuc
        Case "HANG NHAP"
            Call hangnhap
        Case "HANG TRA"
            
        Case Else
        
    End Select   
    MsgBox ("NhapLieu xong"), , "Thong bao'"
End Sub


Sub [B]hangnhap[/B]()
Dim Arr As Range: Set Arr = Sheets("NHAP DU LIEU").Range([F1048576].End(xlUp), [F11])
x = Application.WorksheetFunction.CountA(Arr)
iRow = -x + 1
ngay = Range("F6").Value
tenKH = Range("I6").Value

    With Sheets("TONG HOP")
        .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(x) = Arr.Offset(, -1).Value
        With .Cells(Rows.Count, "A").End(xlUp) 'dua vao cot A se~ chinh xac hon
            .Offset(iRow, 1).Resize(x) = ngay
            .Offset(iRow, 2).Resize(x) = tenKH
            .Offset(iRow, 3).Resize(x) = Arr.Value              'ma~ hang`
            .Offset(iRow, 4).Resize(x) = Arr.Offset(, 1).Value  'so luong
            .Offset(iRow, 5).Resize(x) = Arr.Offset(, 2).Value  'DG
            .Offset(iRow, 7).Resize(x) = Arr.Offset(, 4).Value  'gia ban
            .Offset(iRow, 9).Resize(x) = Arr.Offset(, 6).Value  'ghi chu
        End With
    End With
    
End Sub

Link: https://www.mediafire.com/?d6c6y4ze5o0b7o1

 

[loitaiai]

To : phucbigis

Thank bạn rất nhiều , bạn giúp minh làm DANH MUC CK lun với mình chỉnh nhiều lần rồi nhưng vẫn ko đc.
-Bạn thêm giúp mình đoạn code tự động xóa dữ liệu sau khi nhập ở sheet NHAP DU LIEU và tự động copy thêm dòng o sheet TONG HOP.

Bạn xem lại file mình làm mục HANG TRA như vậy có đúng ko mà sao lúc thì báo lỗi dòng Dim Arr As Range: Set Arr = Sheets("NHAP DU LIEU").Range([F1048576].End(xlUp), [F11]) , lúc thì ko vậy.

 

[phucbugis]

To : phucbigis

Thank bạn rất nhiều , bạn giúp minh làm DANH MUC CK lun với mình chỉnh nhiều lần rồi nhưng vẫn ko đc.
-Bạn thêm giúp mình đoạn code tự động xóa dữ liệu sau khi nhập ở sheet NHAP DU LIEU và tự động copy thêm dòng o sheet TONG HOP.
.

mình đã:
- chỉnh Sub CK()
- thêm code xóa dữ liệu vào Sub NhapLieu()
- thêm code copy công thức + tạo border cho Sub hangnhap() (2 sub kia tương tự thế, bạn viết tiếp nhé)

Bạn xem lại file mình làm mục HANG TRA như vậy có đúng ko mà sao lúc thì báo lỗi dòng Dim Arr As Range: Set Arr = Sheets("NHAP DU LIEU").Range([F1048576].End(xlUp), [F11]) , lúc thì ko vậy.

mình kiểm tra lại nhiều lần, vẫn ko thấy lỗi như bạn nói.

'- - - - -
đã cập nhật file hang nhap, hang tra (2) ---> (3)

Link: https://www.mediafire.com/?4akocrb1loho7qb

 

[loitaiai]

To : phucbigis
thank bạn. Bạn kiểm tra lại giúp mình :
- sub CK bị lỗi : nhập lần 1 thì ok , nhưng qua lần 2 , 3 thì ko hiện lên số tiền
-tại ô L15 có chữ g5 , mình xóa nó đi thì khi nhập dữ liệu CK bi báo lỗi và ở sheet NHAP DU LIEU bị xóa mất MA HANG , SL , DG.
MÌnh chưa chỉnh sữa gì cả . vừa tải vể đã bị lỗi như vây rồi.Bạn xem lại giúp mình nhé.

 

[phucbugis]

To : phucbigis
thank bạn. Bạn kiểm tra lại giúp mình :
- sub CK bị lỗi : nhập lần 1 thì ok , nhưng qua lần 2 , 3 thì ko hiện lên số tiền
-tại ô L15 có chữ g5 , mình xóa nó đi thì khi nhập dữ liệu CK bi báo lỗi và ở sheet NHAP DU LIEU bị xóa mất MA HANG , SL , DG.
MÌnh chưa chỉnh sữa gì cả . vừa tải vể đã bị lỗi như vây rồi.Bạn xem lại giúp mình nhé.

mình làm y như bạn nói mà có thấy lỗi gì đâu nhỉ.

 

[loitaiai]

To : phucbigis
lan 1
lan 2

lân 3
Bạn xem kỹ mấy hình mình chụp lại xem.nó bị lỗi gì thế .

 

[phucbugis]

To : phucbigis
lan 1View attachment 116680View attachment 116681
lan 2View attachment 116683View attachment 116684
Bạn xem kỹ mấy hình mình chụp lại xem.nó bị lỗi gì thế .

mình đọc lại #7 + với bài này thì mới hiểu nó bị lỗi ở đâu rồi , bạn down lại file hang nhap, hang tra (3) ở #6 nhé.
'- - -
cho mình hỏi tí,
mỗi lần cập nhật CK thì cột CK chỉ có 1 giá trị duy nhất hay là nhiều hơn vậy bạn.

 

[loitaiai]

Thank bạn . Như thế này thì cũng tạm ổn rồi.
-Mục CK thì mỗi lần chuyển khoản mình chuyển cho nhiều người và mỗi người 1 số tiền khác nhau .
-bạn viết lun phần copy dòng của mục HANG TRA và CK giúp mình lun nha , mình xem hoài mà ko hiểu được câu lệnh.
-tại ô I9 của sheet NHAP DU LIEU ( là TCONG TT từng ngày của mỗi KH ) cập nhật vào sheet TONG HOP ô L9 va K9 ( của HANG NHAP ) và U9 và V9 ( HANG TRA ) phần này nếu code làm ko được thì bạn có công thức tính tổng theo ngày của mỗi KH mà ko dùng cột phụ đc ko .

​cảm ơn bạn rất nhiều.

 

[phucbugis]

Thank bạn . Như thế này thì cũng tạm ổn rồi.
-Mục CK thì mỗi lần chuyển khoản mình chuyển cho nhiều người và mỗi người 1 số tiền khác nhau .
-bạn viết lun phần copy dòng của mục HANG TRA và CK giúp mình lun nha , mình xem hoài mà ko hiểu được câu lệnh.
-tại ô I9 của sheet NHAP DU LIEU ( là TCONG TT từng ngày của mỗi KH ) cập nhật vào sheet TONG HOP ô L9 va K9 ( của HANG NHAP ) và U9 và V9 ( HANG TRA ) phần này nếu code làm ko được thì bạn có công thức tính tổng theo ngày của mỗi KH mà ko dùng cột phụ đc ko .

​cảm ơn bạn rất nhiều.

cái này có thể gắn trực tiếp công thức khi update số liệu.

cho mình hỏi,
- có trường hợp nào 1 khách hàng trong cùng 1 ngày có nhiều hơn 1 đơn hàng NHẬP, hàng TRẢ ko?
- tại sao bạn ko tách sheet TONG HOP làm 3 sheet con để dễ theo dõi ---> để chung vậy có nhược điểm:
1. nếu update nhầm vị trí hoặc lỡ tay xoá nhầm phần HANG NHAP --> HANG TRA, CK sẽ bị ảnh hưởng.
2. khi lọc HANG NHAP thì sẽ ko thấy được HANG TRA, CK ---> khó đối chiếu (vì update số liệu 3 nhóm này bị lệch row)

link: https://www.mediafire.com/?j39xaphpwkxbanz

 

[loitaiai]

-Lúc trước mình cũng làm như suy nghĩ của bạn , nhưng khi đối chiếu với sổ sách viết tay lại gặp khó khăn là phải mở từng sheet HANG NHAP , HANG TRA , CK . Đây là cách làm sổ sách của dân buôn bán ngoài chợ ( kiểu giấy trắng mực đen ). Khác với cách nhập hàng kiểu công ty.
-file này mình dùng để thay thế sổ sách viết tay , ở đây mình ko cần lọc theo mã hàng vì mặt hàng thay đổi liên tục nên rất ít mặt hàng trùng nhau.Vì vậy ko cần thiêt phải lọc.
-trong file mình có tạo sheet CHI TIET dùng để lọc theo tên KH.giống như sheet KO XOA trong file 2013 đính kèm bên dưới
Bạn xem hình sổ sách viết tay HANG NHAP và HANG TRA hàng ngày và đối chiếu với file excel mình đang làm.
Còn file đính kèm mình làm 2013 http://www.mediafire.com/view/zfmxbeoz9ohlomh/hang_nhap_2013.xlsm nhưng lại có nhiều khuyêt điểm nên mình ko sử dụng đc.
Bạn xem xong rồi góp ý cho mình với nha .Thank bạn rất nhiều.

 

[loitaiai]

To : phucbigis
cảm ơn bạn. Sáng nay mình đã xử lý đc lỗi trong công thức rồi,do mình xoá dữ liệu nhưng ko xoá cột STT. Trong 1 ngày mình có thể NHAP và TRA hàng nhiều hơn 1 đơn hàng cùng 1 KH , nhưng mình chỉ quan trọng về TONG SO TIEN của đơn hàng đó thôi . Trong bài #13 mình có chụp hình quyển sổ viết tay nhập hàng để bạn xem và hiểu hơn về công việc của mình.(Mong nhận đc sự góp ý của bạn )
Trong sheet CHI TIET mình lấy dữ liệu từ sheet TONG HOP sang nhưng bị như trong hình cột I và cột P. Tại cột T mình đặt công thức T9=T8+J9-Q9-S9 .Nếu 1 trong 4 cột trên có 1 cột ko co giá trị nào or =0 thì bị lỗi Value..Bạn xem giúp các hàm mình sử dụng có bị lỗi gì ko và sửa giúp mình nha.Thank bạn.
file đính kèm https://www.mediafire.com/?7tlhtv0bpr430rr

 

[phucbugis]

To : phucbigis
cảm ơn bạn. Sáng nay mình đã xử lý đc lỗi trong công thức rồi,do mình xoá dữ liệu nhưng ko xoá cột STT. Trong 1 ngày mình có thể NHAP và TRA hàng nhiều hơn 1 đơn hàng cùng 1 KH , nhưng mình chỉ quan trọng về TONG SO TIEN của đơn hàng đó thôi . Trong bài #13 mình có chụp hình quyển sổ viết tay nhập hàng để bạn xem và hiểu hơn về công việc của mình.(Mong nhận đc sự góp ý của bạn )

Trong sheet CHI TIET mình lấy dữ liệu từ sheet TONG HOP sang nhưng bị như trong hình cột I và cột P. Tại cột T mình đặt công thức T9=T8+J9-Q9-S9 .Nếu 1 trong 4 cột trên có 1 cột ko co giá trị nào or =0 thì bị lỗi Value.

.Bạn xem giúp các hàm mình sử dụng có bị lỗi gì ko và sửa giúp mình nha.Thank bạn.
file đính kèm https://www.mediafire.com/?7tlhtv0bpr430rr

mình đã xem hỉnh quyển sổ viết tay đó ---> ko hiểu
'- - - -

bạn thử các công thức sau cho sheet CHI TIET

I9=IF('TONG HOP'!$C9=$C$2;IF('TONG HOP'!K9=0;"";'TONG HOP'!K9);"")

T9=T8+IF(J9="";0;J9)-IF(Q9="";0;Q9)-IF(S9="";0;S9)

(vì 1 trong các giá trị đó bạn đã cài đk là "")

 

[loitaiai]

To : phucbigis
-bạn cho mình hỏi có cách nào để lấy dữ liệu khi sheet bị lock ko vậy?
-bạn xoá giúp mình những vùng trống và câu lệnh tự động copy trong sheet CHI TIET với nha .Mình đã dùng Advance filter rồi nhưng chỉ xoá lun 1 dòng thì được còn xoá vùng thì ko đc.
-ban hương dẫn mình cài add in calendar trong excel 2013 với nha.Mình làm theo hướng dẫn trong forum nhưng ko thấy mục calendar o đâu.
Thank bạn nhiều.

 

[phucbugis]

To : phucbigis
-bạn cho mình hỏi có cách nào để lấy dữ liệu khi sheet bị lock ko vậy?

được chứ, bạn đưa ra 1 ví dụ thử xem

-bạn xoá giúp mình những vùng trống và câu lệnh tự động copy trong sheet CHI TIET với nha .Mình đã dùng Advance filter rồi nhưng chỉ xoá lun 1 dòng thì được còn xoá vùng thì ko đc.

ý của bạn là xóa các vùng trắng và dữ liệu được sắp xếp lại gần nhau đó hả (xóa cũng được nhưng mình thấy công thức ở cột T đang tính toán theo hàng ngang -> sẽ bị ảnh hưởng)

-ban hương dẫn mình cài add in calendar trong excel 2013 với nha.Mình làm theo hướng dẫn trong forum nhưng ko thấy mục calendar o đâu.

cái Add in này mình chưa dùng bao h, nên ko hướng dẫn cho bạn được (mình có nhìn sơ qua 1 vài cái nhưng thấy toàn bằng Tiếng Anh -> ko thích )

'- - -
bạn mở file 5_1 test phần lọc KH từ sheet TONG HOP qua sheet CHI TIET thử xem có ổn ko.

link: https://www.mediafire.com/?p1qec3lc3teaf7m

 

[loitaiai]

To : phucbigis
- mình muôn lock sheet TONG HOP ,nhưng vẫn nhập được dữ liệu từ sheet NHAP và lấy sang sheet CHi TIET
-trong file QUAN LY BIA này có code vba xoá vùng trống và sắp xếp dữ liệu gần nhau , bạn sửa lại giúip mình vào sheet CHI TIET của mình với nha.
-phần lọc trong file 5_1 này ko đc bạn ơi.
thank nhiều

 

[phucbugis]

To : phucbigis - mình muôn lock sheet TONG HOP ,nhưng vẫn nhập được dữ liệu từ sheet NHAP và lấy sang sheet CHi TIET.

mình đã thêm phần Lock và Unlock khi update số liệu từ sheet NHAP DU LIEU sang sheet TONG HOP.

-trong file QUAN LY BIA này có code vba xoá vùng trống và sắp xếp dữ liệu gần nhau , bạn sửa lại giúip mình vào sheet CHI TIET của mình với nha.

mình đã xem code đó ---> nó ko phải là code như bạn nói đến.

việc xóa vùng trống + sắp xếp dữ liệu, bạn có thể dùng chức năng sort có sẵn của Excel.
Hiện tại sheet CHI TIET bạn đang bố trí cột ghi chú Nhập và Trả nằm tách ra bên ngoài -> ko thể sort được cùng với Hàng Trả hoặc Hàng nhập.

Khi sort thì bạn sort từng phần riêng biệt (Hàng nhập hoặc hàng trả hoặc CK), cho dù sắp xếp được như bạn nói thì mình ko thể hình dung ra công thức cột T bạn sẽ cài như thế nào cả

Link: https://www.mediafire.com/?i98qsvuhswyl9ma

 

[loitaiai]

To : phucbigis
-Bạn viết giúp mình code xoá vùng trống và tự động copy dòng lun giống như sheet CHI TIET trong file QUAN LY BIA vậy.Còn cột T mình vẫn sử dụng công thức =T8+IF(J9="";0;J9)-IF(Q9="";0;Q9)-IF(S9="";0;S9) này.Phần TONG NHAP và TONG TRA vẫn giữ nguyen công thức như vậy .
-lock và unlock dùm mình sheet CHI TIET ( bay gio mình lấy file số 6 này làm chuẩn rồi).
-Bạn tạo lại nút xoá dữ liệu trong sheet NHAP DU LIEU dùm lun nha.
Thank bạn

 

[phucbugis]

To : phucbigis
-Bạn viết giúp mình code xoá vùng trống và tự động copy dòng lun giống như sheet CHI TIET trong file QUAN LY BIA vậy.Còn cột T mình vẫn sử dụng công thức =T8+IF(J9="";0;J9)-IF(Q9="";0;Q9)-IF(S9="";0;S9) này.Phần TONG NHAP và TONG TRA vẫn giữ nguyen công thức như vậy .
-lock và unlock dùm mình sheet CHI TIET ( bay gio mình lấy file số 6 này làm chuẩn rồi).
-Bạn tạo lại nút xoá dữ liệu trong sheet NHAP DU LIEU dùm lun nha.
Thank bạn

bạn xem hang nhap, hang tra 7, mình đã cài xong tất cả các yêu cầu trên
(nút xoá dữ liệu trong sheet NHAP DU LIEU nó có sẵn ở file cũ rồi)

'- - -
bạn vào sheet CHI TIET chọn tên khách hàng tại C2 --> đợi vài s để xem kết quả.

Link: https://www.mediafire.com/?4jqsw1gtehjdm3d

 

[loitaiai]

thank bạn rất nhiều, để mình chạy thử rồi báo lại bạn sau.

 

[loitaiai]

To : phucbigis
Bạn chinh lại giúp mình chut nữa nha
-Mặc định viết hoa trong sheet NHAP DU LIEU
-Tự động giãn cột trong các sheet
-Sau khi xoá dữ liệu thì mục TEN KH và DANH MUC trả về ô trống (để tránh nhầm lẫn khi nhập tiếp dữ liệu )
-Bạn đổi nút XOA DU LIEU thành 1 nút Button và cố định để ko di chuyển.
Thank bạn nhiều.
p/s :
có cách nào thêm or bớt tên KH trong Defined Name , or xoá Defined name ko vậy bạn?[h=1][/h]

 

[phucbugis]

To : phucbigis
Bạn chinh lại giúp mình chut nữa nha
-Mặc định viết hoa trong sheet NHAP DU LIEU
-Tự động giãn cột trong các sheet
-Sau khi xoá dữ liệu thì mục TEN KH và DANH MUC trả về ô trống (để tránh nhầm lẫn khi nhập tiếp dữ liệu )
-Bạn đổi nút XOA DU LIEU thành 1 nút Button và cố định để ko di chuyển.
Thank bạn nhiều.
p/s :
có cách nào thêm or bớt tên KH trong Defined Name , or xoá Defined name ko vậy bạn?

mình đã xử lý được hầu hết các yêu cầu trên,

- để điều chỉnh tất cả các cột ở sheet nào đó bạn bấm tổ hợp phím Alt+F8, run Macro có tên tudong_dieuchinhcot (mình chỉ cài đối với 2 sheet TONG HOP, CHI TIET)
- riêng Mặc định viết hoa trong sheet NHAP DU LIEU thì bạn phải nói rõ là cần làm ở vị trí nào?

Link: https://www.mediafire.com/?reuddja5t998h6x

 

[loitaiai]

To : phucbigis
-Mặc định viết hoa trong sheet NHAP DU LIEU : cột DSKH , cột MA HANG và GHI CHU . 2 cột MA HANG và cột GHI CHU gồm có chữ và số.
Bạn fix lại 1 tí :
-khi nhập HANG TRA , HANG NHAP thì phải nhập đủ MA HANG , SL , DG .Hiện tại code của bạn chỉ mới yêu cầu nhập MA HANG thôi.

Cho mình hỏi : minh thấy trong code If wsFunc.CountA(Range("F11:F1000")) = 0 Then GoTo Stop2 . có phải chỉ nhập đc dữ liệu đến dòng F1000 thôi phải ko bạn.Nếu dữ liệu hơn 1000 dòng thì phải fix lại chố này phải ko ?
thank bạn.