| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
100% RANGE
Hi
I have a selected range of cells which total 99.98% I need to replace the largest value to round up to 100% Please can anybody help me. Regards Firstroundko -- Message posted via http://www.officekb.com |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
100% RANGE
Try something like this
Set DataRange = Range("A1:D10") Total = WorksheetFunction.Sum(DataRange) MaxVal = WorksheetFunction.Max(DataRange) 'find Max Value Set c = DataRange.Find(what:=MaxVal, _ LookIn:=xlValues, lookat:=xlWhole) 'Assume 100% is really 1.00 c.Value = (1# - Total) + c.Value "FIRSTROUNDKO via OfficeKB.com" wrote: Hi I have a selected range of cells which total 99.98% I need to replace the largest value to round up to 100% Please can anybody help me. Regards Firstroundko -- Message posted via http://www.officekb.com |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
100% RANGE
Thanks Joel I adapted it to this
Set DataRange = Selection total = WorksheetFunction.Sum(Selection) MaxVal = WorksheetFunction.Max(Selection) 'find Max Value Set c = DataRange.Find(what:=MaxVal, _ LookIn:=xlValues, lookat:=xlWhole) c.Value = (100# - total) + c.Value Joel wrote: Try something like this Set DataRange = Range("A1:D10") Total = WorksheetFunction.Sum(DataRange) MaxVal = WorksheetFunction.Max(DataRange) 'find Max Value Set c = DataRange.Find(what:=MaxVal, _ LookIn:=xlValues, lookat:=xlWhole) 'Assume 100% is really 1.00 c.Value = (1# - Total) + c.Value Hi [quoted text clipped - 5 lines] Firstroundko -- Message posted via http://www.officekb.com |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
100% RANGE
Thanks Joel I adapted it to this
Set DataRange = Selection total = WorksheetFunction.Sum(Selection) MaxVal = WorksheetFunction.Max(Selection) 'find Max Value Set c = DataRange.Find(what:=MaxVal, _ LookIn:=xlValues, lookat:=xlWhole) c.Value = (100# - total) + c.Value Joel wrote: Try something like this Set DataRange = Range("A1:D10") Total = WorksheetFunction.Sum(DataRange) MaxVal = WorksheetFunction.Max(DataRange) 'find Max Value Set c = DataRange.Find(what:=MaxVal, _ LookIn:=xlValues, lookat:=xlWhole) 'Assume 100% is really 1.00 c.Value = (1# - Total) + c.Value Hi [quoted text clipped - 5 lines] Firstroundko -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200808/1 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I enter formula sum(range+range)*0.15 sumif(range=3) | Excel Discussion (Misc queries) | |||
| Excel Addin:Setting the range to the Excel.Range object range prop | Excel Worksheet Functions | |||
| Range Question / error 1004: method Range of object Worksheet has failed | Excel Programming | |||
| Range.Find returns cell outside of range when range set to single cell | Excel Programming | |||
| how to? set my range= my UDF argument (range vs. value in range) [advanced?] | Excel Programming | |||
Linear Mode
