View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
MM User MM User is offline
external usenet poster
 
Posts: 27
Default Vlookup and print loop

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