Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by APElliott

  1. APElliott

    Form Method=Post - How to make it work?

    Hi Tony, The form as been created in VB in a excel workbook. We have an exchange server here. Cheers, Andy
  2. APElliott

    Form Method=Post - How to make it work?

    Hi, Can anyone help with this - I'm completely out of my depth! I've managed to create an email with a form on it. I know it needs amending, but haven't got a clue what to do. I've been reading past treads, but got nowhere. What exactly do I need to add and where. Please help "<FORM...
  3. APElliott

    Adding Attachments ie Cad drawings

    Hi, I've just started using some code from the Ron DeBruin website to send workbooks to various people. See the code below. However, what extra bit of code would I need to add other files that would be listed in column J. Also what adjustments need to be made to send the emails one at a time...
  4. APElliott

    How to send an Outlook email from Excel

    Hi, I'm trying to make use of the above for something similar. What reference do you need to add and how do you do it? Cheers, Andrew
  5. APElliott

    Autofilter Criteria &gt;left(e2,2) or &lt;left(e2,2)

    Hi Again, Problem! The code won't work on my data field when it's been pasted from another document. It only selects the required data if I change the filter to a 'Does Not Contain Criteria' as below: Selection.AutoFilter Field:=7, Criteria1:="<>*20*" '20' being the first 2 characters of...
  6. APElliott

    Autofilter Criteria &gt;left(e2,2) or &lt;left(e2,2)

    Cheers ETID, I got a Syntax error with the code. However, I've amended to this and it does what I want. Thankyou! Selection.AutoFilter Selection.AutoFilter Field:=7, Criteria1:="<>" & Left(Range("e2"), 2)
  7. APElliott

    Autofilter Criteria &gt;left(e2,2) or &lt;left(e2,2)

    Hi There, Can anyone help me with some code to perform an autofilter? I'm trying to filter all items in a column that are greater or less than the first 2 characters in cell e2. I've tried the following but it won't work! Selection.AutoFilter Field:=7, Criteria1:=">left(e2,2)"...
  8. APElliott

    Code to close created mdi file

    Hi, I have some code that prints from a excel pivot table to create and save as a mdi file. The code can loop upto 60 times creating 60 files. However when it creates the mdi files they are left open and no more can be created when the number of mdi files reaches 10. I'm hoping there is a...
  9. APElliott

    Automate file save as

    Thankyou Skip!!!!! Andy Small World Geoff - nice place is Sale!
  10. APElliott

    Automate file save as

    Skip, Fantastic - that's just the trick! I've altered the code as necessary and it works at treat: Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne00:" ActiveSheet.PrintOut Copies:=1, PrintToFile:=True, Collate _ :=True...
  11. APElliott

    Automate file save as

    Hi Guys, Thanks for your help guy's! I don't think my code as help to explain myself - apologies! I'll try and explain a bit better: I have some code that currently prints from a pivot table (see below) Now instead of printing hard copies I'd like to print '*.mdi' files. However, when...
  12. APElliott

    Automate file save as

    Hi Skip, Here my code: ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, _ PrintToFile:=True, Collate:=True ActiveWorkbook.SaveAs Filename:= _ "\\server007\BConstruct\Estimating\Shared\Andy Elliott, Backups\02.Tenders\2005 Tenders\3405 Altrincham Grammar...
  13. APElliott

    Automate file save as

    Thank for your response Skip! I have tried Recording, but I didn't know how to change the code to so that it would name the file in the way as previously mentioned. Cheers, Andy
  14. APElliott

    Automate file save as

    Hi, I have some code that I been using to print hard copies from Pivot Tables. I would now like to print the file as a 'Microsoft Office Document Imaging File'. However I would like some VB code that would automatical give the file save as name. The file name is to be the first 4 characters...

Part and Inventory Search

Back
Top