Vlookup and print loop

[MM User]

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 Guillett]

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

 

[MM User]

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]

If Len(Application.Trim(Cells(i, mc))) > 0 Then--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[MM User]

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]

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

 

[Dave Peterson]

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]

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!