Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
activate cell | Excel Worksheet Functions | |||
how to activate macro from cell | Excel Discussion (Misc queries) | |||
Activate Cell | Excel Discussion (Misc queries) | |||
How do I activate the trial exel 2003 program if it does't find c. | New Users to Excel | |||
Using a Macro to find a value in a range and activate it | Excel Programming |