| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need sample code
Hello David -
Thank you so much!!! -- Sandy "davidm" wrote: Sub CheckIt() For each c in Range("g:g") If c.interior.color= vbgreen then MsgBox "Error-Greenland" If c.interior.color=vbWhite then c.offset(1,0).interior.color=vbwhite If c.SpecialCells(xlCellTypeFormulas) then Msgbox "Error-Formula!" If c.SpecialCells(xlCellTypeFormulas,xlErrors) or _ c.SpecialCells(xlCellTypeFormulas,xlLogical)then If c.offset(1,0).SpecialCells(xlCellTypeFormulas,xlTe xt) =false or SpecialCells(xlCellTypeConstants,xlText)=False MsgBox "Text required" End if End if End if End if Next End Sub -- davidm ------------------------------------------------------------------------ davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645 View this thread: http://www.excelforum.com/showthread...hreadid=400669 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Sample code to be fixed! | Excel Discussion (Misc queries) | |||
| Software Expiration Code Sample | Excel Programming | |||
| Registration Key Sample Code | Excel Programming | |||
| Need Sample VBA Code | Excel Programming | |||
| Debra's sample code to hide a Pivotitem | Excel Programming | |||
Hybrid Mode
