Find Cell Value and Activate
 

I got most of the below code from this newgroup, I have modified it slightly, my goal is to have it look up a value in column G, in this case the variable "Month4", if that value exists then assign the row number to the variable PasteRange, otherwise if the value doesn't exist, then find the last row with data, add one, and assign that row value to the variable PasteRange

Set rng = Range(Range("G2"), Range("G65000").End(xlUp)
For Each c In rn
If c = Month4 The
PasteRange = ActiveCell.Ro
Exit Fo
Els
End I
Next
If PasteRange = 0 The
PasteRange = Cells(Rows.Count, "A").End(xlUp).Row +

Els
End I

When I run it, it finds the value if it exists but then just assigns the first row to the variable PasteRange. I am not sure how to make this code select the row that it found the value in, and then assign that row to the variable PasteRange

Any help on this would be greatly appreciated

Jim

Find Cell Value and Activate
 

Set rng = Range(Range("G2"), Range("G" & Rows.Count).End(xlUp))
For Each c In rng
If c.Value = Month4 Then
PasteRange = c.Row
Exit For
End If
Next c
If PasteRange = 0 Then
PasteRange = Cells(Rows.Count, "A").End(xlUp).Row + 1
End If


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"James Stephens" wrote in message
...
I got most of the below code from this newgroup, I have modified it
slightly, my goal is to have it look up a value in column G, in this case
the variable "Month4", if that value exists then assign the row number to
the variable PasteRange, otherwise if the value doesn't exist, then find the
last row with data, add one, and assign that row value to the variable
PasteRange.


Set rng = Range(Range("G2"), Range("G65000").End(xlUp))
For Each c In rng
If c = Month4 Then
PasteRange = ActiveCell.Row
Exit For
Else
End If
Next c
If PasteRange = 0 Then
PasteRange = Cells(Rows.Count, "A").End(xlUp).Row + 1

Else
End If

When I run it, it finds the value if it exists but then just assigns the
first row to the variable PasteRange. I am not sure how to make this code
select the row that it found the value in, and then assign that row to the
variable PasteRange.

Any help on this would be greatly appreciated.

Jim