how do i incrememnt a cell?

M

majikman

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
 
P

popgroove

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
 
Top