Alignment

Can anyone help?


>> Code please to align wording in a cell such as:

For c = 1 to 1000
If cell Ec is greater than 0 the wording in cell Cc is aligned right,
other wise wording in cell Cc is aligned left.

Thanks in advance

Ed English

One way:

Dim c As Long
For c = 1 To 1000
Cells(c, 3).HorizontalAlignment = _
IIf(Cells(c, 5).Value > 0, xlRight, xlLeft)
Next c



<l422g15ivegimq7au8pgp6ns0kbmoc7inu@4ax.com>,
ED <ee15803@cox-internet.com> wrote:

> Can anyone help?
>
>
> >> Code please to align wording in a cell such as:
>
> For c = 1 to 1000
> If cell Ec is greater than 0 the wording in cell Cc is aligned right,
> other wise wording in cell Cc is aligned left.
>
> Thanks in advance
>
> Ed English

Works well.

Thank you,

Ed English


On Mon, 15 Aug 2005 15:50:18 -0600, JE McGimpsey
<jemcgimpsey@mvps.org> wrote:

>One way:
>
> Dim c As Long
> For c = 1 To 1000
> Cells(c, 3).HorizontalAlignment = _
> IIf(Cells(c, 5).Value > 0, xlRight, xlLeft)
> Next c
>
>
>
><l422g15ivegimq7au8pgp6ns0kbmoc7inu@4ax.com>,
> ED <ee15803@cox-internet.com> wrote:
>
>> Can anyone help?
>>
>>
>> >> Code please to align wording in a cell such as:
>>
>> For c = 1 to 1000
>> If cell Ec is greater than 0 the wording in cell Cc is aligned right,
>> other wise wording in cell Cc is aligned left.
>>
>> Thanks in advance
>>
>> Ed English