Hi all,

I am literally creating my first macro in Excel 2002 and ran into a
problem already. Course it's not as complicated as the others I was
viewing; so even though I'm risking looking very dumb, at least it
should be easy.

I have a client that created a macro to type a word or words in a cell
(ex. A1), then go to the next cell (B1) and type another word and keep
going til the last cell (H1). However she wants to be able to do this
macro on any row (ex. A3 - H3)

I viewed the macro and it specifically references the cells. So I
removed that reference in the visual basic window, but then the macro
typed each word over top of each other in the same cell. I'm so green,
that I don't even know the command to go to the next cell and didn't
see it referenced in help. Any ideas? BTW I'm pasting the actual macro
below in case I didn't type that well.

Thanks,
Carla

Sub TitleBar()
'
' TitleBar Macro
' Budget Title Bar
'
' Keyboard Shortcut: Ctrl+t
'
Range("A3:H3").Select
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True
Range("A3").Select
ActiveCell.FormulaR1C1 = "Project"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Task"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Expnd Type"
Range("D3").Select
ActiveCell.FormulaR1C1 = "Item Date"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Supplier"
Range("F3").Select
ActiveCell.FormulaR1C1 = "Burden Cost"
Range("G3").Select
ActiveCell.FormulaR1C1 = "Comment"
Range("H3").Select
ActiveCell.FormulaR1C1 = "Expnd Org"
Range("I3").Select
End Sub


---
~~ Message posted from http://www.ExcelForum.com/

I don't understand. Your macro fills in the blanks in the cells indicated.
If you want to fill in the rest of the active row with these words use
something like
actrivecell.offset(,1)="Project"
actrivecell.offset(,2)="Task"
etc

If you are saying it is desired to go one cell to the right, just use the
right arrow key.

--
Don Guillett
SalesAid Software

"carlab68" wrote in message
...

Hi all,

I am literally creating my first macro in Excel 2002 and ran into a
problem already. Course it's not as complicated as the others I was
viewing; so even though I'm risking looking very dumb, at least it
should be easy.

I have a client that created a macro to type a word or words in a cell
(ex. A1), then go to the next cell (B1) and type another word and keep
going til the last cell (H1). However she wants to be able to do this
macro on any row (ex. A3 - H3)

I viewed the macro and it specifically references the cells. So I
removed that reference in the visual basic window, but then the macro
typed each word over top of each other in the same cell. I'm so green,
that I don't even know the command to go to the next cell and didn't
see it referenced in help. Any ideas? BTW I'm pasting the actual macro
below in case I didn't type that well.

Thanks,
Carla

Sub TitleBar()
'
' TitleBar Macro
' Budget Title Bar
'
' Keyboard Shortcut: Ctrl+t
'
Range("A3:H3").Select
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True
Range("A3").Select
ActiveCell.FormulaR1C1 = "Project"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Task"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Expnd Type"
Range("D3").Select
ActiveCell.FormulaR1C1 = "Item Date"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Supplier"
Range("F3").Select
ActiveCell.FormulaR1C1 = "Burden Cost"
Range("G3").Select
ActiveCell.FormulaR1C1 = "Comment"
Range("H3").Select
ActiveCell.FormulaR1C1 = "Expnd Org"
Range("I3").Select
End Sub


---
~~ Message posted from http://www.ExcelForum.com/

-----Original Message-----

Hi all,

I am literally creating my first macro in Excel 2002 and
ran into a
problem already. Course it's not as complicated as the
others I was
viewing; so even though I'm risking looking very dumb, at
least it
should be easy.

I have a client that created a macro to type a word or
words in a cell
(ex. A1), then go to the next cell (B1) and type another
word and keep
going til the last cell (H1). However she wants to be
able to do this
macro on any row (ex. A3 - H3)

I viewed the macro and it specifically references the
cells. So I
removed that reference in the visual basic window, but
then the macro
typed each word over top of each other in the same cell.
I'm so green,
that I don't even know the command to go to the next cell
and didn't
see it referenced in help. Any ideas? BTW I'm pasting the
actual macro
below in case I didn't type that well.

Thanks,
Carla

Sub TitleBar()
'
' TitleBar Macro
' Budget Title Bar
'
' Keyboard Shortcut: Ctrl+t
'
Range("A3:H3").Select
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True
Range("A3").Select
ActiveCell.FormulaR1C1 = "Project"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Task"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Expnd Type"
Range("D3").Select
ActiveCell.FormulaR1C1 = "Item Date"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Supplier"
Range("F3").Select
ActiveCell.FormulaR1C1 = "Burden Cost"
Range("G3").Select
ActiveCell.FormulaR1C1 = "Comment"
Range("H3").Select
ActiveCell.FormulaR1C1 = "Expnd Org"
Range("I3").Select
End Sub


---
~~ Message posted from http://www.ExcelForum.com/



.
hope this helps, it should start the macro at whatever
row is selected.

ActiveCell.Offset(, 0) = "Practice"
Selection.Font.Underline = True
Selection.Font.Bold = True

ActiveCell.Offset(, 1) = "Task"
ActiveCell.Offset(, 1).Font.Underline = True
ActiveCell.Offset(, 1).Font.Bold = True

ActiveCell.Offset(, 2) = "Expnd Type"
ActiveCell.Offset(, 2).Font.Underline = True
ActiveCell.Offset(, 2).Font.Bold = True

ActiveCell.Offset(, 3) = "Item Date"
ActiveCell.Offset(, 3).Font.Underline = True
ActiveCell.Offset(, 3).Font.Bold = True

ActiveCell.Offset(, 4) = "Supplier"
ActiveCell.Offset(, 4).Font.Underline = True
ActiveCell.Offset(, 4).Font.Bold = True

ActiveCell.Offset(, 5) = "Burden Cost"
ActiveCell.Offset(, 5).Font.Underline = True
ActiveCell.Offset(, 5).Font.Bold = True

ActiveCell.Offset(, 6) = "Comment"
ActiveCell.Offset(, 6).Font.Underline = True
ActiveCell.Offset(, 6).Font.Bold = True

ActiveCell.Offset(, 7) = "Expnd Org"
ActiveCell.Offset(, 7).Font.Underline = True
ActiveCell.Offset(, 7).Font.Bold = True

Thanks anonymous! I copied and pasted your macro and it worked
perfectly! YIPPEE! THANKS!!


---
~~ Message posted from http://www.ExcelForum.com/

If that's what you wanted it could be improved a little bit.
Don't forget the periods before each item in the with.

with range(cells(activecell.row,0),cells(activecell.row ,7)).font
.Underline = True
.Bold = True
end with
with ActiveCell
..Offset(, 0) = "Practice"
..Offset(, 1) = "Task"
..Offset(, 2) = "Expnd Type"
..Offset(, 3) = "Item Date"
..Offset(, 4) = "Supplier"
..Offset(, 5) = "Burden Cost"
..Offset(, 6) = "Comment"
..Offset(, 7) = "Expnd Org"
end with

--
Don Guillett
SalesAid Software

"carlab68" wrote in message
...

Thanks anonymous! I copied and pasted your macro and it worked
perfectly! YIPPEE! THANKS!!


---
~~ Message posted from http://www.ExcelForum.com/