associate color
How to associate color to cell based on the value yes or no
Option Explicit Sub auto_open() Dim myRng As Range Dim myCell As Range Set myRng = Worksheets("sheet1").Range("a1:A1000") For Each myCell In myRng.Cells With myCell .Offset(0, 2).Validation.Delete If IsNumeric(.Value) _ And .Text Like "#.#" Then With .Offset(0, 2) .Value = "" With .Validation .Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="Yes,No" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End With End If End With Next myCell End Sub |
associate color
You have a response at your other post(s).
stats wrote: How to associate color to cell based on the value yes or no Option Explicit Sub auto_open() Dim myRng As Range Dim myCell As Range Set myRng = Worksheets("sheet1").Range("a1:A1000") For Each myCell In myRng.Cells With myCell .Offset(0, 2).Validation.Delete If IsNumeric(.Value) _ And .Text Like "#.#" Then With .Offset(0, 2) .Value = "" With .Validation .Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="Yes,No" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End With End If End With Next myCell End Sub -- Dave Peterson |
All times are GMT +1. The time now is 04:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com