Conditional selection in VBA

Soldato
Joined
13 Feb 2004
Posts
2,656
Location
South Shields
I'm creating a quick VBA based utility in Excel for work..

We have a log of jobs that are to be completed by the team.
The data is held on sheets named via the week commencing date.

We have a colum titled closed in which we place a Y if complete.

What I would like to do is to have a button which when pressed will select all the non complete jobs on the previous sheet and copy them into the next sheet.

So technically something similar to this ->

Code:
Sub Transfer()

ActiveSheet.Previous.Select

Range("A3:K300").Select
If ("K3:K300") Like " " Then
Rows.Select
End If

ActiveSheet.Next.Select
Range("A3:K300").Select
ActiveSheet.Paste

MsgBox "Transfer Successfull"

End Sub

This is probably very simple to do.. but I've been rushed at work and not really had a prolonged amount of time to work on it.. kinda been looking at it for 5 mins every time I sit down.

Thanks for your help.

Ray
 
Back
Top Bottom