Hướng dãn lại đoạn code (1 người xem)

[camphuchia]

Em lượm được 1 code trên diễn dàn này và em bỏ bớt đi, để tập làm nhưng còn có 1 chút nữa thôi mà làm hoài làm không được, rất mong anh chị hướng dẫn dùm em, cảm ơn

 

[SA_DQ]

Private Sub cmdAdd_Click()
'Dim iRow As Long:               Dim ws As Worksheet'

'Set ws = Worksheets("NY")'
'iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row'
If Trim(Me.TxtPGD.Value) = "" Then
  Me.TxtPGD.SetFocus
  MsgBox "Vui long nhap day du", vbInformation
  Exit Sub
End If
[G7].Value = Me.TxtPGD.Value
[G8].Value = Me.TxtTRUONG.Value
Me.TxtPGD.Value = ""
Me.TxtTRUONG.Value = ""
Me.TxtPGD.SetFocus
End Sub