Delete Lines in all Workbook in Folder that contain certain strings

[CoSinus]

Hello together,
I would like to delete in all workbooks in a folder, no matter if it is formatted xlsm, xlsx, xls etc, all lines that contain a certain sentence or word.
I would like to enter this sentence or word or character combination with an inputbox and select the folder via popup.

Thank you very much for your help.

[Mumps1]

Do you want to search all the sheets in all workbooks? Is the word or sentence in one particular column or can it be anywhere in the sheet? It would be easier to help and test possible solutions if you could attach a copy of one or two of your files. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary). See the yellow banner at the top of this page for instructions to attach a file.

[CoSinus]

Hi Mumps1
I am glad that you are taking care of my problem.
I would have to search all the sheets in all the workbooks because the text can be anywhere.
But the text is always exactly the same.

It is always in Column 1 but the row varies.

For this reason it makes no sense to upload a workbook.

I can do it though if you want.
Thanks again very much

[Mumps1]

It would be easier to test a possible solution if you attach one or two workbooks. Give a few examples of a word or sentence you would like to search. Also, can there be duplicate words or sentences in column A?

[CoSinus]

It took a while and I apologize for the delay.

In the last labeled line of many sheety is invisible Text 'End of Worksheet'.
In addition, in some sheets there are sentences like: 'Selections are indicated using an "X".' which I would like to delete.

The invisible text contents occur in different forms.
But it is always column A in which all texts occur.

I would like to delete flexibly by input box rows any sheet in a folder I would like to select by entering flexible contents I can write into the input box.

Thank you for your help.

[Mumps1]

Open a new blank workbook and copy/paste this macro into a regular module. The macro will prompt you to enter a text to search. Any row containing that text in column A will be deleted. For example, if you enter the text 'Selections', any row containing that word will be deleted meaning that the row containing 'Selections are indicated using an "X".' will be deleted but so will any other row containing 'Selections'. The reason for this is that the macro will also look for a partial match. If you want the search to be an exact match, then change the text in the code (in red) to 'xlwhole'. Also, the source files will be saved and then closed, replacing the previous versions, after the rows are deleted. See the row in blue.

Please Login or Register  to view this content.