how do i incrememnt a cell?
i have a sorted column of dates. what i'm trying to do is find if ther
are any dates that are duplicates. if they are, they would b consecutive. this is what i've got so far. Option Explicit Sub FindDouble() Dim c As Range For Each c In Range("D1:D4000") If c.Value = [c+1].Value Then c.Font.Bold = True End If Next c End Sub c+1.Value doesn't work. how do i check the value of the cell below th current cell -- Message posted from http://www.ExcelForum.com |
how do i incrememnt a cell?
Try C.offset(1,0)
Regards Jamal -----Original Message----- i have a sorted column of dates. what i'm trying to do is find if there are any dates that are duplicates. if they are, they would be consecutive. this is what i've got so far. Option Explicit Sub FindDouble() Dim c As Range For Each c In Range("D1:D4000") If c.Value = [c+1].Value Then c.Font.Bold = True End If Next c End Sub c+1.Value doesn't work. how do i check the value of the cell below the current cell? --- Message posted from http://www.ExcelForum.com/ . |
how do i incrememnt a cell?
Both of these examples will work.....
For...Next example Assumption: there could be holes in the data and you need to chec every cell. Assumption: if the second cell was duplicate bold the first and not th second Public Sub IncrementFor() Dim x As Integer For x = 1 To 4000 If ActiveSheet.Cells(x, 4) = ActiveSheet.Cells(x + 1, 4) Then ActiveSheet.Cells(x, 4).Select Selection.Font.Bold = True End If Next x End Sub Do...Loop example Assumption: there are no holes in the data and you only need to go dow column 'd' untill a cell is blank Assumption: if the second cell was duplicate bold the first and not th second Public Sub IncrementDo() Dim x As Integer x = 1 Do Until ActiveSheet.Cells(x, 4) = "" If ActiveSheet.Cells(x, 4) = ActiveSheet.Cells(x + 1, 4) Then ActiveSheet.Cells(x, 4).Select Selection.Font.Bold = True End If x = x + 1 Loop Mark Wielgus www.AutomateExcel.co -- Message posted from http://www.ExcelForum.com |
All times are GMT +1. The time now is 05:30 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com