#1
|
|||
|
|||
Macro to insert Text
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. |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
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 |