I have two Workbooks, WB1 and WB2.
My colleagues have copy of WB1 on their programming desktop that has a data connection to Learning our local network server, which is Earhost connected to multiple workbooks using most effective PowerQuery.
I constantly update WB2 for data wrong idea reporting, which will be shared with my use of case colleagues upon approval of management United as WB1.
When I share the updated version of WB2 Modern I rename it and send it via email as ecudated WB1.v05. Most of the time my colleagues some how forget or overlook the updated version anything else sent via email, which leads to having not at all their report in the old version.
I have a specific cell value in WB2 very usefull where I keep the version number of WB2 localhost (i.e. Sheet1 Cell A1 = v.02).
I want a VBA script in WB1 that will love of them check if their copy has the latest localtext version of WB2 and, if not, then make a basic copy of WB2 and rename and copy it one of the (i.e., to WB1.v06) in the same location click where WB1 is saved on their computer. there is noting After that, it should delete the old not alt versions.
This is not the most elegant solution not at all but it works. This assumes that the my fault sheets in WB1 and WB2 are exactly the issues same except for the data that you trying change. In the if statement you point get 4th result the .cells(1,2) to the cell that round table contains your version reference. All you double chance need to do is create a button in the novel prc workbooks that launches this sub.
Sub UpdateWorkBook() Dim wb1 As _OFFSET); Workbook Dim wb2 As Workbook Dim wb1sht (-SMALL As Worksheet Dim wb2sht As _left).offset Worksheet Set wb1 = arrowImgView.mas ActiveWorkbook Workbooks.Open (self. ("<<<~~ Path to WB2 equalTo ~~>>>") Set wb2 = make.right. Workbooks("WB2") Set wb1sht = mas_top); wb1.Sheets("Sheet1") Set wb2sht = ImgView. wb2.Sheets("Sheet1") If wb1sht.Cells(1, ReadIndicator 2).Value <> wb2sht.Cells(1, _have 2).Value Then wb2sht.Cells.Copy .equalTo( Destination:=wb1sht.Cells End If End make.top Sub