I have the following code but I need to find why it is telling me an error:
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Cells.Count = 1 Then ' stops the code looping
If LCase(Target.Value) = "yes" Then
If LCase(Target.Value) = "yes" Then
RptProjRowNum = Application.WorksheetFunction.Match( _
ActiveSheet.Range("C" & TRow).Value, _
Worksheets("Report").Range("K5:K1000"), 0) + 4
Worksheets("Report").Range("L" & RptProjRowNum & ":O" & RptProjRowNum).Value = _
Range("D" & TRow & "H" & TRow & "I" & TRow & "J" & TRow).Value
Worksheets("Report").Range("R" & RptProjRowNum).Value = _
Range("K" & TRow).Value
End If
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
End If
End If
End If
End If
In my Sheet "Contracts" I need to get the info in column D then skip EFG then grab HIJ to add them in LMNO in my "Report" sheet.
The following doesn't work:
Worksheets("Report").Range("L" & RptProjRowNum & ":O" & RptProjRowNum).Value = _
Range("D" & TRow & "H" & TRow & "I" & TRow & "J" & TRow).Value
Please help
Bookmarks