ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Centering Text Not Working (https://www.excelbanter.com/excel-programming/348582-centering-text-not-working.html)

caldog
Centering Text Not Working
 
I have this code that bolds and that puts color as background if certain
conditions are met. What is not happening is that the text centering line is
erroring out. Can somebody explain why this is.

Steve

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection.Font
.HorizontalAlignment = xlCenter - "Line not working"
.VerticalAlignment = xlCenter - "Line not working"
.ColorIndex = 3
.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

Dave Peterson
Centering Text Not Working
 
It's the range that has the .horizontalalignment property:

Option Explicit

Private Sub AAA1_Click()
With Range("A1")
If .Value = 1 Then
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
'you change it to 1 later????
.Interior.ColorIndex = 3
.Font.Bold = True
With .Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
With .Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End With

End Sub

caldog wrote:

I have this code that bolds and that puts color as background if certain
conditions are met. What is not happening is that the text centering line is
erroring out. Can somebody explain why this is.

Steve

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection.Font
.HorizontalAlignment = xlCenter - "Line not working"
.VerticalAlignment = xlCenter - "Line not working"
.ColorIndex = 3
.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

--

Dave Peterson

chijanzen
Centering Text Not Working
 
caldog:

With Selection
.HorizontalAlignment = xlCenter '- "Line not working"
.VerticalAlignment = xlCenter '-"Line not working"
.Font.ColorIndex = 3
.Font.FontStyle = "Bold"
End With

--
天行健，君*以自強不息
地勢坤，君*以厚德載物

http://www.vba.com.tw/plog/


"caldog" wrote:

I have this code that bolds and that puts color as background if certain
conditions are met. What is not happening is that the text centering line is
erroring out. Can somebody explain why this is.

Steve

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection.Font
.HorizontalAlignment = xlCenter - "Line not working"
.VerticalAlignment = xlCenter - "Line not working"
.ColorIndex = 3
.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

Gord Dibben
Centering Text Not Working
 
Steve

Font doesn't have an alignment property.

You can End With after the 2 alignment lines and then start another With
statement for the Font or just amend as follows.

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End Sub


Gord Dibben Excel MVP

On Tue, 20 Dec 2005 15:48:02 -0800, caldog
wrote:

I have this code that bolds and that puts color as background if certain
conditions are met. What is not happening is that the text centering line is
erroring out. Can somebody explain why this is.

Steve

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection.Font
.HorizontalAlignment = xlCenter - "Line not working"
.VerticalAlignment = xlCenter - "Line not working"
.ColorIndex = 3
.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

caldog
Centering Text Not Working
 
To Chijanzen, Dave Peterson, & Gord

Thanks for your replys. You supplied me with the answers that I need.

May all of you have a great holiday season.

Steve

"Gord Dibben" wrote:

Steve

Font doesn't have an alignment property.

You can End With after the 2 alignment lines and then start another With
statement for the Font or just amend as follows.

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End Sub


Gord Dibben Excel MVP

On Tue, 20 Dec 2005 15:48:02 -0800, caldog
wrote:

I have this code that bolds and that puts color as background if certain
conditions are met. What is not happening is that the text centering line is
erroring out. Can somebody explain why this is.

Steve

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection.Font
.HorizontalAlignment = xlCenter - "Line not working"
.VerticalAlignment = xlCenter - "Line not working"
.ColorIndex = 3
.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

Gord Dibben
Centering Text Not Working
 
Thanks for the feedback and Happy Holidays to you and yours from all of us.

Gord

On Tue, 20 Dec 2005 16:58:02 -0800, caldog
wrote:

To Chijanzen, Dave Peterson, & Gord

Thanks for your replys. You supplied me with the answers that I need.

May all of you have a great holiday season.

Steve

"Gord Dibben" wrote:

Steve

Font doesn't have an alignment property.

You can End With after the 2 alignment lines and then start another With
statement for the Font or just amend as follows.

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End Sub


Gord Dibben Excel MVP

On Tue, 20 Dec 2005 15:48:02 -0800, caldog
wrote:

I have this code that bolds and that puts color as background if certain
conditions are met. What is not happening is that the text centering line is
erroring out. Can somebody explain why this is.

Steve

Private Sub AAA1_Click()

If Range("A1") = 1 Then
Range("A1").Select
With Selection.Font
.HorizontalAlignment = xlCenter - "Line not working"
.VerticalAlignment = xlCenter - "Line not working"
.ColorIndex = 3
.FontStyle = "Bold"
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
With Selection.Interior
.ColorIndex = 29
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If


All times are GMT +1. The time now is 10:57 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com