Snasui Excel Forum

Code: Select all

Sub SwitchColor()
    Dim Temp1 As Variant
    Dim Temp2 As Variant
    Dim Range1 As Range
    Dim Range2 As Range
    Dim r1addr As String, r2addr As String
    On Error Resume Next
    Do
        Set Range1 = Application.InputBox(Prompt:="เครื่องที่1", _
        Title:="Please select range", Default:=Selection.Address, Type:=8)
        r1addr = Range1.Address
        If r1addr = "" Then
            MsgBox "กรุณาเลือกพื้นที่เครื่องจักรที่ 1 อีกครั้งค่ะ"
        End If
    Loop While Range(r1addr).Range("A1") = ""
    Do
        Set Range2 = Application.InputBox(Prompt:="เครื่องที่2", _
        Title:="Please select range", Default:=Selection.Address, Type:=8)
        r2addr = Range2.Address
        If r2addr = "" Then
            MsgBox "กรุณาเลือกพื้นที่เครื่องจักรที่ 2 อีกครั้งค่ะ"
        End If
    Loop While Range(r2addr).Range("A1") = ""
    Range1.Cut Range("N1")
    Range2.Cut Range(r1addr)
    Range1.Cut Range(r2addr)
    MsgBox "เรียบร้อย"
    MsgBox Worksheets("sheet1").Range("G57").Value
End Sub