Snasui Excel Forum

Code: Select all

Sub Update()
    
    Dim r1 As Range
    Dim r2 As Range
    
    Dim rt As Range
    Dim rs As Range
    
        With Worksheets("Input")
        
                Set r1 = .Range("A2:H30")   
                Set r2 = r1.Offset(0, 0).Resize(4)
                Set rs = Union(r1, r2)              
            
        End With
        
                Set rt = Worksheets("Results").Range("A2:H30").Offset(0, 0)
                rs.Copy rt
                Application.CutCopyMode = False
        
        MsgBox " Good Job! Your work Finish. Wutthichai ! "
        
End Sub

Code: Select all

Sub GoToResults()
    
    Sheets("Results").Select

End Sub

Code: Select all

Sub BackToInput()
    
    Sheets("Input").Select

End Sub

Code: Select all

Sub UpdateTest()
    strFileName = Dir("D:\")
        Do While strFileName <> ""
                If Right(strFileName, 4) = ".xlsm" And strFileName <> "PasteData.xlsm" Then
            
                Windows(strFileName).Activate
                
                Dim r1 As Range
                Dim r2 As Range
                
                Dim rt As Range
                Dim rs As Range
                
                    With Windows("CopyData.xlsm").Worksheets("Source")
                              'Application.Goto Reference:="Source"
                              'Selection.Copy
                              
                            Set r1 = Windows("CopyData.xlsm").Worksheets("Source").Range("A2:H30")
                            Set r2 = r1.Offset(0, 0).Resize(4)
                            Set rs = Union(r1, r2)              
                    
                    End With
                    
                            'Windows("PasteData.xlsm").Activate
                            Set rt = Windows("PasteData.xlsm").Worksheets("Results").Range("A2:H30").Offset(0, 0)
                            rs.Copy rt
                            Application.CutCopyMode = False
                            
                    MsgBox " Good Job! Your work Finish.  "
                    End If
        strFileName = Dir
        Loop
End Sub

Code: Select all

Sub test()
    Dim source As Range
    Dim target As Range
    With Workbooks("CopyData.xlsm").Sheets(1)
        Set source = .Range("a2", .Range("h" & .Rows.Count).End(xlUp))
    End With
    With Workbooks("PasteData.xlsm").Sheets(1)
        Set target = .Range("a2")
    End With
    source.Copy
    target.PasteSpecial xlPasteValues
    Application.CutCopyMode = fasle
End Sub