Xin code hiện nhắc nhở khi kích vào CommandButton lưu DL

[thanhtam348]

Nhờ các bạn viết giúp tôi code nhắc nhở khi kích vào CommandButton lưu dử liệu mà không làm mất tác dụng lệnh lưu.
Cám ơn các bạn

 

[Hoàng Trọng Nghĩa]

Nhờ các bạn viết giúp tôi code nhắc nhở khi kích vào CommandButton lưu dử liệu mà không làm mất tác dụng lệnh lưu.
Cám ơn các bạn

Private Sub CommandButton1_Click()
Msgbox "Xin lưu ý ..."
Code của bạn
End sub

 

[thanhtam348]

Cám ơn bạn! nhưng tôi gán vào nó bị lổi, nhờ bạn xem code nầy của tôi để có cách khắc phục dùm.

Private Sub CommandButton1_Click()
On Error Resume Next
With Sheet11
er2 = .[D65535].End(xlUp).Row + 1
er1 = IIf([B4].End(xlDown).Row > 55, 0, [B4].End(xlDown).Row + 55)
.Cells(er2, 4).Resize(er1, 18) = [B5].Resize(er1, 18).Value
[b5:c55,f5:k55,p5:p55] = Empty
End With
End Sub

 

[thanhphuong]

Cám ơn bạn! nhưng tôi gán vào nó bị lổi, nhờ bạn xem code nầy của tôi để có cách khắc phục dùm.

Private Sub CommandButton1_Click()
On Error Resume Next
With Sheet11
er2 = .[D65535].End(xlUp).Row + 1
er1 = IIf([B4].End(xlDown).Row > 55, 0, [B4].End(xlDown).Row + 55)
.Cells(er2, 4).Resize(er1, 18) = [B5].Resize(er1, 18).Value
[b5:c55,f5:k55,p5:p55] = Empty
End With
End Sub

Sửa lại một tý

CommandButton1_Click()
On Error Resume Next
With Sheet11
er2 = .[D65535].End(xlUp).Row + 1
If .[B4].End(xlDown).Row > 55 Then er1 = 0 Else er1 = .[B4].End(xlDown).Row + 55
.Cells(er2, 4).Resize(er1, 18) = [B5].Resize(er1, 18).Value
[b5:c55,f5:k55,p5:p55] = Empty
End With
End Sub

 

[thanhtam348]

Cám ơn ThanhPhuong.
Sửa lại thấy chạy mượt hơn nhưng nó không đưa DL sang Sheet11

 

[sealand]

Bạn bỏ On Error... sẽ thấy lỗi

 

[thanhtam348]

Tôi có một lẩn lộn sai lầm, nhờ các bạn xem lại giúp dùm: Ở Sheet10 của tôi là sheet để nhập liệu rồi lưu DL vào sheet11 như code bên dưới, thay vì từ đầu tôi chỉ muốn nó hiện thông báo nhắc nhở nhưng không đúng, giờ thì tôi xin các bạn dùm tôi sao cho sheet 10 phải có DL từ các cột M5:M55, N5:N55 phải có dử liệu, không có thì thông báo, không cho lưu.
Làm phiền các bạn. Xin cám ơn.

Private Sub CommandButton1_Click()
On Error Resume Next
With Sheet11
er2 = .[D65535].End(xlUp).Row + 1
er1 = IIf([B4].End(xlDown).Row > 55, 0, [B4].End(xlDown).Row + 55)
.Cells(er2, 4).Resize(er1, 18) = [B5].Resize(er1, 18).Value
[b5:c55,f5:k55,p5:p55] = Empty
End With
End Sub

 

[le tin]

Bạn thêm đoạn code này lên trước
If WorksheetFunction.CountA(sheet10.[M5:N55]) = 0 Then
MsgBox "Nhac nho"
End If

 

[thanhtam348]

Cám ơn le tin và các bạn nhiều.
Thân mến

 

[le tin]

Cám ơn le tin và các bạn nhiều.
Thân mến

Chỉ cần bấm nút Cảm ơn