Snasui Excel Forum

Code: Select all

Option Explicit

Sub SubTractData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Template").Range("A2:E2")
Set rt = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
If Worksheets("Input").Range("E10").Value = 0 Then
    MsgBox "¡ÃسҡÃÍ¡¨Ó¹Ç¹·Õèµéͧ¡ÒÃàºÔ¡"
    Exit Sub
End If
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂáÅéÇ"
End Sub
Sub AddData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Template").Range("A3:E3")
Set rt = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
If Worksheets("Input").Range("E15").Value = 0 Then
    MsgBox "¡ÃسҡÃÍ¡¨Ó¹Ç¹·Õèµéͧ¡ÒÃà¾ÔèÁ"
    Exit Sub
End If
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂáÅéÇ"
End Sub

Sub DelIncorectRow()
Dim r As Range
Set r = Worksheets("Database").Range("A65536").End(xlUp)
    r.EntireRow.ClearContents
    MsgBox "ź¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End Sub