Snasui Excel Forum

Code: Select all

Sub SendData()
    Dim rSource As Range
    Dim rTarget As Range
    With Worksheets("Record")
        Select Case .Range("C3").Value
            Case "ลงทะเบียนบัตรยึดจากเครื่อง"
                Set rSource = .Range("B13", .Range("F24").End(xlUp))
                Set rTarget = Worksheets("Hold").Range("C" & Rows.Count) _
                    .End(xlUp).Offset(1, 0)
            Case "คืนบัตรให้ลูกค้าแล้ว"
                Set rSource = .Range("I13", .Range("M24").End(xlUp))
                Set rTarget = Worksheets("GetBack").Range("C" & Rows.Count) _
                    .End(xlUp).Offset(1, 0)
            Case "ทำลายบัตรแล้ว"
                Set rSource = .Range("O13", .Range("S24").End(xlUp))
                Set rTarget = Worksheets("Destroy").Range("C" & Rows.Count) _
                    .End(xlUp).Offset(1, 0)
        End Select
    End With
    If rSource.Row = 12 Then
         MsgBox "Can't found data. Please try again."
         Exit Sub
    End If
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub