Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Data Validation Update Validation Selection
Update Validation Selection I have been to www.contextures.com and downloaded
DV0022, this is exactly what I wish to achieve when a selection in the list is updated the data file updates to the new description. The problem is when I add a new item to the list it updates every blank cell in the data file colum with the new value added to the list, I don't want it to update all blank cells when new item added to the look-up list. Please help with what I am doing wrong. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Data Validation Update Validation Selection
You can add code to check for an empty string in the old value: If strOld < "" Then wsData.Columns("B:B").Replace What:=strOld, _ Replacement:=strNew, LookAt:=xlPart, _ SearchOrder:=xlByRows End If PCreighton wrote: Update Validation Selection I have been to www.contextures.com and downloaded DV0022, this is exactly what I wish to achieve when a selection in the list is updated the data file updates to the new description. The problem is when I add a new item to the list it updates every blank cell in the data file colum with the new value added to the list, I don't want it to update all blank cells when new item added to the look-up list. Please help with what I am doing wrong. -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Data Validation Update Validation Selection
Hi
Debra's code was based upon a fixed range for Fruitlist, whereas I suspect yours is Dynamic. One way of dealing with the problem would be to test for a null string for Old and goto the exit handler. I have marked where the inserted lines appear. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errHandler Dim rng As Range Dim strOld As String Dim strNew As String Dim wsData As Worksheet Dim wsLists As Worksheet Set wsLists = Sheets("Lists") Set wsData = Sheets("Data") Set rng = wsLists.Range("FruitList") If Intersect(Target, rng) Is Nothing Then 'do nothing Else Application.EnableEvents = False strNew = Target.Value Application.Undo strOld = Target.Value ' inserted lines If strOld = "" Then Target.Value = strNew GoTo exitHandler End If ' end of inserted lines Target.Value = strNew wsData.Columns("B:B").Replace What:=strOld, _ Replacement:=strNew, LookAt:=xlPart, _ SearchOrder:=xlByRows Application.EnableEvents = True End If exitHandler: Application.EnableEvents = True Exit Sub errHandler: MsgBox "Change could not be completed" GoTo exitHandler End Sub -- Regards Roger Govier "PCreighton" wrote in message ... Update Validation Selection I have been to www.contextures.com and downloaded DV0022, this is exactly what I wish to achieve when a selection in the list is updated the data file updates to the new description. The problem is when I add a new item to the list it updates every blank cell in the data file colum with the new value added to the list, I don't want it to update all blank cells when new item added to the look-up list. Please help with what I am doing wrong. |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Data Validation Update Validation Selection
Thank you Roger & Debra worked like a charm.
both worked the other change I made was to make my Range Name Dynamic. "Roger Govier" wrote: Hi Debra's code was based upon a fixed range for Fruitlist, whereas I suspect yours is Dynamic. One way of dealing with the problem would be to test for a null string for Old and goto the exit handler. I have marked where the inserted lines appear. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errHandler Dim rng As Range Dim strOld As String Dim strNew As String Dim wsData As Worksheet Dim wsLists As Worksheet Set wsLists = Sheets("Lists") Set wsData = Sheets("Data") Set rng = wsLists.Range("FruitList") If Intersect(Target, rng) Is Nothing Then 'do nothing Else Application.EnableEvents = False strNew = Target.Value Application.Undo strOld = Target.Value ' inserted lines If strOld = "" Then Target.Value = strNew GoTo exitHandler End If ' end of inserted lines Target.Value = strNew wsData.Columns("B:B").Replace What:=strOld, _ Replacement:=strNew, LookAt:=xlPart, _ SearchOrder:=xlByRows Application.EnableEvents = True End If exitHandler: Application.EnableEvents = True Exit Sub errHandler: MsgBox "Change could not be completed" GoTo exitHandler End Sub -- Regards Roger Govier "PCreighton" wrote in message ... Update Validation Selection I have been to www.contextures.com and downloaded DV0022, this is exactly what I wish to achieve when a selection in the list is updated the data file updates to the new description. The problem is when I add a new item to the list it updates every blank cell in the data file colum with the new value added to the list, I don't want it to update all blank cells when new item added to the look-up list. Please help with what I am doing wrong. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Data Validation with selection | New Users to Excel | |||
Data Validation with multiple table selection | Excel Discussion (Misc queries) | |||
update data validation list with new entries?? | Excel Discussion (Misc queries) | |||
Data validation named range update | Excel Discussion (Misc queries) | |||
Data Validation list selection question | Excel Worksheet Functions |