Sending data to another closed excel file with a command button

[Tej92]

Hello all, I'm trying to send data to another file that is closed and on a different drive (G:\) included in the following code:

Private Sub CommandButton3_Click()
x = Sheets("LEG").Range("action_required1")
With Sheets("Actions")
Set rngfind = .Cells.Find(x, , , 1)
rngfind.Offset(, 3) = Date
End With
Range("I22:O22").Value = ""
End Sub

for now it's creating an output on the same file but different sheet, I'd like it to also do the same but on a different file on the server drive G.
thank you

 

[Tej92]

any help will be greatly appreciated

 

[Tej92]

Managed to sort it myself with the code below, thanks to everyone who looked and might be working on it now.

Sub SaveDataMasterWorkbook()
Dim wbMaster As Workbook
Dim wbLocal As Workbook
Dim masterNextRow As Long

Set wbLocal = ThisWorkbook

Set wbMaster = Workbooks.Open("G:\6S data\data.xlsx")
masterNextRow = wbMaster.Worksheets("Data").Range("A" & wbMaster.Worksheets("Data").Rows.Count).End(xlUp).Offset(1).Row

wbMaster.Worksheets("data").Cells(masterNextRow, 1).Value = wbLocal.Worksheets("LEG").Range("action_required1").Value
wbMaster.Worksheets("data").Cells(masterNextRow, 2).Value = wbLocal.Worksheets("LEG").Range("action_date").Value
wbMaster.Close True

MsgBox "Input Saved"
End Sub

 

[smozgur]

Managed to sort it myself with the code below, thanks to everyone who looked and might be working on it now.

Thanks for posting your own solution as it will help future readers.