Nhờ anh chị hướng dẫn em viết code này với (1 người xem)

[lenamqb]

Nhờ anh chị viết code cho nút lưu data cho em với khi nhập thông tin khách hàng, sản phẩm khách hàng mua xong nhấn nút lưu data thì thông tin khách hàng được lưu vào sheet data.

 

[Ba Tê]

Nhờ anh chị viết code cho nút lưu data cho em với khi nhập thông tin khách hàng, sản phẩm khách hàng mua xong nhấn nút lưu data thì thông tin khách hàng được lưu vào sheet data.

Thử chạy code này xem sao, nếu có gì chưa vừa ý thì bạn tự chỉnh lại được mà.
[GPECODE=vb]Public Sub GPE()
Dim sArr(), dArr(1 To 4, 1 To 9), I As Long, K As Long, TenKH As String
Dim Thue As Variant, DiaChi As String, MSThue As String
With Sheet1
sArr = .Range(.[A10], .[G13]).Value
TenKH = .[C2].Value
DiaChi = .[C4].Value
MSThue = .[C5].Value
Thue = .[D15].Value
End With
For I = 1 To 4
If sArr(I, 2) <> Empty Then
K = K + 1
dArr(K, 1) = sArr(I, 1)
dArr(K, 2) = Date
dArr(K, 3) = TenKH
dArr(K, 4) = DiaChi
dArr(K, 5) = MSThue
dArr(K, 6) = sArr(I, 2)
dArr(K, 7) = sArr(I, 5)
dArr(K, 8) = Thue
dArr(K, 9) = sArr(I, 7)
End If
Next I
If K Then
Sheets("Data").[A65536].End(xlUp).Offset(1).Resize(K, 9) = dArr
MsgBox "Da luu xong", , "GiaiPhapExcel"
Else
MsgBox "Luu Cai gi?", , "GiaiPhapExcel"
End If
End Sub[/GPECODE]

 

[lenamqb]

Thử chạy code này xem sao, nếu có gì chưa vừa ý thì bạn tự chỉnh lại được mà.
[GPECODE=vb]Public Sub GPE()
Dim sArr(), dArr(1 To 4, 1 To 9), I As Long, K As Long, TenKH As String
Dim Thue As Variant, DiaChi As String, MSThue As String
With Sheet1
sArr = .Range(.[A10], .[G13]).Value
TenKH = .[C2].Value
DiaChi = .[C4].Value
MSThue = .[C5].Value
Thue = .[D15].Value
End With
For I = 1 To 4
If sArr(I, 2) <> Empty Then
K = K + 1
dArr(K, 1) = sArr(I, 1)
dArr(K, 2) = Date
dArr(K, 3) = TenKH
dArr(K, 4) = DiaChi
dArr(K, 5) = MSThue
dArr(K, 6) = sArr(I, 2)
dArr(K, 7) = sArr(I, 5)
dArr(K, 8) = Thue
dArr(K, 9) = sArr(I, 7)
End If
Next I
If K Then
Sheets("Data").[A65536].End(xlUp).Offset(1).Resize(K, 9) = dArr
MsgBox "Da luu xong", , "GiaiPhapExcel"
Else
MsgBox "Luu Cai gi?", , "GiaiPhapExcel"
End If
End Sub[/GPECODE]

Bác ơi em làm được rồi cãm ơn bác rất nhiều
Bác giúp em nốt cái này với mỗi lần nhấn "xóa khách hàng thì số phiếu tăng thêm 1
khi bấm lưu thì cột Stt ở sheet data tăng thêm 1, trường hợp khách hàng mua 2 mặt hàng thì số tt cũng chỉ tăng 1 đơn vị thôi
Cột thành tiền bằng cột tổng cộng ở sheet1

 

[siwtom]

Bác ơi em làm được rồi cãm ơn bác rất nhiều!

Thế thì bạn may đấy, chúc mừng. Với tiêu đề như thế mà tôi tham gia thì chủ đề cùng với bài viết của tôi đã bị xóa không thương tiếc từ lâu rồi. Lý do phạm qui thì tôi cứng họng rồi. Chỉ có điều lạ là chủ đề phạm qui thường sống lâu với điều kiện không có bài của tôi.

 

[ndu96081631]

Chỉ có điều lạ là chủ đề phạm qui thường sống lâu với điều kiện không có bài của tôi.

Cái này anh nói hơi quá rồi
Nói đúng là vầy: Chủ đề phạm quy thường sống lâu khi chưa có Mod, Smod nào ghé qua!
(cho đến thời điểm này, em là thành viên BQT đầu tiên ghé qua topic này)