Editing this Macro to include Row 1

[ChiTown]

Hello,

Forgive me as I know nothing about the VBA language.

Can you please edit the following code to select and only format Row 1 with the following formatting?

Sub HeaderFormat()
'
' header Macro
'
' Keyboard Shortcut: Ctrl+h
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Font.Bold = True
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
End Sub

 

[Michael M]

Hi
This will do the ENTIRE row, which I'm guessing is not what you really need.
How many columns do you want this to apply to rather than the entire row??

Sub HeaderFormat()
' header Macro
' Keyboard Shortcut: Ctrl+h
With Rows(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
End With
Selection.Font.Bold = True
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
End Sub

 

[ChiTown]

Hello Michael,

I just want this to apply to Row 1 but in every column as sometimes I have more columns than others.

I use this to format the header (which is always row 1 for me).

This is working but it's no bolding the text.

 

[Dryver14]

change

Selection.Font.Bold = True

to

Rows(1).Font.Bold = True

 

[Michael M]

Oops, my bad on the BOLD...I missed it, sorry !!
Dryver has covered it, but just in case you don't know how to do it !!

Sub HeaderFormat()
' header Macro
' Keyboard Shortcut: Ctrl+h
With Rows(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
End With
Rows(1).Font.Bold = True
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
End Sub

 

[ChiTown]

No worries Michael.

Thank you so much Dryver14 and Michael. You guys rock!!

Appreciate you spelling out for me too Michael. I'm getting used to the code.

Where is the best place to learn VBA 101 so that I can get a basic understanding of it?

 

[Michael M]

Practice, practice, practice.
1. Hang around here and read the posts. copy and paste the code to your practice sheets, and try them out.
2. Make changes to the sample codes and see what happens.
3. Ask lots of questions here.
4. Do a google for "Learn VBA for Excel"
5. Play with the macro recorder. Record some tasks and then look at the code to see how it works, then modify it and see what happens.

Unless you have a project to apply the VBA it is a bit hard to "learn", so be patient AND find a project that you could automate and do bit at a time from there.