| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Always have cells add up to 100
I have range of cells that are the same right now, and they add up to
100: 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 100 I would like to be able to change on of those values, and the others adjust to still add up to 100. Any ideas? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Always have cells add up to 100
Right click sheet tabview codeinsert thisSAVE workbook
Private Sub Worksheet_Change(ByVal Target As Range) Set myrng = Range("e2:e15") Application.EnableEvents = False If Not Intersect(Target, myrng) Is Nothing Then x = 100 - Target For Each c In myrng If c.Address < Target.Address Then c.Value = x / 13 Next End If Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Jeff" wrote in message oups.com... I have range of cells that are the same right now, and they add up to 100: 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 7.142857 100 I would like to be able to change on of those values, and the others adjust to still add up to 100. Any ideas? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel: match two cells in one sheet to two cells in another and return a third cells value | Excel Worksheet Functions | |||
| compare 2 column cells and return the adjacent columns cells data of the cell | Excel Worksheet Functions | |||
| join data in multiple cells when adjoining cells match criteria ?? | Excel Worksheet Functions | |||
| Skip cells with TAB/SHIFT+TAB but allow arrow keys/mouse selection of skipped cells | Excel Programming | |||
| trying to create an (almost) circular formula between cells and data validated cells with lists | Excel Worksheet Functions | |||
![Jeff[_53_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
