A challange

[crapshoot]

Not sure this can be done or where to start, but you all have been amazing with my other questions ... so here goes.

I am running Excel 2002, my spreadsheet is rows 2 - 259, columns A to BR, I would like to paste A - K if say B>=5 and F <=50. I would do more searching on my own, but I am about 95% blind and I find Windows magnifier very difficult to work with. I would appreciate any help.



















3

 

[Boller]

"I would like to paste A - K if say B>=5 and F <=50"

Do you mean you want to copy the cells in column A and column K and paste to somewhere else if the criteria are met?
Or do you want to copy the cells in columns A:K to somewhere else if the criteria are met?
In either case, to where should the cells be pasted?

 

[crapshoot]

I would like to copy and paste the row, columns A:K to blank cells if the criteria is met. The blank cells would be at the bottom of my spreadsheet - just below my last filled rows.

 

[crapshoot]

I could copy and paste the complete row if need be, instead of just A:K.

 

[Boller]

Dim rng As Range, cel As Range
Set rng = Range([A2], Cells(Rows.Count, 1).End(xlUp))
For Each cel In rng
    If cel(1, 2) >= 5 And cel(1, 6) <= 50 Then _
        cel.Resize(, 11).Copy Cells(Rows.Count, 1).End(xlUp)(2)
Next

 

[crapshoot]

I was afraid of that, I don't even know how to enter it, I guess I will have to dig in and learn.

I use to be a pretty decent Basic programmer and this looks a little like that, however that was back in 1975.

I take it that "Set rng = Range([A2], Cells(Rows.Count, 1).End(xlUp)) " is not entered literally and I would have to enter the range of 2 - 259 somewhere in there for the range of the loop. I notice the 'copy' ... is this also going to paste it? and I guess I have to specify where.

Looks like I have some learning in front of me.

 

[Boller]

All you have to do is copy the code I posted and paste it to a macro.

Then run the macro and see if it does what you want.