| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Broken: Set Cells in Range to 0 if blank
I can't seem to get this script working properly... Any help would be
appreciated, I am a complete beginner at VBA Cell Rnage is N13:T27, If the cell is blank, on a save, it should be set to 0. Sub Workbook_BeforeSave(rwNumber, clNumber) For rwNumber = 13 To 27 For clNumber = 14 To 20 Application.ScreenUpdating = False If IsEmpty(Worksheets("Sheet1").Cells(nRow, nCol)) Then Cells(rwNumber, clNumber).Value = 0 Else: End If Next clNumber Next rwNumber Application.ScreenUpdating = True End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Range naming cells with blank cells through coding | Excel Discussion (Misc queries) | |||
| If certain cells not blank, and cells in range are, set values to | Excel Discussion (Misc queries) | |||
| Maximum Number of Blank Cells between Non Blank Cells in a Range | Excel Worksheet Functions | |||
| Determine if range has NO Blank Cells without looping through each cell in range | Excel Programming | |||
| How do I skip blank cells when copying over a range of cells? | Excel Discussion (Misc queries) | |||
Threaded Mode
