Skip to content

Instantly share code, notes, and snippets.

@DuongAQ
Created February 8, 2018 03:55
Show Gist options
  • Save DuongAQ/bd7464db93c200ec691411ee61eec026 to your computer and use it in GitHub Desktop.
Save DuongAQ/bd7464db93c200ec691411ee61eec026 to your computer and use it in GitHub Desktop.
Sub Tra_loi()
Dim SoDong As Long
SoDong = Sheet1.Cells(10, 7).Value + 2
Sheet1.Cells(SoDong, 13).Value = Sheet1.Cells(9, 7).Value
Sheet1.Cells(SoDong, 14).Value = Sheet1.Cells(9, 8).Value
MsgBox "Ban chon dap an là " & Sheet1.Cells(9, 8).Value
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment