So hopefully you can see what I'm trying to do. The title pretty much describes it all. Plz halp
you see, my problem is that it's skipping some of the steps that it should do.
Code:
Sub changeData()
'Application.ScreenUpdating = False ' faster for modifying values on sheet
Dim header As String
Dim numRows As Long
Dim col As Long, y As Long, a As Integer
Dim c As Excel.Range
header = "Search:" ' header name to find
Set c = ActiveSheet.Range("1:1").Find(header, LookIn:=xlValues)
If Not c Is Nothing Then
col = c.Column
'y = Range(c.Offset(1), c.End(xlDown))
c.Offset(1).Select
Else
' can't work with it
Exit Sub
End If
a = 1
While c(a) <> ""
c(a).Select
If c(a) = c.Offset(a + 1) Then
c(a).Offset(0, 1) = "IT WORKED"
a = a + 1
Else
a = a + 1
End If
' (whatever this is)
Wend