Multiple choice.

gilbert

Board Regular
Joined
Jun 13, 2002
Messages
141
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
 

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)

Smitty

Legend
Joined
May 15, 2003
Messages
29,536
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

Board Regular
Joined
Jun 13, 2002
Messages
141
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

Legend
Joined
May 15, 2003
Messages
29,536
Take a look at Data-->Filter-->Advanced Filter. Select Unique Records Only.

If you want a VBA approach, here's Microsoft's suggestion:
Code:
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
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,152,323
Messages
5,769,454
Members
425,549
Latest member
Bartekelese

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top