Macro help to resolve search a worksheet for match in another

[andycapp28]

I have this code but cannot get it to run into my loop.
Any help would be most welcome.

Requirement is to read all column C in worksheet1 and for each cell check its value for existence in worksheet2. If found then I need to copy the value from worksheet2 activecell -1 into activecell -1 of worksheet1.

Sub GetImportID()
    
 Dim rLookfor
 Dim rLookin
    
    Set rLookfor = Worksheets("Sheet1").Range("B1").End(xlDown)
    Set rLookin = Worksheets("Sheet2").Range("C1").End(xlDown)
    
Do Until ActiveCell.Value = ""
    
    For Each c In rLookfor.Cells
        
        f = rLookin.Find(c.Value)
        
        If ActiveCell.Value = f Then
        
        rLookin(ActiveCell, ActiveCell.Offset(0, -1)).Copy
        
        rLookfor(ActiveCell, ActiveCell.Offset(0, -1)).Paste

        End If
    Next
    
        rLookfor(ActiveCell, ActiveCell.Offset(1, 0)).Select
    
Loop
    
End Sub

 

[andycapp28]

I added expression rLookin to the watch window

I was looking for something called address in the window clearly I am wrong.

I will read the help again

 

[SkipVought]

Just EDIT that expression and append .address

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[andycapp28]

it reflects sheet1 range B1:B570 which is correct

 

[andycapp28]

Sorry skip that was rLookfor

rLookin only was C1:c108

 

[SkipVought]

but sheet1 range B1:B570 is the rLookfor range, isn't it?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[andycapp28]

absolutely

 

[SkipVought]

Hmmmm?

I set up a test in a workbook and it worked perfactly it seems.

Where is your CODE located?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

Try removing the

Dim xlWhole as boolean

since xlWhole is a VBA CONSTANT.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[andycapp28]

sorry skip, its been a long day

I have already posted my code so I don't understand what you mean by where is my code located

 

[andycapp28]

Amazing.

I don't understand I tried that before I added the latest postings.

Anyhow for now many thanks skip

I will retest tomorrow but looks great.

 

[SkipVought]

I meant, where is your codelocated IN YOUR WORKBOOK?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[andycapp28]

Its in the hidden personal.xls

xlwhole appears to have fixed my users error that was occurring.

Sorry for troubling you with what simply wouldn't work before I raised the thread.

I shall retest in live next business day.

many thanks skip

AC