Select case and Last Cell Problem

[JamesBurrows]

Hi

I am fairly new to VBA so be gentle. I have been working on the
attached code but am struggling with the CASE SELECT and the loop.

I am trying to search column B of Line List worksheet and if it
contains a letter ie is not blank copying it to another worksheet Tags
CSV.

I am also trying to loop this process until the end of my data but as
my data has gaps between it i need to go to the bottom or (1500 row in
column b of line list) move up one until a non blank row is found then
return a rown number as a value in order to stop my loop when it gets
there.

God I hope this makes sense to you lot as its sending me in circles.

I look forward to your response


+-------------------------------------------------------------------+
|Filename: Excel Help.doc |
|Download: http://www.excelforum.com/attachment.php?postid=4849 |
+-------------------------------------------------------------------+

 

[Ron de Bruin]

Hi James

God I hope this makes sense

I try<g>

Assume you not have formulas in the column
This will copy every row with data in column A to Sheets("Sheet2").Range("A1")


Sub test()
On Error Resume Next
Columns("A").SpecialCells(xlCellTypeConstants).EntireRow.Copy Sheets("Sheet2").Range("A1")
On Error GoTo 0
End Sub

 

[JamesBurrows]

Thanks for that Ron the only thing is there are some rows with data in
that I dont want to copy I only want to copy the lines across that have
a letter in them, some have a few words in

 

[Ron de Bruin]

One letter or a A,B, C or ?