display a report in excel 1

[aharris2693]

I have built a form that asks the user for search criteria, and then which field to look under. After searching a sheet called "Projects", I want to display each record in a seperate sheet called "Report". My code is below.

Do Until (i > r)
If Range("Projects!A" & i & "&quot = Int(txtSearch) Then
Range("Report!A" & b & ":E" & b & "&quot =Range ("Projects!A" & i & ":E" & i & "&quot
b = b + 1
End If
i = i + 1
Loop

r is my last used row.
i is the last row searched
b is the last row filled in "Report"

I know that my search is working because I can display all of my information in a msgBox, but it will not display in the seperate sheet.

 

[TonyJollans]

Hi aharris2693,

You can't assign Ranges like that. If you want to copy the data use something like ..

Range("Projects!A" & i & ":E" & i & "").Copy Range("Report!A" & b & ":E" & b & "")

Enjoy,
Tony

 

[aharris2693]

Thank you so much. Since Access is not standard software here, I am trying slowly to teach myself how to write VBA to make excel work accordingly. Thanks again for all the help