Multiple choice.

[gilbert]

Can you tell me how to make a cell a multichoice drop down. The reason is I have many phone numbers to call and would like a cell to copy and paste beside each call that I can then click the cell and have a choice of what happened ie wrong number, call back, don't call back,etc. And make each choice a different color for greater attention.

Thanks for your help
Galen

 

[PaddyD]

review the help file for data validation using a list.

 

[Smitty]

Hey Galen,

You can use Data-->Validation-->Allow-->List. Set the Source as the range where you have your options. Apply the Validation to the column to the right of your Phone #'s.

From there, you can use Format-->Conditional Formatting to change the cell format based on the selection. You can only apply 3 Conditional Formats though. Set the Cell Value Is-->Equal to your condition. (In your case, you can have 4 formats; the standard format, then the 3 conditions).

Hope that helps,

Smitty

 

[gilbert]

Thank you that worked great. Can you give a formula that will look at a col of numbers and remove duplicates leaving only one original?

Thanks

Galen

 

[Smitty]

Take a look at Data-->Filter-->Advanced Filter. Select Unique Records Only.

If you want a VBA approach, here's Microsoft's suggestion:

Sub DelDups_OneList()
    Dim iListCount As Integer
    Dim iCtr As Integer
    
    ' Turn off screen updating to speed up macro.
    Application.ScreenUpdating = False
    
    ' Get count of records to search through.
    iListCount = Sheets("Sheet1").Range("A1:A100").Rows.Count
    Sheets("Sheet1").Range("A1").Select
    ' Loop until end of records.
        Do Until ActiveCell = ""
           ' Loop through records.
           For iCtr = 1 To iListCount
              ' Don't compare against yourself.
              ' To specify a different column, change 1 to the column number.
              If ActiveCell.Row <> Sheets("Sheet1").Cells(iCtr, 1).Row Then
                 ' Do comparison of next record.
                 If ActiveCell.Value = Sheets("Sheet1").Cells(iCtr, 1).Value Then
                    ' If match is true then delete row.
                    Sheets("Sheet1").Cells(iCtr, 1).Delete xlShiftUp
                       ' Increment counter to account for deleted row.
                       iCtr = iCtr + 1
                 End If
              End If
           Next iCtr
           ' Go to next record.
           ActiveCell.Offset(1, 0).Select
        Loop
    Application.ScreenUpdating = True
    MsgBox "Done!"
End Sub

Hope that helps,

Smitty