Excel Forum

Code: Select all

Sub CopyRange()
Dim rs As Range, rt As Range
With Workbooks("คีย์ค่าแรง V1.xls").Worksheets("Sheet1")
    Set rs = .Range("C8:C100")
 End With
 With Workbooks("คีย์ค่าแรง V1.4.xls").Worksheets("Sheet1")
    Set rt = .Range("C8")
 End With
 rs.Copy
 rt.PasteSpecial xlPasteValues
 MsgBox "Finish"
End Sub

Code: Select all

Sub Button1_คลิก()
Dim rs As Range, rt As Range

Set rs = Workbooks("คีย์ค่าแรง V1.xls").ActiveSheet.Range("$C$9:$C$29")
Set rt = Workbooks("คีย์ค่าแรง V1.4.xls").ActiveSheet.Range("$C$9:$C$29")

rs.Copy
rt.PasteSpecial xlPasteValues
MsgBox "Finish"

End Sub

Code: Select all

Sub Button1_คลิก()
Workbooks("คีย์ค่าแรง V1.4.xls").ActiveSheet.Range("$C$9:$C$29"). Copy _
     Workbooks("คีย์ค่าแรง V1.xls").ActiveSheet.Range("$C$9:$C$29")
MsgBox "Finish"
End Sub

Code: Select all

Sub Button1_คลิก()
Dim s As String
s = InputBox("What is source file?")
Workbooks(s).ActiveSheet.Range("$C$9:$C$29"). Copy _
     Workbooks("คีย์ค่าแรง V1.xls").ActiveSheet.Range("$C$9:$C$29")
MsgBox "Finish"
End Sub

Code: Select all

Sub Button1_คลิก()
Dim s As String
s = InputBox("What is source file?")
Workbooks(s).ActiveSheet.Range("$C$9:$C$29"). Copy _
     Workbooks("คีย์ค่าแรง V1.xls").ActiveSheet.Range("$C$9:$C$29")
MsgBox "Finish"
End Sub

Code: Select all

Dim s As String
s = InputBox("โปรดกรอกปี พ.ศ.ที่ต้องการสั่งซื้อ?","ใบสั่งซื้อปี?", "")
if worksheets(s).select Then
Worksheets(s).Select
else
MsgBox "ไม่พบแฟ้มเอกสาร"
end if

Code: Select all

Sub test()
    Dim s As String
    s = InputBox("โปรดกรอกปี พ.ศ.ที่ต้องการสั่งซื้อ?", "ใบสั่งซื้อปี?", "")
    On Error Resume Next
    Worksheets(s).Select
    If Err <> 0 Then
        MsgBox "ไม่พบแฟ้มเอกสาร"
    End If
End Sub