Snasui Excel Forum

Code: Select all

Sub sheet2_1_Click()
If Range("A3") <> "" And Range("B3") <> "" And Range("C3") <> "" And Range("D3") <> "" Then
    Sheets("Sheet2-1").Range("A3:D3").Copy
    Sheets("Sheet1").Range("A" & Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If

If Range("A3") <> "" And Range("B3") <> "" And Range("C3") <> "" And Range("D3") <> "" Then
    Sheets("Sheet2-1").Range("A3:D3").Copy
    Sheets("Sheet3").Range("A" & Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("Sheet2-1").Range("A3:D3") _
       .SpecialCells(xlCellTypeConstants).ClearContents
    MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
    Range("A3").Activate
End If
End Sub

Code: Select all

Sub RecordData()
   Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) _
       .Offset(1, 0).Resize(, 4) = Sheets("Sheet2-1").Range("A3:D3").Value
   Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp) _
       .Offset(1, 0).Resize(, 4) = Sheets("Sheet2-1").Range("A3:D3").Value
End Sub