Giúp chỉnh và viết code giúp. (1 người xem)

[Thaiduc]

Nhờ các anh, chị chỉnh và viết code giúp như sau:
1. Code viết nhưng khi nhập lại không ghi vào thẻ BANSAO.
2. Khi nhập số lượng bản sao thì ở textbox "Lệ phí chứng thực" sẽ hiên số tiền phải thu (tính toán từ số lượng bản sao theo mức thu tại thẻ "Data" Cột C2:C3) với điều kiện: nếu sao từ 01 đến 02 bản thì mức thu 2.000đồng/bản (VD 02 bản = 02 x 2.000đ = 4.000đ). Nếu 10 bản thì sẽ thu: 02 bản x 2.000d + 08 bản x 1.000đ = 12.000 đồng.
Rất mong các anh, chị giúp. Xin cảm ơn!!!

 

[giaiphap]

Nhờ các anh, chị chỉnh và viết code giúp như sau:
1. Code viết nhưng khi nhập lại không ghi vào thẻ BANSAO.
2. Khi nhập số lượng bản sao thì ở textbox "Lệ phí chứng thực" sẽ hiên số tiền phải thu (tính toán từ số lượng bản sao theo mức thu tại thẻ "Data" Cột C2:C3) với điều kiện: nếu sao từ 01 đến 02 bản thì mức thu 2.000đồng/bản (VD 02 bản = 02 x 2.000đ = 4.000đ). Nếu 10 bản thì sẽ thu: 02 bản x 2.000d + 08 bản x 1.000đ = 12.000 đồng.
Rất mong các anh, chị giúp. Xin cảm ơn!!!

Ban thay code này vào trong Form của bạn xem sao

Private Sub ComButtonGHI_TIEP_Click()
'GHI DU LIEU CHUNG THUC BAN SAO
    Dim iR, eR As Long
    On Error Resume Next
iR = Sheets("data1").Range("A1000").End(3).Offset(1, 0).Row
    If Trim(Me.SCTbansao.Value) = "" Then
        Me.SCTbansao.SetFocus
        MsgUni "CHU7A NHA65P SO61 CHU71NG THU75C BA3N SAO!", vbCritical + vbOKOnly
    Else
      Set fRng = Sheets("data1").Range("A" & iR)
      fRng.Offset(, 0) = Me.SCTbansao.Value
      fRng.Offset(, 1) = Me.Ngaybansao.Value
      fRng.Offset(, 2) = Me.NguoiyeucauBS.Text
      fRng.Offset(, 3) = Me.Tenbansao.Text
      fRng.Offset(, 4) = Me.Nguoikybansao.Text
      fRng.Offset(, 5) = Me.SLbansao.Value
      fRng.Offset(, 6) = Me.LephiBS.Value
      fRng.Offset(, 7) = Me.GhichuBS.Text
      Me.SCTbansao.Text = " "
      Me.Ngaybansao.Value = " "
      Me.NguoiyeucauBS.Text = " "
      Me.Tenbansao.Text = " "
      Me.Nguoikybansao.Text = " "
      Me.SLbansao.Text = " "
      Me.LephiBS.Text = " "
      Me.GhichuBS.Text = " "
    End If
      Me.SCTbansao.SetFocus
End Sub


Private Sub Frame1_Click()


End Sub


Private Sub MultiPage1_Change()


End Sub


Private Sub MultiPage2_Change()


End Sub


Private Sub Ngaybansao_Change()


End Sub


Private Sub SLbansao_Change()
If Val(SLbansao.Text) < 3 Then
   LephiBS.Value = Val(SLbansao.Text) * 2000
Else
   LephiBS.Value = Val(SLbansao.Text) * 1000 + 2000
End If
End Sub

 

[Thaiduc]

Cám ơn giaiphap rất nhiều. Cũng file đó nhưng muốn lọc dữ liệu đã nhập từ Data1 theo ngày (từ ngày đến ngày, ví du từ ngày 01/01/2016 đến ngày 31/01/2016 - thực tế trong file chưa có dữ liệu) sang Sheets khác cùng file. Nhờ giaiphap giúp thêm.

 

[Thaiduc]

Vâng, Tôi chuyển File lên cho hpkhuong.
hpkhuong giúp mình:
1- Khi nhập từ ngày, đến ngày thì dữ liệu từ Sheets (Data1) sẽ chuyển sang Shssts (BAOCAO) giữ nguyên số cột nhưng chỉ có dữ liệu phát sinh theo điều kiện từ ngày đến ngày. Có thể tạo 01 forms khi chọn nút IN SỔ thì cho ta nhập từ ngày, đến ngày (những ngày này sẽ ghi vào ô màu vàng trong Sheets (BAOCAO) và dữ liệu tự động cập nhật vào.
2- Có rắc rối thề này: Khi mình sửa số liệu từ forms (Ví dụ trường hợp thứ 03) thì nó ghi dòng mới mà không ghi đè lên dữ liệu đã nhập trước đó (trường hợp thứ 03 chẳng hạn).
Nhờ hpkhuong giúp. Cám ơn rất nhiều.

 

[Thaiduc]

Mình coppy Code của hpkhuong nhưng không chạy được. Có thể hpkhuong giúp mình cụ thể trong file gửi. Mình lấy xuống chạy thử xem sao.
Giúp mình nhé. Cám ơn nhiều.

 

[Thaiduc]

Ok cám ơn bạn rất nhiều, việc giúp của bạn đúng 100% (chạy Code không được do mình coppy Code của bạn vào nút ghi nên ko chạy, đưa vào module và Sheets (BAO CAO) thì ổn).
Chuẩn bị vào năm Bính Thân 2016 chúc hpkhuong cùng gia đình, bằng hữu "An lành, Hạnh phúc, Sức khỏe & thành đạt trong cuộc sống".