Macro to be created

[vishal005]

Hi Guys,

I need help with the macro,

I have excel sheet which contains data in more than 4500 colums and 15000 rows.


I want a macro which will search a word of my choice in excel and if it found then the macro will copy that word along with cell which is adjucent to that cell (Left cell and Right cell) in other excel.

There are chances that specific word may exists in my excel for more than 2000 times.

 

[vishal005]

just last favor can the results of search appear in new excel book also in results can you make some setting so that any row which contains text in column C gets delete automatically.

 

[NoSparks]

Try this to delete the rows.

Sub DeleteFromSht2()
    Dim LastRow As Long
    Dim i As Integer
    
With Sheets("Sheet2")
    LastRow = .Cells(Rows.Count, "C").End(xlUp).Row
    For i = LastRow To 1 Step -1
        If .Cells(i, 3) = "Expense" Or .Cells(i, 3) = "Approved" Or .Cells(i, 3) = "Pending" Then
            .Cells(i, 3).EntireRow.Delete
        End If
    Next i
End With
End Sub

Sorry, I don't follow what you mean "do Trim on row a of sheet 2 after pulling out the details."

 

[vishal005]

thanks can we get the results in new workbook rather than in same sheet also can the delete macro in such away that if there is any word in column c of sheet 2 it will delete the entire row

 

[vishal005]

thanks can we get the results in new workbook rather than in same sheet also can the delete macro works in such away that if there is any word in column c of sheet 2 it will delete the entire row, can you merge above macro with the delete macro