Someone gave me the below code but it scans every cell.
It was useful but now I need to look in specific columns, how do I do that?
I'm sure this must be a pretty basic question.

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
....
Next

If you drop .Cells from your If statement:

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng 'Drop .Cells
....
Next

Then on my computer it only checks the cells in column "C"

"mscertified" wrote:

Someone gave me the below code but it scans every cell.
It was useful but now I need to look in specific columns, how do I do that?
I'm sure this must be a pretty basic question.

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
...
Next

Dim rCell As Range
dim rCell2 as range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
'to look at all the cells in that row...
for each rcell2 in rcell.entirerow.cells
'...
next rcell2
next rcell

======
But you could use other things to look at a smaller set of cells

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
if rcell.offset(0,-2).value = "hi from column A" then
'do something
end if
if rcell.offset(0,3).value = "hi from column F" then
'do something else
end if
next rcell

Since you're looping through the cells in column C, you can use rcell.offset()
to go in either direction.



mscertified wrote:

Someone gave me the below code but it scans every cell.
It was useful but now I need to look in specific columns, how do I do that?
I'm sure this must be a pretty basic question.

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
...
Next

--

Dave Peterson

Dropping ".cells" from rRng does nothing different.

--
regards,
Tom Ogilvy

"JLGWhiz" wrote in message
...
If you drop .Cells from your If statement:

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng 'Drop .Cells
...
Next

Then on my computer it only checks the cells in column "C"

"mscertified" wrote:

Someone gave me the below code but it scans every cell.
It was useful but now I need to look in specific columns, how do I do
that?
I'm sure this must be a pretty basic question.

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
...
Next