formatting cells
I am attempting to have certain cells on a spreadsheet format based on
the contents of a single cell. I have tried the following code byt get a "type mismatch" error. Any suggestions?? Sub FormatIncStmtAssump() If Sheets("IncStmtAssump").Range("B11").Value = "% of Revenue" Then Sheets("IncStmtAssump").Range("C11:H11").Value = Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "0.00%") If Sheets("IncStmtAssump").Range("B11").Value = "Input" Then Sheets("IncStmtAssump").Range("C11:H11").Value = Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "$#,##0") If Sheets("IncStmtAssump").Range("B11").Value = "$ Change from Previous Year" Then Sheets("IncStmtAssump").Range("C11:H11").Value = Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "$#,##0") End Sub --- Message posted from http://www.ExcelForum.com/ |
formatting cells
Sheets("IncStmtAssump").Range("C11:H11").NumberFor mat = _
"0.00%" Might be what you want. -- Regards, Tom Ogilvy "bforster1 " wrote in message ... I am attempting to have certain cells on a spreadsheet format based on the contents of a single cell. I have tried the following code byt get a "type mismatch" error. Any suggestions?? Sub FormatIncStmtAssump() If Sheets("IncStmtAssump").Range("B11").Value = "% of Revenue" Then Sheets("IncStmtAssump").Range("C11:H11").Value = Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "0.00%") If Sheets("IncStmtAssump").Range("B11").Value = "Input" Then Sheets("IncStmtAssump").Range("C11:H11").Value = Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "$#,##0") If Sheets("IncStmtAssump").Range("B11").Value = "$ Change from Previous Year" Then Sheets("IncStmtAssump").Range("C11:H11").Value = Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "$#,##0") End Sub --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 11:32 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com