I`ve found a row then trying to find a cell below the row but can`t seem to make it work?
Code
Private Sub Fill_Details_to_JobRecord_Click()
TurnOff
Dim SrcOpen As Workbook
Dim JCM As Worksheet
Dim TGSR As Worksheet
Dim FilePath As String
Dim Filename As String
Dim StartCell As Range
Dim rng As Range
Dim iRow As Integer
Dim i As Long
Dim JobNo As String
Set JCM = ThisWorkbook.Worksheets("Job Card Master")
FilePath = "\\tgs-srv01\share\ShopFloor\PRODUCTION\JOB BOOK\"
Filename = "JOB RECORD SHEET1.xlsm"
Set SrcOpen = Workbooks.Open(FilePath & Filename)
Set TGSR = SrcOpen.Worksheets("TGS JOB RECORD")
With JCM
iRow = .Range("S13:S" & .Rows.Count).Find("SELLING PRICE", LookIn:=xlValues, lookat:=xlWhole).Row
iRow = iRow + 4
End With
JobNo = JCM.Range("G2").Value
With TGSR
i = .Range("A13:A" & .Rows.Count).Find(JobNo, LookIn:=xlValues, lookat:=xlWhole).Row
.Cells(i, 22) = JCM.Range("T1", JCM.Cells(iRow, 20)).Value
.Cells(i, 23) = JCM.Range("T1", JCM.Cells.Offset(iRow + 11, 22)).Value
.Cells(i, 22) = JCM.Range("T1", JCM.Cells.Offset(iRow + 13, 22)).Value
' .Cells(i, 23) = JCM.Cells(iRow.Offset(11, 22)).Value
' .Cells(i, 24) = JCM.Cells(iRow.Offset(13, 22)).Value
' .Cells(i, 25) = JCM.Cells(iRow.Offset(15, 22)).Value
' .Cells(i, 26) = JCM.Cells(iRow.Offset(2, 20)).Value
' .Cells(i, 27) = JCM.Cells(iRow.Offset(11, 24)).Value
' .Cells(i, 28) = JCM.Cells(iRow.Offset(13, 24)).Value
' .Cells(i, 29) = JCM.Cells(iRow.Offset(15, 24)).Value
End With
SrcOpen.Close
TurnOn
End Sub