Snasui Excel Forum

Code: Select all

Sub AddData()
    Dim rs As Range
    Dim rt As Range
    Dim r As Worksheet
    
    Set rs = Worksheets("Template").Range("A3:J3")
    Set rt = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
    If Worksheets("Input01").Range("F14").Value = 0 Then
        MsgBox "ãÊè¨Ó¹Ç¹ÃѺà¢éÒ"
        Exit Sub
    End If
    If Worksheets("Input01").Range("P16").Text = "" Then
        MsgBox "Ãкت×èͼÙéºÑ¹·Ö¡ÃÒ¡ÒôéÇÂ"
        Exit Sub
    End If
      Set r = Worksheets("Input01")
        rs.Copy
        rt.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂáÅéÇ"
        r.Range("F11,F14,G3,G7,L11,L14,P16:Q16").ClearContents
        MsgBox "·ÓÃÒ¡ÒõèÍä»"
            
        Set r = Nothing
        Set rs = Nothing
        Set rt = Nothing
End Sub