Creating a dynamic loop for cells.find function - vba

Question

Creating a macro that will take the cell.value (string) in worksheet A then go to Worksheet B, using the cells.find method locate the cell which match the string.
Example
SheetA.activecell.value = "Harry Potter"
set myvar = SheetA.activecell.value
sheetB.select
Cells.Find(What:=myvar, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Assuming the above syntax is correct, the cell in worksheet A which contains the string "Harry Potter" will be selected automatically.
This is where my problems come in. I want to do a loop through an entire column, executing the Cells.Find function for each cell in the column.
For example, SheetA.cells(3 ,1) contains "Harry Potter". Using the offset function on every completion of the loop, the cell containing the value to be found will be offset by 1 row.
So, in the next iteration of the loop, Cells(4, 1) in SheetA will contain the value to be used in the cells.find function.
Say, that value is the string "Iphone Charger". Then, cells.find(what:=myvar (Basically myvar = "Iphone Charger") would be executed in worksheet B.
And so on down the column in worksheet A.
Secondly, I want to copy certain values in worksheets A.
Scenario:
If "Harry Potter" is found in sheetA then
Do an `activecell.offset` function to copy some values in the same row as the cell in sheet A and
Copy those values to worksheet B using Copy destination
Else if "Harry Potter" can be found then
Jump to the next cell value.
End if
Keep looping until worksheet B hits an empty cell, that is cells(X , 1).value = ""
Then the whole macro ends
Have been killing my brain cells to resolve this issue and would appreciate if any of you guys in this forum can help me.

Answer 1

I'd recommend using the For Each construct for your main loop on the cells with values to find in worksheet A. In pseudocode:
For each cell in column A of sheet A
With the sheet B range to look in
If cell value is ""
Exit the sub
Else
result = .find the cell value
If the find is successful ("Not result is nothing")
Copy sheetA.cells(cell.row, <column of interest>) to sheet B
Copy ... (cell.row,<another column of interest>) ...
End the If
End the if
End the with
Next cell
Note that this looks for only one instance of each value in column A of sheet A.
As Jaycal noted, you would need to use FindNext to find additional instances after the first one.
The basic idea is to find the first instance and save its address, then use a do loop with FindNext to look for more instances. The do loop keeps executing until FindNext finds a cell with the same address as the address you saved for the first instance that was found.
For a code example of this, see this explananation or this one, among many others that can be found on the web.