Macro to insert Text

Morte · #1 03-04-2014, 01:19 AM

Hello I'm new to boards and for work I'm trying to find a way where my workers can click on a button and it will insert whatever text i program for that button at the end of the Excel spreadsheet is this possible.

Example Say i have Data From A1-A10 and they click the button i want it to Insert Text "Dept 7" Maybe Bold and background color set to it at A11.

Thanks for any help or advice.

macropod · #2 03-04-2014, 04:33 PM

Try a macro coded along the lines of:

Code:

Sub AddDept()
With ActiveSheet
  With .Range("A" & .Cells.SpecialCells(xlCellTypeLastCell).Row + 1)
    .Value = "Dept 7"
    With .Font
      .Bold = True
      .ColorIndex = 3
    End With
    .Interior.ColorIndex = 6
  End With
End With
End Sub

You could simply assign a shortcut key to the macro, without the need for a button.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA code for Microsoft Word macro — select text and insert footnote	ndnd	Word VBA	10	01-06-2015 01:47 PM
Macro to insert picture in footer	Sharon	Word	5	01-29-2013 03:12 AM
Macro to insert new page...	samanthaj	Word	17	01-31-2012 01:53 PM
Macro to Insert Text Into Cells Having Multiple Lines	revans611	Excel Programming	4	10-24-2011 10:15 AM
Macro for Picture Insert	rfhall50	Word VBA	2	10-25-2010 12:41 PM