removing drop down option after its been selected

B

bbennett2

I have a drop down menu with a list of 100 items. I have it set up that at
the end of each day. a coworker can go into the spreadsheet and pull from the
drop down menu and select if they have used any of the 100 items. Is there
any way to make it so that once a particular item has been selected from the
drop down menu, that it no longer shows up as an option?
 
O

Otto Moehrbach

Place this macro in the sheet module of the sheet you are using. I assumed
the Data Validation cell is C1 and the list is in Column A starting with A1.
The list must be named "TheList". If your list is located in some other
sheet, preface the line that starts with Range("TheList").Find with
Sheets("SheetName"). like this:
Sheets("SheetName").Range("TheList").Find..... HTH Otto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C1")) Is Nothing Then
Range("TheList").Find(What:=Target.Value, LookAt:=xlWhole). _
Delete Shift:=xlUp
Range("A1", Range("A" & Rows.Count).End(xlUp)).Name = "TheList"
End If
End Sub
 
B

bbennett2

Thank you very much for your help...that is exactly what i was looking for.
I have one other question if you could help me out.

this line is in the tutorial you sent me:

=IF(COUNTIF(Schedule!$B$2:$B$7,A1)>=1,"",ROW())

I understand what the code is doing...what i need is for this code to do not
just the b collumn, but also the c, d, and e, collumns. Is there anyway to
add that code into this line?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top