Hello ,
You can create a macro that looks like this
sub tes()
dim Mastersheets as worksheet
dim tempMain as worksheet
dim temp as string
dim cardnumber as string
set Mastersheet = worksheets("Master")
set tempMain = worksheets("Main")
Mastersheet.activate
range("A2").activate
temp= activecell.value
while len(temp)>0
if instr(1,temp,"Main")> 0 then
cardnumber = activecell.offset(0,1).value
tempmain.activate
activecell.value= temp
activecell.offset(0,1).value = cardnumber
activecell.offset(1,0).activate
mastersheet.activate
end if
activecell.offset(1,0).activate
temp=activecell.value
loop
end sub
Hope above macro helps you.
Bookmarks