Morning All,
I have a forumla that copy a line from one tab and then pastes it to a different tab within the same workbook then saves the file. But i wondered if its possible for the formula to paste the data to a totally different work book and then save that file ?
I have copied a watered down version of the formula with the only thing thats missing is the amount of lines its copying across
Kind Regards
I have a forumla that copy a line from one tab and then pastes it to a different tab within the same workbook then saves the file. But i wondered if its possible for the formula to paste the data to a totally different work book and then save that file ?
I have copied a watered down version of the formula with the only thing thats missing is the amount of lines its copying across
Sub ADDRECORD()
Dim src As Worksheet
Dim dst As Worksheet
Dim rw As Long
Application.ScreenUpdating = False
' Set source and destination sheets
Set src = Sheets("TOUCH SCREEN")
Set dst = Sheets("RAW DATA")
' Find next available row on destination sheet
rw = dst.Cells(Rows.Count, "A").End(xlUp).Row + 1
' Check M4
If src.Range("M4") = "Select Variant" Then
MsgBox "Tab " & src.Name & " contains 'Select Variant'", vbInformation, "Select Variant found..."
ElseIf dst.Range("M4") = "Select Variant" Then
MsgBox "Tab " & dst.Name & "contains 'Select Variant'", vbInformation, "Select Variant found..."
End If
' Populate values on destination sheet
dst.Cells(rw, "A") = src.Range("A101")
dst.Cells(rw, "B") = src.Range("B101")
Application.ScreenUpdating = True
Save Workbook
ActiveWorkbook.Save
End Sub
Kind Regards