dates
hi
i have the following code that checks two date (A1 and B1) values this returns the number of days in C1 if the number is bigger than 2 and the word Complete has not been enter in D1 the cell is coloured Red How can i adapt the code so i can enter numerous values in column A and b and return the values in column C colouring the appropriate cell in Coloum D ? Sub test_date() If ThisWorkbook.Worksheets("sheet1").Range("D1").Valu e < "Complete" And ThisWorkbook.Worksheets("sheet1").Range("C1").Valu e 2 Then ThisWorkbook.Worksheets("sheet1").Range("D1").Sele ct With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub |
One way:
Public Sub test_date2() Dim rCell As Range With ThisWorkbook.Sheets("sheet1").Range("D1:D" & _ Range("D" & Rows.Count).End(xlUp).Row) .Interior.ColorIndex = xlColorIndexAutomatic For Each rCell In .Cells With rCell If .Value < "Complete" Then If .Offset(0, -1).Value 2 Then With .Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End If End With Next rCell End With End Sub In article om, "kevcar40" wrote: hi i have the following code that checks two date (A1 and B1) values this returns the number of days in C1 if the number is bigger than 2 and the word Complete has not been enter in D1 the cell is coloured Red How can i adapt the code so i can enter numerous values in column A and b and return the values in column C colouring the appropriate cell in Coloum D ? Sub test_date() If ThisWorkbook.Worksheets("sheet1").Range("D1").Valu e < "Complete" And ThisWorkbook.Worksheets("sheet1").Range("C1").Valu e 2 Then ThisWorkbook.Worksheets("sheet1").Range("D1").Sele ct With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub |
thanks for reply
i have tried this code and found that it only fills the cell D1 if i have another value bigger than 2 in row 3 or 4 etc it does not colour the cell any idea how i can get it to read the columns in C an D and colour if necessary thaks again kevin |
If you have nothing already in the cells in column D, change the "D1:D"
and "D" to "C1:C" and "C", respectively. That will run the code on every row for which there's a value in column C. In article . com, "kevcar40" wrote: i have tried this code and found that it only fills the cell D1 if i have another value bigger than 2 in row 3 or 4 etc it does not colour the cell any idea how i can get it to read the columns in C an D and colour if necessary |
All times are GMT +1. The time now is 07:52 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com