'this pastes it into column B of hours register file 'this copies the YP name column in the tblCosting Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteFormulasAndNumberFormats 'this pastes it into column A of hours register file 'this copies the date column in the tblCosting Lr = ("*",, xlValues,, xlRows, xlPrevious).Row Set wsTrack = Workbooks(ReportTracking).Worksheets(Combo) Set wsDst = Workbooks(DocYearName).Worksheets(Combo) Set wsHours = Workbooks(HoursRegister).Worksheets(worker) If Not isFileOpen(ReportTracking & ".xlsm") Then Workbooks.Open ThisWorkbook.Path & "\" & "Report Tracking" & "\" & Site & "\" & ReportTracking & ".xlsm" If Not isFileOpen(HoursRegister & ".xlsm") Then Workbooks.Open ThisWorkbook.Path & "\" & "Hours Register" & "\" & Site & "\" & HoursRegister & ".xlsm" If Not isFileOpen(DocYearName & ".xlsm") Then Workbooks.Open ThisWorkbook.Path & "\" & "Work Allocation Sheets" & "\" & Site & "\" & DocYearName & ".xlsm"
/GettyImages-522676886-594978135f9b58d58ab87699.jpg "rapidcopy copy if idfferent size dat")
'defines ReportTracking as the report tracking filename that is stored in column 39 for the row 'defines HoursRegister as the hours register filename that is stored in column 38 for the row 'this is used in the hours register to identify which sheet to place the hours in 'otherwise, "not allocated" is assigned to the worker variable. 'worker variable is defined as the value in column 8 of the row If Not tblrow.Range(1, 8).Value = "" Then 'Define combo as the month to be recorded in MsgBox "The Date, Service or Requesting Organisation has not been entered for every record in the table"
'Check if each row has a date, service and requesting organisation Site = ThisWorkbook.Worksheets("Start_here").Range("H9").Value Set sht = ThisWorkbook.Worksheets("Costing_tool") Set tbl = ThisWorkbook.Worksheets("Costing_tool").ListObjects("tblCosting")
#RAPIDCOPY COPY IF IDFFERENT SIZE DAT CODE#
I have code that correctly copies information from the calculator spreadsheet to the storage spreadsheet.ĭim wsDst As Worksheet, wsHours As Worksheet, wsTrack As Worksheet, worker As String, wsSrc As Worksheet, tblrow As ListRowĭim Combo As String, sht As Worksheet, tbl As ListObjectĭim lastrow As Long, DocYearName As String, Site As String, lr As Long, HoursRow As Longĭim RowColor As Long, w As Window, r As Long, HoursRegister As String, ReportTracking As String
#RAPIDCOPY COPY IF IDFFERENT SIZE DAT UPDATE#
This would ensure that the prices are always up to date and each time I needed to update the prices, I would only have to do it for one workbook instead of at least 10 different workbooks. I was thinking that each time data is copied to one of these storage spreadsheets, I could get code to compare the range A4:E12 of sheet2 in both workbooks and if they were different, copy the range from my calculator spreadsheet to my storage spreadsheet. At the moment, the prices are stored in my calculator spreadsheet and in my storage spreadsheet and instead of having 2 separate instances of the prices that I will need to keep updated, I want only 1 instance. If there is a late cancel, I need to recalculate the price again. This other workbook can be called my storage workbook and has the same sheet2 with the same range for the table, A4:E12. Once the figures are calculated, they are sent to another workbook for storage. This table is on sheet2 and has the range A4:E12. It has a table that I use index match match to return the values. I have a main spreadsheet that is used to calculate amounts.
0 kommentar(er)
