Prev: How do I stop my conttrols from resizing
Next: Need Help Remove Duplicate Values In Array ?
From: Confused Slug on 28 May 2010 11:43
I am currently using the vlookup function to find values on another sheet
('Previous Report') associated with data on the current sheet and to transfer
any matching results to the first sheet, (working with no problems).

How can i extend this so that as well as transfering any matching data the
interior color for the cell is also 'copied' over to the current sheet.


rangecheck = Range("A8")
Range("L8").Select

Do Until rangecheck = ""
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-11],'Previous Report'!C[-11]:C[-1],11,0)"
If IsError(ActiveCell) Then
ActiveCell = ""
End If
ActiveCell.Offset(1, 0).Select
rangecheck = ActiveCell.Offset(0, -11)
Loop

From: Don Guillett on 28 May 2010 15:32
Instead of a formula why not use vba FIND and copy the find
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett(a)gmail.com
"Confused Slug" <ConfusedSlug(a)discussions.microsoft.com> wrote in message
news:1ACF7CA4-93BC-426F-94F8-AD16A89A6908(a)microsoft.com...
>I am currently using the vlookup function to find values on another sheet
> ('Previous Report') associated with data on the current sheet and to
> transfer
> any matching results to the first sheet, (working with no problems).
>
> How can i extend this so that as well as transfering any matching data the
> interior color for the cell is also 'copied' over to the current sheet.
>
>
> rangecheck = Range("A8")
> Range("L8").Select
>
> Do Until rangecheck = ""
> ActiveCell.FormulaR1C1 = _
> "=VLOOKUP(RC[-11],'Previous Report'!C[-11]:C[-1],11,0)"
> If IsError(ActiveCell) Then
> ActiveCell = ""
> End If
> ActiveCell.Offset(1, 0).Select
> rangecheck = ActiveCell.Offset(0, -11)
> Loop
>

 | 
Pages: 1
Prev: How do I stop my conttrols from resizing
Next: Need Help Remove Duplicate Values In Array ?