clr

hi, I use the following code Dim Changed As Range, Cell As Range Dim Clr As Long Set Changed = Intersect(Target, Range("m2:k300")) If Not Changed Is Nothing Then For Each Cell In Changed Select Case LCase(Cell.Value) Case "win10": Clr = 35 Case "no"...

Hi guys, I came accross this code from Norie and it works fine! However I like to format the dates in Wednesday 20 Feb 2019 and would love to have sundays automatically in red. Sub FillDates() Dim StartDate As Date Dim EndDate As Date Dim NoDays As Integer With tabAuflistung...

Hi I am manually adding a specific color to a cell (Yellow) as a result i would like to count the number of cells that have a color.. i came across this code Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr =...

Hello,</SPAN></SPAN> The code below do highlight duplicates in various colours as shown below</SPAN></SPAN> Sub Find_Duplicate_Entry() Dim Cel As Variant Dim myrng As Range Dim clr As Long Set myrng = Range("D6:D" & Range("D65536").End(xlUp).Row) myrng.Interior.ColorIndex =...

Hi, I am using a VBA to count cells based on their fill colour. I am using the following script: Function CountColor(Rng As Range, RngColor As Range) As Integer Application.Volatile True Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll...