Delete part of cell content

[navex]

Hi All.

I am trying to come up with a macro that would remove part of a cells data.

Example: each row of data is help in column A

"http://www.aena-aeropuertos.es/csee/Satellite/infovuelos/en/Details.html?accion=detalle&company_code=FR&dia=20110930&hora_prev=2011-09-30+19%3A15&ncia=FR&numBusqueda=FR5574&nvuelo=5574&ordenacionBack=hprevisto&originBack=ALC&originBusqueda=ALC&pagBack=5&strVuelo=FR5574"
"http://www.aena-aeropuertos.es/csee/Satellite/infovuelos/en/Details.html?accion=detalle&company_code=FR&dia=20110930&hora_prev=2011-09-30+19%3A25&ncia=FR&numBusqueda=FR9056&nvuelo=9056&ordenacionBack=hprevisto&originBack=ALC&originBusqueda=ALC&pagBack=5&strVuelo=FR9056"
"http://www.aena-aeropuertos.es/csee/Satellite/infovuelos/en/Details.html?accion=detalle&company_code=BE&dia=20110930&hora_prev=2011-09-30+19%3A35&ncia=BE&numBusqueda=BE1716&nvuelo=1716&ordenacionBack=hprevisto&originBack=ALC&originBusqueda=ALC&pagBack=5&strVuelo=BE1716"

At the end of each row of data there is "strVuelo=" followed by variable text. If the variable text that follows "strVuelo=" contains "FR" do not delete the row.

Can anyone help with a solution.

Many thanks in advance.

NaveX

 

[AlphaFrog]

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Keep_FR_Rows()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    <SPAN style="color:#00007F">For</SPAN> i = Range("A" & Rows.Count).End(xlUp).Row <SPAN style="color:#00007F">To</SPAN> 1 <SPAN style="color:#00007F">Step</SPAN> -1<br>        <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Range("A" & i).Value <SPAN style="color:#00007F">Like</SPAN> "*strVuelo=FR*" <SPAN style="color:#00007F">Then</SPAN> Rows(i).Delete<br>    <SPAN style="color:#00007F">Next</SPAN> i<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[navex]

Hi AlphaFrog,

Many thanks for your reply, and of course it worked as required.

I have one more question if I may, The file I am working on is in CSV format, is there a way to run your macro from the CSV file.


Again many thanks for your time.

Regards

NaveX