Need Help with PDF Printing VBA

[jonast2]

I need help to create a macro to print to PDF.
If cell H4 contains ”Hi” then print sheet Hi.
If H4 contains ”Bye” then print sheet bye.
Save it to folder …..

After the printing i want put OK in a list
Example. In C4 there are a uniqe number. I want it to find what row in C10- C10000 it is and write Ok on column I.

Thx in advance =)

[jonast2]

Oh and i forgot =)
I also would like that the pdf file is named from cell H4 and C4
Example
Cell H4 "Bye"
Cell C4 "Jonas"
Name of pdf "Bye_Jonas.pdf"

[dangelor]

In the 1st post -

C4 there are a uniqe number

In the 2nd post-

Cell C4 "Jonas"

"Jonas" doesn't seem to be a number...

[jonast2]

Hehe True, but what i want is it to Vlookup in column C and find in this case "Jonas", But there will be social security number there
example 19800101-1234

[dangelor]

Possibly...

Please Login or Register  to view this content.

[jonast2]

Sweet, and is it possible that it will choose what sheet to print?
if cell H4
is Hi Print Sheet 1
Is Bye print sheet 2
etc

[dangelor]

Using Select Case...

Please Login or Register  to view this content.

[jonast2]

Sweet thx alot, it work, but not the
Set c = .Range("c10:c10000").Find(.Cells(4, 3).Value)
If Not c Is Nothing Then
c.Offset(, 6) = "OK"

Had to delete this rows then it worked =)


Jonas

[dangelor]

That bit of code does a search for the value in C4. If that value wasn't found, it exits the routine.