How about THIS for a request!

Audiojoe · Mar 27th, 2002, 05:05 AM

What I need is a macro on a sheet, that will print all the rows. EXCEPT, that I only want it to print the rows that have the word 'Completed' in Column I.

These are few and far between so instead of having reams of paper, I need it so that when it prints out, all the selected rows are together if you know what I mean?

Is this going to be possible do you think, or is it too much to ask?

Tommy Bak · Mar 27th, 2002, 05:16 AM

Hi
Can't you just record this using autofilter and set that to completet in column I, print and remove autofilter ???

regards Tommy

Audiojoe · Mar 27th, 2002, 06:19 AM

Would be great, except that each sheet is being used by a spotty 15 year old, numnuts customer service agent, who thinks that VBA is some kind of sexually transmitted disease. The concept of logging off had to be explained to them 5 times, as when they were commanded to do it, 90% of them ran in the direction of the toilets.

I'm really going to need a big button for them to push that will do it all. Can anyone help?

Audiojoe · Mar 27th, 2002, 06:20 AM

By the way, I tried Tommy's suggestion and it didn't work. I dont know what's wrong with my system today!

Tommy Bak · Mar 27th, 2002, 06:32 AM

Hi
Try this then. In basic it the same thing

Sub Makro1()
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="Completed"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter
End Sub

regards Tommy

Audiojoe · Mar 27th, 2002, 06:42 AM

This is REALLY annoying me now!! All day, people have been sending me really good code, and my stupid PC won't play any of them. It keeps throwing back a 1004 error 'method of Range Class Failed'

Can anyone tell me if there's a setting I should change to stop this happening. Do I have to change my references maybe?

My PC's monitor is sweating right now as it knows it only has a few more hours in which to do as I tell it before it learns to fly.

"3f9oijoiurgjv23`"

Oh, like that is it? Gonna start f@#king up my 5ords wh@n I tripe them a{e yo?

"iui weuif0-4-098rti0"

You're heading for a fall my lad

Tommy Bak · Mar 27th, 2002, 06:50 AM

Audio> send me the workbook, if it's not to big for my k56 modem or to sensible, then I'll have a look at it.
(Before your computer learns to fly)
tommybak@netscape.net
Regards Tommy

Audiojoe · Mar 27th, 2002, 06:57 AM

Unfortunately, due to company privacy laws, I can't send any files out unless pre-approved. So I asked the manager and he said he'll get a "technician" out on Monday

Bad News: In reality, it'll be Tuesday
Good News: I get to scratch my a*se for 5 days

Thanks anyway for the offer man

Tommy Bak · Mar 27th, 2002, 07:06 AM

Ok Audiojoe
then try to remove the first line of my code (range("A1").select),
select a cell i the data range and run it again.

Tommy

Jackeb · Mar 27th, 2002, 07:27 AM

hi,

1004 errors are a pain in the proverbial...

I would suggest that a cold restart will help, I sometimes works for me.... usually better for the opperator i find!

otherwise the reference could be wrong, i assume you have the ms office object browser 9.0 selected, I really don't know why but mine keeps turning itself off and i get erroras like that..??

all the best and I hope that tues is a long itme in coming!!

Ed

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 27th, 2002, 05:05 AM	#1
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	What I need is a macro on a sheet, that will print all the rows. EXCEPT, that I only want it to print the rows that have the word 'Completed' in Column I. These are few and far between so instead of having reams of paper, I need it so that when it prints out, all the selected rows are together if you know what I mean? Is this going to be possible do you think, or is it too much to ask?

Mar 27th, 2002, 05:16 AM	#2
Tommy Bak Board Regular Join Date: Feb 2002 Location: Guderup, Denmark Posts: 287	Hi Can't you just record this using autofilter and set that to completet in column I, print and remove autofilter ??? regards Tommy

Mar 27th, 2002, 06:19 AM	#3
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	Would be great, except that each sheet is being used by a spotty 15 year old, numnuts customer service agent, who thinks that VBA is some kind of sexually transmitted disease. The concept of logging off had to be explained to them 5 times, as when they were commanded to do it, 90% of them ran in the direction of the toilets. I'm really going to need a big button for them to push that will do it all. Can anyone help?

Mar 27th, 2002, 06:20 AM	#4
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	By the way, I tried Tommy's suggestion and it didn't work. I dont know what's wrong with my system today!

Mar 27th, 2002, 06:32 AM	#5
Tommy Bak Board Regular Join Date: Feb 2002 Location: Guderup, Denmark Posts: 287	Hi Try this then. In basic it the same thing Sub Makro1() Range("A1").Select Application.CutCopyMode = False Selection.AutoFilter Selection.AutoFilter Field:=9, Criteria1:="Completed" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Selection.AutoFilter End Sub regards Tommy

Mar 27th, 2002, 06:42 AM	#6
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	This is REALLY annoying me now!! All day, people have been sending me really good code, and my stupid PC won't play any of them. It keeps throwing back a 1004 error 'method of Range Class Failed' Can anyone tell me if there's a setting I should change to stop this happening. Do I have to change my references maybe? My PC's monitor is sweating right now as it knows it only has a few more hours in which to do as I tell it before it learns to fly. "3f9oijoiurgjv23`" Oh, like that is it? Gonna start f@#king up my 5ords wh@n I tripe them a{e yo? "iui weuif0-4-098rti0" You're heading for a fall my lad

Mar 27th, 2002, 06:50 AM	#7
Tommy Bak Board Regular Join Date: Feb 2002 Location: Guderup, Denmark Posts: 287	Audio> send me the workbook, if it's not to big for my k56 modem or to sensible, then I'll have a look at it. (Before your computer learns to fly) tommybak@netscape.net Regards Tommy

Mar 27th, 2002, 06:57 AM	#8
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	Unfortunately, due to company privacy laws, I can't send any files out unless pre-approved. So I asked the manager and he said he'll get a "technician" out on Monday Bad News: In reality, it'll be Tuesday Good News: I get to scratch my a*se for 5 days Thanks anyway for the offer man

Mar 27th, 2002, 07:06 AM	#9
Tommy Bak Board Regular Join Date: Feb 2002 Location: Guderup, Denmark Posts: 287	Ok Audiojoe then try to remove the first line of my code (range("A1").select), select a cell i the data range and run it again. Tommy

Mar 27th, 2002, 07:27 AM	#10
Jackeb Board Regular Join Date: Mar 2002 Posts: 81	hi, 1004 errors are a pain in the proverbial... I would suggest that a cold restart will help, I sometimes works for me.... usually better for the opperator i find! otherwise the reference could be wrong, i assume you have the ms office object browser 9.0 selected, I really don't know why but mine keeps turning itself off and i get erroras like that..?? all the best and I hope that tues is a long itme in coming!! Ed