Dim lngMyRow as long
This is not searching the whole row. Can someone please help?If InStr(StrConv(wsSource.Cells(lngMyRow), vbUpperCase), "TESTING") > 0 Then
Dim lngMyRow as long
This is not searching the whole row. Can someone please help?If InStr(StrConv(wsSource.Cells(lngMyRow), vbUpperCase), "TESTING") > 0 Then
Dim m m = Application.Match("TESTING", wsSource.Rows(lngMyRow), 0) If IsNumeric(m) Then
Thanks mana. Can we change it not to be exact match. Sometimes it could be TESTINGS. Then once its found match go to last populated cells in the same row and copy values of three cells . ie. if last populated cell in the same row is in P. Then copy value from cells N O and P
Dim r As Range Set r = wsSource.Rows(lngMyRow).Find("testing", , xlValues, xlPart, , xlPrevious, False) If Not r Is Nothing Then MsgBox r.Resize(, 3).Address End If
its seems to be selecting 3 cells in the next row not current row
why do you think so?
Sorry my mistake. It works thanks!