Alignment

[ED]

Can anyone help?


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

 

[JE McGimpsey]

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

 

[ED]

Works well.

Thank you,

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