Searching text and if found then insert row above, if not then insert row at top

Hi everyone!

I am having trouble figuring out how to use the method .Find... What I am trying to do is search column("A:A") for the first instance of a string contained in a variable. If found then insert a row above it pushing everything down) and populate that row with Data (Value in column B tells you the version... so version that got pushed down +1). If it doesn't find anything then insert a row at 2 (pushing everything else down) an populate it.

I have managed so far:

Please Login or Register  to view this content.

The problem is that the rows get shifted down and then work is being carried out below the data instead of on top...
In the example attached: If user searched for Project "Other Project", then shift everything down from row 5 and add one to the version
It also crashes if the string is not found and I am not sure how to handle the error and start at the top (row 2) with a fresh line and version 1.
The code gets executed from a different file where all the data is contained.

Many Thanks!

Hi!

Thanks for your help so far, got it to check and push things down. A bit more detailed:

What I meant with populate is that I have about 21 columns of data that get extracted from another workbook (Hence didn't write it earlier... forgot to mention it, sorry ). So once the relevant project is found, all the previous data is pushed down and each cell of the row gets the new information (in the sample it would be,first the project, then the version (+1) and then the city.All of the data may or may not be the same). All of this data is stored in vba variables and copied from the original projects workbook.
The tool is part of a controlling mechanism to check the development of costs and such things. Thus first search for projects and add one to the version of the workbook
If the project isn't found then it gets inserted at the top so that it can be used as a visual cue for a follow up.

The updated code that I have gets stuck at "c.Offset(0,2).Value = St_Location" (runtime error 438):

Please Login or Register  to view this content.

Again, many thanks in advance!!! Do let me know if you find that I left something out

I have modified the c = St_Project. When there is no string it works fine now (Great stuff! Thanks!), only need to figure out how to keep the formatting of row 2 instead of that from row 1.
However the error 438 (Object doesn't support this property or method) persists... I have changed he format of the cell to be Text (in case it had to do wih ST_Location being declared as a string...). Ideas?

Hi!

Was a few days unexpectedly away... I have now managed to tackle the problem by going line by line... Problem was that "c" was being assigned a string if the variable was found... Solution:

Please Login or Register  to view this content.

Many thanks for helping me out with figuring out how to do the search!!