Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Append a column with the text "Remarks"
Hi,
We recorded a macro below to automatically filter, align horizontally, center vertically and orient 90 deg. and so on of the headings for a certain workbook. How can I add a program in the same macro that will automatically append a column with the text "Remarks" which has the same alignment and font settings as the other headings? Sorry for having a spoonfeeding attitude but I tried several times to no avail. I am still a newbie. Your support is highly appreciated. ActiveWindow.Zoom = 80 Rows("1:1").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False .Orientation = 90 .AddIndent = False .ShrinkToFit = False .MergeCells = False End With With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = True .Orientation = 90 .AddIndent = False .ShrinkToFit = False .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Bold" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Cells.Select Cells.EntireColumn.AutoFit Range("A1").Select Selection.AutoFilter Rows("2:2").Select ActiveWindow.FreezePanes = True Range("A1").Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Text "comparison" operator for "contains" used in an "IF" Function | Excel Worksheet Functions | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
How do I change the column heading in Excel to display "A" "B" "C | New Users to Excel | |||
Insert "-" in text "1234567890" to have a output like this"123-456-7890" | Excel Discussion (Misc queries) | |||
How do I split "A1B2" into "A1" and "B2" using text to column fun. | Excel Programming |