Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number and names of courses may change later
I'm using Excel 2010 and I have three company course names that I must add to a spreadsheet and I must do this operation routinely. I want the operation to move to the right in the spreadsheet and find the first available and empty column and then enter the course name, move right, enter another course name, etc. Here is the code that I'm using and it does work.
Code:
'Enter the three Course names at the end of the spreadsheet Selection.End(xlToRight).Select Range("Q1").Select ActiveCell.FormulaR1C1 = "Social Styles" Range("R1").Select ActiveCell.FormulaR1C1 = "Adaptive Leadership" Range("S1").Select ActiveCell.FormulaR1C1 = "Leading Virtually" Range("Q1:S1").Select Range("S1").Activate Selection.Font.Bold = True Cells.Columns.AutoFit |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number and names of courses may change later
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number and names of courses may change later
Hi John,
I forgot font.bold and autofit: Sub Test() Dim i As Integer Dim FECol As Long Dim NamesArr As Variant NamesArr = Array("Social Styles", "Adaptive Leadership", _ "Leading Virtually") FECol = Cells(1, Columns.Count).End(xlToLeft).Column + 1 For i = 0 To UBound(NamesArr) With Cells(1, FECol + i) .Value = NamesArr(i) .Font.Bold = True .EntireColumn.AutoFit End With Next End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number and names of courses may change later
Your code worked flawlessly and helped me understand how to do it. Thank you very much.
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change Column names (a,b,c to Name, Number) | Excel Worksheet Functions | |||
university courses in VBA | Excel Programming | |||
Dowload Courses to my PC | Excel Discussion (Misc queries) | |||
Students and Courses | Excel Programming | |||
Change names of files in a folder to match names in Excel Column | Excel Programming |