Add a row and delete a row by searching a specific text with VBA

[besis]

Hi,

I am trying to make a VBA code that do this macro:

- Search for value 1 in column A and insert a row to that specific row (Selection.Insert Shift:=xlDown)

After this macro I need also a macro that:

- Search for value -1 in column A and delete one row before (like if the value -1 in row A is on the row 33 i would like to delete a row 32)
but if the row contains anything (numbers or text I mean any value) then Msg would pop up "Cant delete row, row contains value"

Thanks in advance:
B.

[yujin]

Hi, besis.

If you find the target row and Target.Insert Shift:=xlDown inserts a blank row before the target row.
So deleting one row before the target row ends up with deleting the row you've just inserted.
Do I make sense?

[besis]

Yes, that is true. My mistake. I edited my post. At the macro for deleting has search criteria -1.

[yujin]

Do you have multiple rows that contain value 1 or -1 in column A?

[besis]

Hi,

Yes I have multiple rows that contain value 1 or -1 in column A. I was thinking maybe is good idea for the macro for deleting to put the value -1 on column B.

Thanks again:
B

[yujin]

I'm not sure this is what you want, but try it anyway.

Please Login or Register  to view this content.

[besis]

Hi,

I edited this post in my last thread.

I tried the code you send, and now it works.
Thanks a lot for your help,
B.

[besis]

Hi Yujin,

Your code worked perfectly after I separate your code. For the value 1 for the column A, and the value -1 for column B.
Searching for 1 and -1 in A:A column didn´t work.

Thank you very much for your help.
All the best.
B.

[yujin]

I'm happy to have been able to help you out