Snasui Excel Forum

Code: Select all

Sub SendDataToFile()
MyVar = [Input]
[Target] = MyVar
End Sub

Code: Select all

Sub SendDataToFile()
[Target].Value = [Input].Value
End Sub

Code: Select all

Sub SendDataToFile()
Dim src As Workbook
MyVar = [Input]
Set src = Workbooks.Open("C:\Users\user\Desktop\Test input data  .xlsx")
Windows("Test send data1.xlsm").Activate
[Target] = MyVar
src.Close SaveChanges:=True
End Sub

Code: Select all

Sub SendDataToFile()
    Dim src As Workbook
    Dim myVar As Range
    Dim Target As Range
    
    Application.ScreenUpdating = False
    Set myVar = [Input]
    Set src = Workbooks.Open("C:\Users\user\Desktop\Test input data  .xlsx")
    With src.Worksheets("Sheet1")
        Set Target = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
        Target.Resize(myVar.Rows.Count, myVar.Columns.Count).Value = myVar.Value
    End With
    src.Close SaveChanges:=True
    Application.ScreenUpdating = True
End Sub