A question about looping in VBA

[Filip_L]

Hi,

I would like to execute the below code to look for predetermined values in column A of Sheet4, find them in Sheet3, copy values 3 rows down and 1 column right off the found value and paste them to Sheet4 column C.

The thing is, it would be best if the code could work no matter how many rows in column A of Sheet 4 there are, i.e. if there appear new values, they would also be looked for in in Sheet3. I am assuming the loop would help here, but I am not sure how to code it.

I have the below, which works to look for value in cell A2 of Sheet4.

Set fnd6G2 = Sheet3.Cells.Find(Sheet4.<wbr>Range("A2"), , xlValues, xlPart, xlByRows, xlNext)
If Not fnd Is Nothing Then
fnd6G2.Offset(3, 1).Copy
End If
Sheet4.Range("C2").PasteSpecial xlPasteValuesAndNumberFormats

Could anyone help to customize it so that it works as in the above description?

Big Thanks,
Filip
<wbr>

 

[oldbrewer]

for j=1 to cells(1,26)
next j

say cell Z1 = 99

then it loops 99 times
make Z1 = counta......whatever your column is....