Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting 0 instead or blank cells
Hi everybody, I have the following code which is working well on a single cell ,,but it is showing an error message with multiple selection. Code: -------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Or Target.Column = 5 And Target.Row = 5 And Target.Row <= 11 Then If Target = "" Then Target = 0 End If End Sub -------------------- Can You please summerize the range area (D5:E11) if that is possible and make the code working properly with more than one cell. Thank you, -- LoveCandle ------------------------------------------------------------------------ LoveCandle's Profile: http://www.excelforum.com/member.php...o&userid=28612 View this thread: http://www.excelforum.com/showthread...hreadid=568578 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting 0 instead or blank cells
After many tries I got the following code: Code: -------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range Dim Cell As Range Set MyRange = [D5:E11] For Each Cell In MyRange If Cell = "" Then Cell = 0 Next Cell End Sub -------------------- -- LoveCandle ------------------------------------------------------------------------ LoveCandle's Profile: http://www.excelforum.com/member.php...o&userid=28612 View this thread: http://www.excelforum.com/showthread...hreadid=568578 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Index/match - make blank cells return a blank value. | Excel Worksheet Functions | |||
Excel 2002: Return blank when VLOOKUP on blank cells | Excel Discussion (Misc queries) | |||
Nested IF - return a blank when compared cells are blank | New Users to Excel | |||
Maximum Number of Blank Cells between Non Blank Cells in a Range | Excel Worksheet Functions | |||
Imported Data creates blank cells that aren't really blank | Excel Worksheet Functions |