Code làm tăng số phiếu (1 người xem)

[Minda]

Chào cả nhà! Tôi có 1 file này muốn nhờ mọi người xem dùm cho tôi nhé!
Cụ thể là tôi muốn nhờ mọi người sửa dùm tôi code để có thể số phiếu trong ô F3 tăng lên 1 đơn vị sau khi chọn nút lưu.

 

[doan]

Thêm dòng này trước endsub của Sub CapNhat():
Range("F3").Value = Range("F3").Value + 1

 

[Ba Tê]

Thêm dòng này trước endsub của Sub CapNhat():
Range("F3").Value = Range("F3").Value + 1

Sẵn đó thêm luôn 2 dòng này cho nó đẹp:

[A9:G23].ClearContents
 [A9].Select

 

[Minda]

Cám ơn gợi ý của các bạn! Theo mình thì nên thế này cũng sẽ hiệu quả:

Sub CapNhat()
  Dim eR As Long
  Dim Rng As Range, MyRng As Range, MyR As Range
  Dim iR  As Long
  On Error Resume Next
  Set Rng = S1.Range(S1.[A9], S1.[A23].End(xlUp))
  iR = Rng.Rows.Count
  Set MyRng = S2.Range(S2.[A2], S2.[A65000].End(xlUp))
  If S1.Range("F3") = "" Then MsgBox "So phieu khong duoc de trong!", vbCritical, "Error": Exit Sub
  Set MyR = MyRng.Find(S1.[F3].Value, , xlValues, xlWhole)
  If MyR Is Nothing Then
  With S2
    eR = .[A50000].End(xlUp).Row + 1
   .Cells(eR, 1).Resize(iR).Value = S1.[F3]
   .Cells(eR, 2).Resize(iR).Value = S1.[A2]
   .Cells(eR, 3).Resize(iR).Value = Rng.Offset(, 0).Resize(, 1).Value
   .Cells(eR, 4).Resize(iR).Value = Rng.Offset(, 1).Resize(, 1).Value
   .Cells(eR, 5).Resize(iR).Value = Rng.Offset(, 2).Resize(, 1).Value
   .Cells(eR, 6).Resize(iR).Value = Rng.Offset(, 3).Resize(, 1).Value
   .Cells(eR, 7).Resize(iR).Value = Rng.Offset(, 4).Resize(, 1).Value
   .Cells(eR, 8).Resize(iR).Value = Rng.Offset(, 5).Resize(, 1).Value
   .Cells(eR, 9).Resize(iR).Value = Rng.Offset(, 6).Resize(, 1).Value
   Union(.Cells(eR, 5).Resize(iR, 3), .Cells(eR, 9).Resize(iR, 1)).NumberFormat = "_(* #,##0_);_(* (#,##0);"""""
   .Cells(eR, 8).Resize(iR, 1).NumberFormat = "0%"
   Union(S1.[B4], S1.[A9:D23], S1.[F9:F23]).ClearContents
   Range("F3").Value = Range("F3").Value + 1
 End With
 Else
    MsgBox "So phieu nay da co rui ban oi. Hay nhap lai nhe! Thanks", vbCritical, "Error"
 End If
End Sub

 

[Minda]

Giả sử: Nếu số phiếu bắt đầu bằng giá trị text: PN00001 thì mình có thể làm cho nó tăng lên PN00002 không?

 

[khoavu87]

Giả sử: Nếu số phiếu bắt đầu bằng giá trị text: PN00001 thì mình có thể làm cho nó tăng lên PN00002 không?

Là mình mình sẽ làm thế này cho đơn giản.hih ko biết có ưng ý ko?

 

[Minda]

Là mình mình sẽ làm thế này cho đơn giản.hih ko biết có ưng ý ko?

Cám ơn bạn nhiều! Nếu làm theo cách của bạn thì mình đã làm được rùi. Nhưng vấn đề ở chỗ nếu làm theo cách của bạn thì code chống nhập trùng dữ liệu (số phiếu) lại không có tác dụng gì cả? Mình muốn số phiếu chỉ nhập 1 lần duy nhất thui bạn ah!

 

[NH_DK]

Cám ơn bạn nhiều! Nếu làm theo cách của bạn thì mình đã làm được rùi. Nhưng vấn đề ở chỗ nếu làm theo cách của bạn thì code chống nhập trùng dữ liệu (số phiếu) lại không có tác dụng gì cả? Mình muốn số phiếu chỉ nhập 1 lần duy nhất thui bạn ah!

Bạn xem có đúng ý mình không nhé!

 

[ndu96081631]

MsgBox "So phieu nay da co rui ban oi. Hay nhap lai nhe! Thanks", vbCritical, "Error"

Cái này nói ngoài lề chút:
- Ở ngoài đời ta nói sao cũng được...
- Chat chit ta viết gì cũng được...
- Đã là 1 chương trình thì nên cẩn thận từ ngữ.. Nếu có thể được thì nên là tiếng Việt có dấu hoặc ít nhất cũng không nên dùng thập cẩm ANH - VIỆT lẫn lộn
- Vân vân và vân vân... chỉ 1 từ cũng đủ phá vỡ cái đẹp của chương trình rồi