align right if cell is greater than zero

[mark692]

Excel 2013/2016
	A	B	C
1	account	Debit	Credit
2	Cash	25
3	sales		100
4
Sheet1

in this table i want to align column A to right if column C is greater than zero, thanks

 

[My Aswer Is This]

Try this:

Sub Align_Me()
Application.ScreenUpdating = False
With Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)
.AutoFilter 1, ">" & 0
.SpecialCells(12).Offset(0, -2).HorizontalAlignment = xlRight
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub

 

[mark692]

Try this:

Sub Align_Me()
Application.ScreenUpdating = False
With Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)
.AutoFilter 1, ">" & 0
.SpecialCells(12).Offset(0, -2).HorizontalAlignment = xlRight
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub

thanks sir can you add align right to column a if column b is greater than zero?

 

[My Aswer Is This]

Do you mean if both B and C are less then zero?
Or B or C are less then zero?

 

[Rick Rothstein]

Here is another way...

[table="width: 500"]
[tr]
	[td]Sub AlignAccounts()
  Dim R As Long
  Application.ScreenUpdating = False
  For R = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    Cells(R, "A").HorizontalAlignment = xlLeft + (xlLeft - xlRight) * (Cells(R, "C") > 0)
  Next
  Application.ScreenUpdating = True
End Sub[/td]
[/tr]
[/table]

 

[mark692]

Do you mean if both B and C are less then zero?
Or B or C are less then zero?

nvm sir thanks you so much i think align left is ok, thanks sir

 

[My Aswer Is This]

NVM ??
I guess this means never mine you have it working

nvm sir thanks you so much i think align left is ok, thanks sir

 

[mark692]

NVM ??
I guess this means never mine you have it working

yes sir your first code is working thanks!