Nhờ AC sửa giúp nút Ghi sau khi sửa nó không cập nhật được, xin cảm ơn!

Liên hệ QC
win-sun

win-sun

Thành viên hoạt động
Tham gia
19/1/09
Bài viết
151
Được thích
15
Private Sub cmGhi_Click()
Application.ScreenUpdating = False
On Error Resume Next
'On Error GoTo loi
Dim dong As Long, Gttim As String
Gttim = Me.TbsoID.Value
If Flag = "THEM" Then
Me.cmGhi.Enabled = True
With S204
If .Range("V:V").Find(Gttim, LookIn:=xlValues) Is Nothing Then
dong = .[B65432].End(xlUp).Row
.Cells(dong + 1, 1).Value = CDate(Me.Tbngay.Value)
.Cells(dong + 1, 2).Value = Me.tbsophieu.Value
.Cells(dong + 1, 3).Value = Me.tbma.Value
.Cells(dong + 1, 4).Value = Me.tbten.Value
.Cells(dong + 1, 5).Value = Me.tbphanloai.Value
.Cells(dong + 1, 6).Value = Me.tbsonhandang.Value
.Cells(dong + 1, 7).Value = Me.tbvitri1.Value
.Cells(dong + 1, 8).Value = Me.Tbsl.Value
.Cells(dong + 1, 9).Value = Me.Tbton.Value
.Cells(dong + 1, 10).Value = Me.tbdonvi1.Value
.Cells(dong + 1, 11).Value = Me.tbtendonvi1.Value
.Cells(dong + 1, 12).Value = Me.tbbophan1.Value
.Cells(dong + 1, 13).Value = Me.tbdonvi2.Value
.Cells(dong + 1, 14).Value = Me.tbtendonvi2.Value
.Cells(dong + 1, 15).Value = Me.tbbophan2.Value
.Cells(dong + 1, 16).Value = Me.tbvitri2.Value
.Cells(dong + 1, 17).Value = Me.tbdiengiai.Value
.Cells(dong + 1, 18).Value = Me.tbnguoipt1.Value
.Cells(dong + 1, 19).Value = Me.tbnguoipt2.Value
.Cells(dong + 1, 20).Value = Me.tbtenbp1.Value
.Cells(dong + 1, 21).Value = Me.tbtenbp2.Value
.Cells(dong + 1, 22).Value = Format(Me.TbsoID.Value, "0000")
S203.[U21] = Format(Me.tbsophieu.Value, "**0000000")
End If
End With
If S203.[U23].Value = 0 Then
With S201
dong = .[B65432].End(xlUp).Row
.Cells(dong + 1, 2).Value = Me.tbma.Value
.Cells(dong + 1, 3).Value = Me.tbten.Value
.Cells(dong + 1, 4).Value = Me.tbphanloai.Value
.Cells(dong + 1, 5).Value = Me.tbsonhandang.Value
.Cells(dong + 1, 6).Value = Me.tbdonvi2.Value
.Cells(dong + 1, 7).Value = Me.tbbophan2.Value
.Cells(dong + 1, 8).Value = Me.tbvitri2.Value
'.Cells(dong + 1, 16).Value = Me.tbdiengiai.Value
.Cells(dong + 1, 17).Value = Me.TbsoID.Value
.Cells(dong + 1, 10).Value = Me.Tbsl.Value
.Cells(dong + 1, 12).Value = Me.Tbsl.Value
End With
End If
Else
If Flag = "SUA" Then
dong = S204.Range("V:V").Find(Gttim, LookIn:=xlValues).Row
S204.Cells(dong, 3).Value = Me.tbma.Value
S204.Cells(dong, 4).Value = Me.tbten.Value
S204.Cells(dong, 5).Value = Me.tbphanloai.Value
S204.Cells(dong, 6).Value = Me.tbsonhandang.Value
S204.Cells(dong, 7).Value = Me.tbvitri1.Value
S204.Cells(dong, 8).Value = Me.Tbsl.Value
S204.Cells(dong, 9).Value = Me.Tbton.Value
S204.Cells(dong, 10).Value = Me.tbdonvi1.Value
S204.Cells(dong, 11).Value = Me.tbtendonvi1.Value
S204.Cells(dong, 12).Value = Me.tbbophan1.Value
S204.Cells(dong, 16).Value = Me.tbvitri2.Value
S204.Cells(dong, 17).Value = Me.tbdiengiai.Value
S204.Cells(dong, 18).Value = Me.tbnguoipt1.Value
S204.Cells(dong, 19).Value = Me.tbnguoipt2.Value
S204.Cells(dong, 20).Value = Me.tbtenbp1.Value
S204.Cells(dong, 21).Value = Me.tbtenbp2.Value
'End If
With S201
dong = .Range("Q:Q").Find(Gttim, LookIn:=xlValues).Row
.Cells(dong, 2).Value = Me.tbma.Value
.Cells(dong, 3).Value = Me.tbten.Value
.Cells(dong, 4).Value = Me.tbphanloai.Value
.Cells(dong, 5).Value = Me.tbsonhandang.Value
.Cells(dong, 8).Value = Me.tbvitri2.Value
'.Cells(dong, 16).Value = Me.tbdiengiai.Value
End With
End If
End If
Call tinhton
Call load_lb
Flag = ""
Me.cmGhi.Enabled = False
Application.ScreenUpdating = True
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
win-sun đã viết:
Private Sub cmGhi_Click()
Application.ScreenUpdating = False
On Error Resume Next
'On Error GoTo loi
Dim dong As Long, Gttim As String
Gttim = Me.TbsoID.Value
If Flag = "THEM" Then
Me.cmGhi.Enabled = True
With S204
If .Range("V:V").Find(Gttim, LookIn:=xlValues) Is Nothing Then
dong = .[B65432].End(xlUp).Row
.Cells(dong + 1, 1).Value = CDate(Me.Tbngay.Value)
.Cells(dong + 1, 2).Value = Me.tbsophieu.Value
.Cells(dong + 1, 3).Value = Me.tbma.Value
.Cells(dong + 1, 4).Value = Me.tbten.Value
.Cells(dong + 1, 5).Value = Me.tbphanloai.Value
.Cells(dong + 1, 6).Value = Me.tbsonhandang.Value
.Cells(dong + 1, 7).Value = Me.tbvitri1.Value
.Cells(dong + 1, 8).Value = Me.Tbsl.Value
.Cells(dong + 1, 9).Value = Me.Tbton.Value
.Cells(dong + 1, 10).Value = Me.tbdonvi1.Value
.Cells(dong + 1, 11).Value = Me.tbtendonvi1.Value
.Cells(dong + 1, 12).Value = Me.tbbophan1.Value
.Cells(dong + 1, 13).Value = Me.tbdonvi2.Value
.Cells(dong + 1, 14).Value = Me.tbtendonvi2.Value
.Cells(dong + 1, 15).Value = Me.tbbophan2.Value
.Cells(dong + 1, 16).Value = Me.tbvitri2.Value
.Cells(dong + 1, 17).Value = Me.tbdiengiai.Value
.Cells(dong + 1, 18).Value = Me.tbnguoipt1.Value
.Cells(dong + 1, 19).Value = Me.tbnguoipt2.Value
.Cells(dong + 1, 20).Value = Me.tbtenbp1.Value
.Cells(dong + 1, 21).Value = Me.tbtenbp2.Value
.Cells(dong + 1, 22).Value = Format(Me.TbsoID.Value, "0000")
S203.[U21] = Format(Me.tbsophieu.Value, "**0000000")
End If
End With
If S203.[U23].Value = 0 Then
With S201
dong = .[B65432].End(xlUp).Row
.Cells(dong + 1, 2).Value = Me.tbma.Value
.Cells(dong + 1, 3).Value = Me.tbten.Value
.Cells(dong + 1, 4).Value = Me.tbphanloai.Value
.Cells(dong + 1, 5).Value = Me.tbsonhandang.Value
.Cells(dong + 1, 6).Value = Me.tbdonvi2.Value
.Cells(dong + 1, 7).Value = Me.tbbophan2.Value
.Cells(dong + 1, 8).Value = Me.tbvitri2.Value
'.Cells(dong + 1, 16).Value = Me.tbdiengiai.Value
.Cells(dong + 1, 17).Value = Me.TbsoID.Value
.Cells(dong + 1, 10).Value = Me.Tbsl.Value
.Cells(dong + 1, 12).Value = Me.Tbsl.Value
End With
End If
Else
If Flag = "SUA" Then
dong = S204.Range("V:V").Find(Gttim, LookIn:=xlValues).Row
S204.Cells(dong, 3).Value = Me.tbma.Value
S204.Cells(dong, 4).Value = Me.tbten.Value
S204.Cells(dong, 5).Value = Me.tbphanloai.Value
S204.Cells(dong, 6).Value = Me.tbsonhandang.Value
S204.Cells(dong, 7).Value = Me.tbvitri1.Value
S204.Cells(dong, 8).Value = Me.Tbsl.Value
S204.Cells(dong, 9).Value = Me.Tbton.Value
S204.Cells(dong, 10).Value = Me.tbdonvi1.Value
S204.Cells(dong, 11).Value = Me.tbtendonvi1.Value
S204.Cells(dong, 12).Value = Me.tbbophan1.Value
S204.Cells(dong, 16).Value = Me.tbvitri2.Value
S204.Cells(dong, 17).Value = Me.tbdiengiai.Value
S204.Cells(dong, 18).Value = Me.tbnguoipt1.Value
S204.Cells(dong, 19).Value = Me.tbnguoipt2.Value
S204.Cells(dong, 20).Value = Me.tbtenbp1.Value
S204.Cells(dong, 21).Value = Me.tbtenbp2.Value
'End If
With S201
dong = .Range("Q:Q").Find(Gttim, LookIn:=xlValues).Row
.Cells(dong, 2).Value = Me.tbma.Value
.Cells(dong, 3).Value = Me.tbten.Value
.Cells(dong, 4).Value = Me.tbphanloai.Value
.Cells(dong, 5).Value = Me.tbsonhandang.Value
.Cells(dong, 8).Value = Me.tbvitri2.Value
'.Cells(dong, 16).Value = Me.tbdiengiai.Value
End With
End If
End If
Call tinhton
Call load_lb
Flag = ""
Me.cmGhi.Enabled = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Không có file làm sao biết các đoạn code này có cập nhật đúng hay không?
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

phammaihuong90
Hàm tìm ngày gần nhất đạt được số lượng mục tiêu
Trả lời
4
Đọc
37
phammaihuong90
phammaihuong90
H
TÍNH PHÉP NĂM CHO NHÂN VIÊN
Trả lời
2
Đọc
83
bebo021999
B
O
Kết hợp hàm value
Trả lời
1
Đọc
29
bebo021999
B
ongke0711
  • Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
10 11 12
Trả lời
225
Đọc
18K
ongke0711
ongke0711
T
  • Question
Cho mình hỏi tại sao file mình chạy Sao lưu lại bị đầy bộ nhớ.
Trả lời
2
Đọc
63
thientan201
T
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom