Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lookup and Select Row
I have a problem that I just can't seem to get my mind around. I know this should be easy, but I just don't what to use
The code I have pulls lots of data out of workbooks and consolidates it into several others. What I need it something that will for instance, look in column "A" for one for a value (this value is variable). If the value exists then select that row and set that row value to the variable "PasteRow". If the value doesn't exist in the row then select the last row + 1 and set this as the "PasteRow" Basically I need to have something automatically replace data if it has been updated and if not then add the new data. If the variable value exists in the first column then the data has been updated, so select the row and then 'do stuff' and then continue on to the next set of data. If the value doesn't exist then this is new data and paste it to the bottom I know this can be done, and I have learned alot in the last year or so, esp. with the help of this newsgroup. I just need to get some direction on this, as I can't figure it out Thanks for you time and effor Jim |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lookup and Select Row
Try this
Sub GetRow(Val As String Dim PasteRange As Range, cnt As Singl 'On Error Resume Nex Set x = Cells.Find(Val If x Is Nothing The cnt = ActiveSheet.UsedRange.Rows.Count + Set PasteRange = Rows(cnt Exit Su End I Set PasteRange = Range(x.Address).EntireRo Set x = Nothin End Sub ----- James Stephens wrote: ---- I have a problem that I just can't seem to get my mind around. I know this should be easy, but I just don't what to use The code I have pulls lots of data out of workbooks and consolidates it into several others. What I need it something that will for instance, look in column "A" for one for a value (this value is variable). If the value exists then select that row and set that row value to the variable "PasteRow". If the value doesn't exist in the row then select the last row + 1 and set this as the "PasteRow" Basically I need to have something automatically replace data if it has been updated and if not then add the new data. If the variable value exists in the first column then the data has been updated, so select the row and then 'do stuff' and then continue on to the next set of data. If the value doesn't exist then this is new data and paste it to the bottom I know this can be done, and I have learned alot in the last year or so, esp. with the help of this newsgroup. I just need to get some direction on this, as I can't figure it out Thanks for you time and effor Jim |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lookup and Select Row
This looks like it almost works, I tried it out and I have a couple of questions
Now how do I select which column I want this to search in Do I just start it with - columns("A:A").Selec Also when I try to use the "PasteRange", I have an error. I use this "PasteRange", value for other formulas, such as - Range("B" & PasteRange).Select and then do stuff. Is there a way to set this paste range as just the row number and not an actual cell value, I think that is the problem I am running into, however I am not sure Thanks for your help Ji ----- chris wrote: ---- Try this Sub GetRow(Val As String Dim PasteRange As Range, cnt As Singl 'On Error Resume Nex Set x = Cells.Find(Val If x Is Nothing The cnt = ActiveSheet.UsedRange.Rows.Count + Set PasteRange = Rows(cnt Exit Su End I Set PasteRange = Range(x.Address).EntireRo Set x = Nothin End Sub ----- James Stephens wrote: ---- I have a problem that I just can't seem to get my mind around. I know this should be easy, but I just don't what to use The code I have pulls lots of data out of workbooks and consolidates it into several others. What I need it something that will for instance, look in column "A" for one for a value (this value is variable). If the value exists then select that row and set that row value to the variable "PasteRow". If the value doesn't exist in the row then select the last row + 1 and set this as the "PasteRow" Basically I need to have something automatically replace data if it has been updated and if not then add the new data. If the variable value exists in the first column then the data has been updated, so select the row and then 'do stuff' and then continue on to the next set of data. If the value doesn't exist then this is new data and paste it to the bottom I know this can be done, and I have learned alot in the last year or so, esp. with the help of this newsgroup. I just need to get some direction on this, as I can't figure it out Thanks for you time and effor Jim |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA: Column Select then Data Select then return to cell A1 | Excel Discussion (Misc queries) | |||
LOOKUP help....select like names and enter sales | Excel Discussion (Misc queries) | |||
Macro to select cells without a certain value and select a menu it | Excel Worksheet Functions | |||
Using formulas to select cells (Ex: Select every nth cell in a col | Excel Discussion (Misc queries) | |||
Select other workbook to select data in a macro. | Excel Programming |