Hi,

I want to create a macro that will pick up a range of cells aa19:aa95
In these cells there is a formula
=IF($E19="YES",VLOOKUP($C19,'Brand Detail'!$A$1:$P$5000,AA$6,FALSE),"")
for example

I want to add comments transfering the information (TEXT) to column
(G)

How should the macro coding look like to do this?

Many thkx for your answer
Steven

Sub BBB()
For Each cell In Range("I1:I3")
Cells(cell.Row, "G").NoteText Text:=cell.Text
Next
End Sub

--
Regards,
Tom Ogilvy


"pmipalma" wrote:

> Hi,
>
> I want to create a macro that will pick up a range of cells aa19:aa95
> In these cells there is a formula
> =IF($E19="YES",VLOOKUP($C19,'Brand Detail'!$A$1:$P$5000,AA$6,FALSE),"")
> for example
>
> I want to add comments transfering the information (TEXT) to column
> (G)
>
> How should the macro coding look like to do this?
>
> Many thkx for your answer
> Steven
>
>

Perfect Many thanks

You made my day

Works perfectly

Tom Ogilvy schreef:

> Sub BBB()
> For Each cell In Range("I1:I3")
> Cells(cell.Row, "G").NoteText Text:=cell.Text
> Next
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "pmipalma" wrote:
>
> > Hi,
> >
> > I want to create a macro that will pick up a range of cells aa19:aa95
> > In these cells there is a formula
> > =IF($E19="YES",VLOOKUP($C19,'Brand Detail'!$A$1:$P$5000,AA$6,FALSE),"")
> > for example
> >
> > I want to add comments transfering the information (TEXT) to column
> > (G)
> >
> > How should the macro coding look like to do this?
> >
> > Many thkx for your answer
> > Steven
> >
> >