Code cập nhật dữ liệu

[NH_DK]

A/C viết dùm em code cập nhật dữ liệu cho nút lênh này nhé!
(câu hỏi cụ thể trong file đính kèm)

 

[boyxin]

A/C viết dùm em code cập nhật dữ liệu cho nút lênh này nhé!
(câu hỏi cụ thể trong file đính kèm)

kiem tra lại xem kết quả thế nào nhé

 

[Lê Duy Thương]

kiem tra lại xem kết quả thế nào nhé

cám ơn bác boyxin nhiều lắm .
Khi nào vướng mắc tôi nhờ sự trợ giúp của bác nhé

 

[NH_DK]

A/C sửa lại dùm em khi chọn nút Ghi thì cập nhật và xoá dữ liệu ở B6 và vùng A12:A40 của Sheet Mau

Private Sub CommandButton1_Click()
On Error Resume Next
    With Sheet2
        er2 = .[g65535].End(xlUp).Row + 1
        .Cells(er2, 1).Resize(, 4) = WorksheetFunction.Transpose([B6:B9])
        .Cells(er2, 5) = [C4]: [C4] = Empty: [B6] = Empty ' cái này thì ổn rồi ah
        .Cells(er2, 6) = Format([E46], "dd-mm-yyyy") ': [E46] = Empty
        er1 = IIf([A11].End(xlDown).Row > 40, 0, [A11].End(xlDown).Row - 11)
        .Cells(er2, 7).Resize(er1, 6) = [a12].Resize(er1, 6).Value
        [a12].Resize(er1, 6) = Empty
    End With
End Sub

 

[NH_DK]

Mọi người giúp em chút xíu nữa nhé!

 

[MinhNguyệt]

Sửa câu này

.Cells(er2, 6) = Format([E46], "dd-mm-yyyy") ': [E46] = Empty

Thành

.Cells(er2,6) = .[E46]: .Cells(er2,6).NumberFormat = "dd-mm-yyyy"

Thử xem
Thân

 

[NH_DK]

Sửa câu này

.Cells(er2, 6) = Format([E46], "dd-mm-yyyy") ': [E46] = Empty

Thành

.Cells(er2,6) = .[E46]: .Cells(er2,6).NumberFormat = "dd-mm-yyyy"

Thử xem
Thân

Mình muốn sửa code sao cho khi chọn nút GHI thì nó cập nhật dữ liệu sang bên Sheet CAPNHAT và nó sẽ tự xoá ô B6, C4 và vùng A12:A40 và D1240. Xoá như vậy thì sẽ tiện khi mình làm phiếu khác

 

[sealand]

Mình muốn sửa code sao cho khi chọn nút GHI thì nó cập nhật dữ liệu sang bên Sheet CAPNHAT và nó sẽ tự xoá ô B6, C4 và vùng A12:A40 và D1240. Xoá như vậy thì sẽ tiện khi mình làm phiếu khác

Banj chỉ vướng đoạn xoá thôi thì dùng code sau đươc:

Application.Union([B6],[C4],[A12:A40],[D1240]).ClearContents

 

[NH_DK]

Banj chỉ vướng đoạn xoá thôi thì dùng code sau đươc:

Application.Union([B6],[C4],[A12:A40],[D1240]).ClearContents

Vâng, anh làm đúng ý của em rồi! Cám ơn anh sealand nhiều!

 

[sealand]

Mình tham gia thêm 1 chút:
1/Nên có đoạn code kiểm tra nếu mã hàng hay số lượng trống thì bỏ qua không nhập.
2/Nên đ/c data cho gọn hơn: Chỉ cần ngày, số phiếu,mã khách, mã hàng , số lương là đủ. Không cần rườm rà lắm nặng file mà thôi.

 

[boyxin]

Mình tham gia thêm 1 chút:
1/Nên có đoạn code kiểm tra nếu mã hàng hay số lượng trống thì bỏ qua không nhập.
2/Nên đ/c data cho gọn hơn: Chỉ cần ngày, số phiếu,mã khách, mã hàng , số lương là đủ. Không cần rườm rà lắm nặng file mà thôi.

Bên Sheet CAPNHAT chỉ cần các trường [ NGÀY ] - [ MÃ KH ] - [ SỐ PHIẾU ] - [ MÃ HÀNG ] - [ SỐ LƯỢNG ] và Thêm cột [ Giá ] nữa vì giá cả các mặt hàng sẽ có sự thay đổi theo từng thời điểm

 

[Lê Duy Thương]

Mọi người giúp em chút xíu nữa nhé!

xin phép bác boyxin và bác sealand em tư sửa code như thễ này có vấn đề gì không ?

Private Sub CommandButton1_Click()
On Error Resume Next
With Sheet2
er2 = .[g65535].End(xlUp).Row + 1
.Cells(er2, 1).Resize(, 4) = WorksheetFunction.Transpose([B6:B9])
.Cells(er2, 5) = [C4]: [C4] = Empty: [B6] = Empty
.Cells(er2, 6) = Format([E46], "dd-mm-yyyy") ': [E46] = Empty
er1 = IIf([A11].End(xlDown).Row > 40, 0, [A11].End(xlDown).Row - 11)
.Cells(er2, 7).Resize(er1, 6) = [a12].Resize(er1, 6).Value
[a12:a40,d12:d40] = Empty
End With
End Sub
và cái này nghĩa là gì vậy 2 bác
End(xlDown).Row > 40, 0, [A11].End(xlDown).Row - 11)

 

[boyxin]

cái này nghĩa là gì vậy 2 bác
=IIf([A11].End(xlDown).Row > 40, 0, [A11].End(xlDown).Row - 11)

Nó chính là hàm IIF trong VBA: =IIF(Expression, TruePart, FalsePart)

Giống như hàm IF ta vẫn dùng trong Cells: =IF(Logical_test, [value_if_true], [value_if_false])