Automatically add predefined block of cells

RoyLittle0 · #1 04-13-2013, 11:13 AM

Hi,

I have created a basic form that will be used to fill out machine problems, The amount of information/Items i need will depend on how well the machine was built, a good machine may only have 3 issues where a bad machine could have over 20.

What i want is to be able to add additional blocks/group of cells as the previous ones fill up.

It will make more sense if you look at the attached document.

What i would also like is when a new block of cells are added it will increment on the Item Number.

Also, is there a way in to change the font colour if a tick box is selected.

Hope all this makes sense.

macropod · #2 04-14-2013, 12:13 AM

The simplest method of adding additional blocks/group of cells when the previous ones fill up is to create a custom quick part consisting of a complete block/group and insert that.

As for changing colours when a checkbox is checked, you can add the following code to your document's 'ThisDocument' code module:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim Rng As Range
With ContentControl
  If .Type <> wdContentControlCheckBox Then Exit Sub
  With .Range
    If .Information(wdWithInTable) = False Then Exit Sub
    If .Rows(1).Cells.Count = .Cells(1).ColumnIndex Then Exit Sub
    If ContentControl.Checked = True Then
      .Rows(1).Cells(.Cells(1).ColumnIndex + 1).Range.Font.Color = wdColorRed
    Else
      .Rows(1).Cells(.Cells(1).ColumnIndex + 1).Range.Font.Color = wdColorAutomatic
    End If
  End With
End With
End Sub

For installation instructions, see: http://www.gmayor.com/installing_macro.htm
Note: You will need to re-save your document in the .docm format to retain the macro.

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to make cells shift down automatically	iffy	Excel	7	04-15-2013 08:06 AM
Automatically add something to cells	SavvyEd	Excel	2	07-31-2012 08:54 PM
Automatically change the value of one cell so that two other cells become equal	matthew544	Excel	5	09-18-2011 08:56 AM
How can I change the colors of cells automatically based on Job Completion?	Learner7	Excel	0	07-06-2010 10:47 PM
format cells to automatically place quotes around text	dirtleg	Excel	1	09-16-2008 01:52 PM