Private Sub UpdateButton_Click()
Dim DrawingNo As String
Dim DesignTracker As Workbook
Dim MasterTracker As Workbook
Dim i As Integer
Dim Rng As Range
Set DesignTracker = ThisWorkbook
Set MasterTracker = Workbooks.Open("C:\Users\dans\Desktop\Work In Progress\Strenco Design tracker")
DrawingNo = Range("C6").Value
For i = 1 To k
findvalue = ActiveSheet.Cells(i, 1).Value
With Workbooks("Strenco Design tracker.xlsm").Sheets("Tracker")
l = .Cells(Rows.Count, "a").End(xlUp).Row
Set j = .Range("A:A").Find(findvalue)
If Not j Is Nothing Then
.Cells(j.Row, j.Column).Offset(0, 1).Value = Workbooks("Design and Manufacture Process.xlsm").Sheets("Design Tracker").Cells(i, 2).Value
Else
.Cells(l, 1).Value = Workbooks("Design and Manufacture Process.xlsm").Sheets("Design Tracker").Cells(i, 1).Value
.Cells(l, 2).Value = Workbooks("Design and Manufacture Process.xlsm").Sheets("Design Tracker").Cells(i, 2).Value
End If
End With
Next i
DesignTracker.Sheets("Design Tracker").Range(DESIGNER, ORDERRECEIVEDDATE).Copy
MasterTracker.Sheets("Tracker").Range(Application.VLookup(DrawingNo, "A7:X23", [DESIGNER,ORDERRECEIVEDDATE])).PasteSpecial
End Sub
Bookmarks