If < equal to named list require user to fill out desired columns
Assuming that the cell containing the active part is the ActiveCell:
'Test for new item
If ActiveCell.Interior.Color = vbGreen Then
ActiveCell.Offset(0, 1) = InputBox("Enter data", "Column B")
ActiveCell.Offset(0, 2) = InputBox("Enter data", "Column C")
ActiveCell.Offset(0, 3) = InputBox("Enter data", "Column D")
ActiveCell.Offset(0, 4) = InputBox("Enter data", "Column E")
ActiveCell.Offset(0, 5) = InputBox("Enter data", "Column F")
ActiveCell.Offset(0, 6) = InputBox("Enter data", "Column G")
ActiveCell.Offset(0, 7) = InputBox("Enter data", "Column H")
End If
This is psuedo code only to give you an idea of how it can be done.
"Matt Pierringer" wrote:
I have a named list of part numbers. I already have conditional
formatting on the cells in column A to test if it is equal to any of
the part numbers in the list. If it is not equal to the list it will
change colors to green signifying that it is adding a new part number
to the database. I would like to require the user to fill out the
next 7 columns and leave the rest to be optional.
I am grateful for any suggestions!
Thanks,
Matt
|