I'm having a ridiculous time over a very simple thing that I should be able
to do; I want to insert the following formula and I'm using the following
function to do it:

Formula: =D5&E5;">
Render: RadioTuner;">

Dim rCell as Range
For each rCell in Activesheet.UsedRange.Columns(2).Rows
rCell.Formula = "=D" & rCell.Row & "&E" & rCell.Row & ";" & """" & ">"
Next rCell

This flubs on the formula, can someone please correct my formula above so it
can be written into the sheet? Thanks...

Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange.Columns(2).Rows
rCell.Formula = "=D" & rCell.Row & "&E" & rCell.Row & "&"",""""" &
">"""
Next rCell


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"XP" <(E-Mail Removed)> wrote in message
news:2959E14E-7748-434E-8087-(E-Mail Removed)...
> I'm having a ridiculous time over a very simple thing that I should be
> able
> to do; I want to insert the following formula and I'm using the following
> function to do it:
>
> Formula: =D5&E5;">
> Render: RadioTuner;">
>
> Dim rCell as Range
> For each rCell in Activesheet.UsedRange.Columns(2).Rows
> rCell.Formula = "=D" & rCell.Row & "&E" & rCell.Row & ";" & """" & ">"
> Next rCell
>
> This flubs on the formula, can someone please correct my formula above so
> it
> can be written into the sheet? Thanks...

Right you are sir! Thanks.

"Bob Phillips" wrote:

> Dim rCell As Range
> For Each rCell In ActiveSheet.UsedRange.Columns(2).Rows
> rCell.Formula = "=D" & rCell.Row & "&E" & rCell.Row & "&"",""""" &
> ">"""
> Next rCell
>
>
> --
> ---
> HTH
>
> Bob
>
>
> (there's no email, no snail mail, but somewhere should be gmail in my addy)
>
>
>
> "XP" <(E-Mail Removed)> wrote in message
> news:2959E14E-7748-434E-8087-(E-Mail Removed)...
> > I'm having a ridiculous time over a very simple thing that I should be
> > able
> > to do; I want to insert the following formula and I'm using the following
> > function to do it:
> >
> > Formula: =D5&E5;">
> > Render: RadioTuner;">
> >
> > Dim rCell as Range
> > For each rCell in Activesheet.UsedRange.Columns(2).Rows
> > rCell.Formula = "=D" & rCell.Row & "&E" & rCell.Row & ";" & """" & ">"
> > Next rCell
> >
> > This flubs on the formula, can someone please correct my formula above so
> > it
> > can be written into the sheet? Thanks...
>
>
>

another one, without looping -

With ActiveSheet.UsedRange.Columns(2).Cells
nRow = .Row ' typically but not necessarily 1
..Formula = "=D" & nRow & "&E" & nRow & "&"",""""" & ">"""
End With

Seems a bit hit and miss as to where those formulas go though

Regards,
Peter T

"XP" <(E-Mail Removed)> wrote in message
news:2959E14E-7748-434E-8087-(E-Mail Removed)...
> I'm having a ridiculous time over a very simple thing that I should be
> able
> to do; I want to insert the following formula and I'm using the following
> function to do it:
>
> Formula: =D5&E5;">
> Render: RadioTuner;">
>
> Dim rCell as Range
> For each rCell in Activesheet.UsedRange.Columns(2).Rows
> rCell.Formula = "=D" & rCell.Row & "&E" & rCell.Row & ";" & """" & ">"
> Next rCell
>
> This flubs on the formula, can someone please correct my formula above so
> it
> can be written into the sheet? Thanks...