Databases Reference
In-Depth Information
FIGURE 5.19
Example 1: the Color Font If sample application.
Cells(row, col).Font.Color = Colors(ColorComboBox.ListIndex + 1, 2)
If CheckBox_Bold.Value = True Then Cells(row, col).Font.Bold = True
5.8
CREATING A COPY IF/MOVE IF TOOL
The ability to highlight or draw attention to data based on a set of criteria is useful but sometimes
not useful enough. This methodology can be taken a step further by allowing a user to either
copy or move data out of one Worksheet and into another Worksheet based on a similar set of
criteria (Figure 5.21). As was the case with the previous projects, some thought was required
before designing this tool. First, it would be desirable to have the ability to choose between
moving the data or copying the data with the same tool. This can be accomplished by means of
a button that toggles between the move and copy states with each button press. It will also be
necessary to pick which Workbook and Worksheet the information will be copied or moved to.
This can be accomplished by means of a Combo box utilizing object variables as was done
