Hi,

I have a sheet that uses a lookup table to fill in values the sheet is then
printed.

I would like to loop the sheet so that I am able to print several sheets if
needed, I thought the best way to achieve this would be to add a checkbox
next to each record, where there is tick (true) that record needs to be
printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which looks up
the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D
E F G (checkbox with link
to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!

Why not be a bit simpler. Just put an x (or even anything) in the cell to
print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet is
then printed.

I would like to loop the sheet so that I am able to print several sheets
if needed, I thought the best way to achieve this would be to add a
checkbox next to each record, where there is tick (true) that record needs
to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which looks
up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E
F G (checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!

Don,

I understand what you are doing (I think!) and also have the code to print,

How do I loop my range for only the certain column

ie the vlookup refers to column A in the table to but the 'x' is in colmun
G?

I can use the to input the value :
lookuptablevalue = relevant row Column A value


sheets("sheet1").Range("A14").value = lookuptablevalue



Also the print command is

ActiveWindow.Selectedsheets.PrintOut Copies:=1, Collate:=True

Is there a way batch these altogether - not a problem if it is not possible,
just if it is.

Thanks




"Don Guillett" wrote in message
...
Why not be a bit simpler. Just put an x (or even anything) in the cell to
print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet is
then printed.

I would like to loop the sheet so that I am able to print several sheets
if needed, I thought the best way to achieve this would be to add a
checkbox next to each record, where there is tick (true) that record
needs to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which looks
up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E F
G (checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!

If Len(Application.Trim(Cells(i, mc))) 0 Then
If Len(Application.Trim(Cells(i, mc).offset(0,5))) 0 Then
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Don,

I understand what you are doing (I think!) and also have the code to
print,

How do I loop my range for only the certain column

ie the vlookup refers to column A in the table to but the 'x' is in colmun
G?

I can use the to input the value :
lookuptablevalue = relevant row Column A value


sheets("sheet1").Range("A14").value = lookuptablevalue



Also the print command is

ActiveWindow.Selectedsheets.PrintOut Copies:=1, Collate:=True

Is there a way batch these altogether - not a problem if it is not
possible, just if it is.

Thanks




"Don Guillett" wrote in message
...
Why not be a bit simpler. Just put an x (or even anything) in the cell to
print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet is
then printed.

I would like to loop the sheet so that I am able to print several sheets
if needed, I thought the best way to achieve this would be to add a
checkbox next to each record, where there is tick (true) that record
needs to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which
looks up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E F G
(checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!

Apologies Don,

I still cannot get this working it keeps looping but even if I have an x or
k in the G column it skips?

I'm not sure if the it goes to the next row etc?

Regards,




"Don Guillett" wrote in message
...
If Len(Application.Trim(Cells(i, mc))) 0 Then
If Len(Application.Trim(Cells(i, mc).offset(0,5))) 0 Then
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Don,

I understand what you are doing (I think!) and also have the code to
print,

How do I loop my range for only the certain column

ie the vlookup refers to column A in the table to but the 'x' is in
colmun G?

I can use the to input the value :
lookuptablevalue = relevant row Column A value


sheets("sheet1").Range("A14").value = lookuptablevalue



Also the print command is

ActiveWindow.Selectedsheets.PrintOut Copies:=1, Collate:=True

Is there a way batch these altogether - not a problem if it is not
possible, just if it is.

Thanks




"Don Guillett" wrote in message
...
Why not be a bit simpler. Just put an x (or even anything) in the cell
to print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet is
then printed.

I would like to loop the sheet so that I am able to print several
sheets if needed, I thought the best way to achieve this would be to
add a checkbox next to each record, where there is tick (true) that
record needs to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which
looks up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E F G
(checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!

If you like, send, to the address below, your workbook along with very
specific details and before/after examples.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Apologies Don,

I still cannot get this working it keeps looping but even if I have an x
or k in the G column it skips?

I'm not sure if the it goes to the next row etc?

Regards,




"Don Guillett" wrote in message
...
If Len(Application.Trim(Cells(i, mc))) 0 Then
If Len(Application.Trim(Cells(i, mc).offset(0,5))) 0 Then
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Don,

I understand what you are doing (I think!) and also have the code to
print,

How do I loop my range for only the certain column

ie the vlookup refers to column A in the table to but the 'x' is in
colmun G?

I can use the to input the value :
lookuptablevalue = relevant row Column A value


sheets("sheet1").Range("A14").value = lookuptablevalue



Also the print command is

ActiveWindow.Selectedsheets.PrintOut Copies:=1, Collate:=True

Is there a way batch these altogether - not a problem if it is not
possible, just if it is.

Thanks




"Don Guillett" wrote in message
...
Why not be a bit simpler. Just put an x (or even anything) in the cell
to print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet is
then printed.

I would like to loop the sheet so that I am able to print several
sheets if needed, I thought the best way to achieve this would be to
add a checkbox next to each record, where there is tick (true) that
record needs to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which
looks up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E F G
(checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!

Don's original code looked at column K.

If you want to look at column G, just change that "k" to "g"

Sub printif()
mc = "g" '<-- changed to g
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

If this doesn't help, I think it's time to share the code you're using.



MM User wrote:

Apologies Don,

I still cannot get this working it keeps looping but even if I have an x or
k in the G column it skips?

I'm not sure if the it goes to the next row etc?

Regards,

"Don Guillett" wrote in message
...
If Len(Application.Trim(Cells(i, mc))) 0 Then
If Len(Application.Trim(Cells(i, mc).offset(0,5))) 0 Then
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Don,

I understand what you are doing (I think!) and also have the code to
print,

How do I loop my range for only the certain column

ie the vlookup refers to column A in the table to but the 'x' is in
colmun G?

I can use the to input the value :
lookuptablevalue = relevant row Column A value


sheets("sheet1").Range("A14").value = lookuptablevalue



Also the print command is

ActiveWindow.Selectedsheets.PrintOut Copies:=1, Collate:=True

Is there a way batch these altogether - not a problem if it is not
possible, just if it is.

Thanks




"Don Guillett" wrote in message
...
Why not be a bit simpler. Just put an x (or even anything) in the cell
to print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet is
then printed.

I would like to loop the sheet so that I am able to print several
sheets if needed, I thought the best way to achieve this would be to
add a checkbox next to each record, where there is tick (true) that
record needs to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which
looks up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E F G
(checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!



--

Dave Peterson

Thanks Don/Dave,

Yep that's cleared up the problem I was having - I was not not sure what the
'k' was - anyway all working fine now so thanks again!



"Dave Peterson" wrote in message
...
Don's original code looked at column K.

If you want to look at column G, just change that "k" to "g"

Sub printif()
mc = "g" '<-- changed to g
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

If this doesn't help, I think it's time to share the code you're using.



MM User wrote:

Apologies Don,

I still cannot get this working it keeps looping but even if I have an x
or
k in the G column it skips?

I'm not sure if the it goes to the next row etc?

Regards,

"Don Guillett" wrote in message
...
If Len(Application.Trim(Cells(i, mc))) 0 Then
If Len(Application.Trim(Cells(i, mc).offset(0,5))) 0 Then
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Don,

I understand what you are doing (I think!) and also have the code to
print,

How do I loop my range for only the certain column

ie the vlookup refers to column A in the table to but the 'x' is in
colmun G?

I can use the to input the value :
lookuptablevalue = relevant row Column A value


sheets("sheet1").Range("A14").value = lookuptablevalue



Also the print command is

ActiveWindow.Selectedsheets.PrintOut Copies:=1, Collate:=True

Is there a way batch these altogether - not a problem if it is not
possible, just if it is.

Thanks




"Don Guillett" wrote in message
...
Why not be a bit simpler. Just put an x (or even anything) in the
cell
to print

Sub printif()
mc = "k"
For i = 1 To Cells(rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
'do your thing
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MM User" wrote in message
...
Hi,

I have a sheet that uses a lookup table to fill in values the sheet
is
then printed.

I would like to loop the sheet so that I am able to print several
sheets if needed, I thought the best way to achieve this would be to
add a checkbox next to each record, where there is tick (true) that
record needs to be printed, - is this possible?

Sheet1 - page to be printed dropdown list located at cell a14 which
looks up the value on sheet2 column A

Sheet2 - contains the lookup table

A B C D E F
G
(checkbox with link to cell - true/false)

a001 something something something something
something checkbox (True/False)
a002 something something something something
something checkbox (True/False)
a003 something something something something
something checkbox (True/False)
a004 something something something something
something checkbox (True/False)
a005 something something something something
something checkbox (True/False)
etc

Thanks in advance!



--

Dave Peterson