If Cell contains text Copy Row to another sheet

[Ellsy]

Hi,

I have been trying to crack this all afternoon to no avail - I've read every thread on it and not been able to customise the macros to work! In fact - i've never written a macro before!

If cells in Colomn E on Sheet '2014 Events' contain the text "Park" - Copy the Row to Sheet 'Park Events'

Hope that makes sense - any help muchly appreciated!
Thanks
E x

 

[Redwolfx]

Try:

You will want to paste this into a module and run it from a button or keystroke.

Sub Organize()
Dim mycell As Range
Dim LastRow As Long

Application.ScreenUpdating = False

LastRow = Sheets("2014 Events").Range("E100000").End(xlUp).Row

For Each mycell In Sheets("2014 Events").Range("E2:E" & LastRow)
    If mycell.Value <> "Park" Then
        mycell.EntireRow.Hidden = True
    End If
Next mycell

Sheets("2014 Events").Range("A1:Z" & LastRow).SpecialCells(xlCellTypeVisible).Copy
Sheets("Park Events").Cells.PasteSpecial xlPasteValuesAndNumberFormats
Sheets("2014 Events").Rows("1:" & LastRow).Hidden = False
End Sub

 

[Ellsy]

Hi Redwolfx,

Thanks for your help, I gave it a try but I couldn't it to work! Macros just don't seem to like me!

E x

 

[Redwolfx]

What happens when you try? Did you assign the macro to something? Button/Key combination?