Loop problem, I think

Guest · Aug 30, 2007

I have the following code but does not seem to work. It seem that I'm missing
something, but being a noves, I'm not sure what it is. I need to increase the
value in cell B12 by 1. Thanks

Sub printall()
'
' Keyboard Shortcut: Ctrl+t
'
Do Until B12 = 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Loop
End Sub

Guest · Aug 30, 2007

Try this approach, assuming that you always need to count to 5. Declare an
integer variable (in this example 'i') and use a For loop to count off the
loop until the number 5 is reached.

************************************************

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Next i
************************************************

stevebriz · Aug 30, 2007

if you are trying o increase the value in cell B12 then try:

Code:

Range("B12").Value = Range("B12").Value + 1

Guest · Aug 30, 2007

Great, thanks. Worked like a charm.

Is there a way to print to Adobe and then save the Adobe file using todays
date and the file number?
Or am I asking to much?

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
Application.ActivePrinter = "Adobe PDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne00:", Collate:=True
Sheets("INPUT").Select
Next i

Kevin B said:
Try this approach, assuming that you always need to count to 5. Declare an
integer variable (in this example 'i') and use a For loop to count off the
loop until the number 5 is reached.

************************************************

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Next i
************************************************
--
Kevin Backmann

pgarcia said:

I have the following code but does not seem to work. It seem that I'm missing
something, but being a noves, I'm not sure what it is. I need to increase the
value in cell B12 by 1. Thanks

Sub printall()
'
' Keyboard Shortcut: Ctrl+t
'
Do Until B12 = 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Loop
End Sub

Click to expand...

Guest · Aug 30, 2007

Wish I could help you with the Adobe question but I've not had much exposure
to Adobe file formats other than reading PDF files. Are you working in
Office 2007? My understanding that you can do PDF conversions in that
release of Office
--
Kevin Backmann

pgarcia said:
Great, thanks. Worked like a charm.

Is there a way to print to Adobe and then save the Adobe file using todays
date and the file number?
Or am I asking to much?

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
Application.ActivePrinter = "Adobe PDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne00:", Collate:=True
Sheets("INPUT").Select
Next i

Kevin B said:

Try this approach, assuming that you always need to count to 5. Declare an
integer variable (in this example 'i') and use a For loop to count off the
loop until the number 5 is reached.

************************************************

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Next i
************************************************
--
Kevin Backmann

pgarcia said:

I have the following code but does not seem to work. It seem that I'm missing
something, but being a noves, I'm not sure what it is. I need to increase the
value in cell B12 by 1. Thanks

Sub printall()
'
' Keyboard Shortcut: Ctrl+t
'
Do Until B12 = 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Loop
End Sub

Click to expand...

Click to expand...

stevebriz · Aug 30, 2007

you may want to check this out..maybe it will help.

http://www.exp-systems.com/forum_exp/forum_posts.asp?TID=39 http://www.exp-systems.com/forum_exp/forum_posts.asp?TID=39

Guest · Aug 30, 2007

No, in 2000. But thanks any ways. I may have to find some other way. Can I
bring up a command prompt and run a scrip from Excell?

Kevin B said:
Wish I could help you with the Adobe question but I've not had much exposure
to Adobe file formats other than reading PDF files. Are you working in
Office 2007? My understanding that you can do PDF conversions in that
release of Office
--
Kevin Backmann

pgarcia said:

Great, thanks. Worked like a charm.

Is there a way to print to Adobe and then save the Adobe file using todays
date and the file number?
Or am I asking to much?

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
Application.ActivePrinter = "Adobe PDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne00:", Collate:=True
Sheets("INPUT").Select
Next i

Kevin B said:

Try this approach, assuming that you always need to count to 5. Declare an
integer variable (in this example 'i') and use a For loop to count off the
loop until the number 5 is reached.

************************************************

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Next i
************************************************
--
Kevin Backmann

:

I have the following code but does not seem to work. It seem that I'm missing
something, but being a noves, I'm not sure what it is. I need to increase the
value in cell B12 by 1. Thanks

Sub printall()
'
' Keyboard Shortcut: Ctrl+t
'
Do Until B12 = 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Loop
End Sub

Click to expand...

Click to expand...

Guest · Aug 31, 2007

Go to VBE and look up the SHELL Function. This would let you run an external
exe
--
Kevin Backmann

pgarcia said:
No, in 2000. But thanks any ways. I may have to find some other way. Can I
bring up a command prompt and run a scrip from Excell?

Kevin B said:

Wish I could help you with the Adobe question but I've not had much exposure
to Adobe file formats other than reading PDF files. Are you working in
Office 2007? My understanding that you can do PDF conversions in that
release of Office
--
Kevin Backmann

pgarcia said:

Great, thanks. Worked like a charm.

Is there a way to print to Adobe and then save the Adobe file using todays
date and the file number?
Or am I asking to much?

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
Application.ActivePrinter = "Adobe PDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne00:", Collate:=True
Sheets("INPUT").Select
Next i

:

Try this approach, assuming that you always need to count to 5. Declare an
integer variable (in this example 'i') and use a For loop to count off the
loop until the number 5 is reached.

************************************************

Dim i as Integer

for i = 1 to 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Next i
************************************************
--
Kevin Backmann

:

I have the following code but does not seem to work. It seem that I'm missing
something, but being a noves, I'm not sure what it is. I need to increase the
value in cell B12 by 1. Thanks

Sub printall()
'
' Keyboard Shortcut: Ctrl+t
'
Do Until B12 = 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Loop
End Sub

Click to expand...

Click to expand...

Loop problem, I think

Guest

Guest

stevebriz

Guest

Guest

stevebriz

Guest

Guest