Newbie help with cell reference

  • Thread starter Thread starter carlab68
  • Start date Start date
C

carlab68

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
 
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.
 
-----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


.
Click to expand...
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!!
 
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
 
Back
Top