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 SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. razman10

    Delete VBComponent

    ...or preferably copy all but only the stuff you want into a new WorkBook and then send that. That is actually where I started, but I need to send some code with it (Module 3) so the recipient can in turn run a macro. I could not find a way to easily copy a module into a new workbook, so I...
  2. razman10

    xlDialogSendMail syntax

    A nice simple way to accomplish this is the declare the email addresses in variables then use: ActiveWorkbook.SendMail _ Recipients:=Array(emailaddy, emailaddy2, emailaddy3), _ Subject:="Subject Goes Here" This way you can have as many email addresses as you need.
  3. razman10

    Delete VBComponent

    I've tried it both with and without the error trap and with and without the DisplayAlerts and it does the same. There is no error message; the code is properly laid out and it runs properly. The Module is removed if I stop the code, but not if I let it run. Is there any way of releasing memory...
  4. razman10

    Macro Using Send Receipent with Attachment Excel Feature

    Try Application.Dialogs(xlDialogSendMail).Show instead of wb.SendMail The filename will be in the SUBJECT: field and the TO: field will be blank.
  5. razman10

    Delete VBComponent

    Thanks for the reply, Tony, but that's not it. Module 2 is still there. Module 2 has a bunch of macros and what not that run BEFORE moving to Module 3 which is where the code I posted above is located (along with other code). It's almost as if it's keeping Module 2 in memory until the code is...
  6. razman10

    Delete VBComponent

    I have the following code in a userform to delete "Module 2" and it works - sometimes. (I "borrowed" this code from a website, I don't remember which one) DeleteVBComponent ThisWorkbook, "Module2" Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String) ' deletes the vbcomponent...
  7. razman10

    drop down box

    How were the drop downs created? Did you use the Forms Toolbar or Control Toolbox Toolbar or some other way?
  8. razman10

    Unique Records with Duplicate Fields

    In the example above I only included duplicates. In the example I have here below, I do not want to see: 03901, 03904, 03906, 03908, 03909, or 04005. County Zip Code City State YORK 03901 BERWICK ME YORK 03902 CAPE NEDDICK ME YORK 03902 YORK ME YORK 03903 ELIOT ME YORK 03903 ELLIOT ME YORK...
  9. razman10

    Unique Records with Duplicate Fields

    Thank you Leslie. That solution provides all unique zips, regardless of non-matching cities. However I am looking for only unique zips with non-matching cities. Can this be done? I know it can be done in Excel, however with the number of records I have, that is not feasible.
  10. razman10

    Unique Records with Duplicate Fields

    Hello, I apologize if this has already been answered, I could not find the answer anywhere. I have a large database (almost 400,000 records) each with a customer's name, address etc, year & month, and sales. I have found many records with the same zip code but somehow have a different...
  11. razman10

    Emails not getting deleted by Microsoft Outlook

    Bijan Shahrokhi, This is from the Microsoft Office Help section: When you mark an item on an IMAP e-mail server for deletion, it is displayed in strikethrough text in the header list. To permanently delete the items marked for deletion, do the following: On the Edit menu, click Purge Deleted...
  12. razman10

    Overbloated EXCEL workbook?

    What I do is select all of the blank columns to the right of the data and delete the entire columns. Then I select all of the blank rows below the data, and delete the entire rows. Then save the workbook (it'll be much smaller in file size). This can be done rather quickly once you get used to...
  13. razman10

    Weeknum function giving me a 53rd week in the year!

    I don't know why Excel is reading it that way, but I can tell you it's because you are using Monday as your start day. For example, 1/1/06 is coming up as week 1, but 1/2/06 is coming up as week 2. Try changing your start day to 1 (Sunday). That should do the trick.
  14. razman10

    Nested if statement question

    scripscribe, You are missing a closing parenthesis after your second "CONCATENATE". You don't really need to use parenthesis in that form, however since you opened it, you must close it. Here is the code you need...
  15. razman10

    Excel Text Formatting

    Thank you JensKKK; I am all set. Razman10
  16. razman10

    Excel Text Formatting

    WalkerEvans, Formatting as Special/Zip Code also drops leading zeros. The cell appears to have a leading zero, but that's just visual, there really is nothing there. If you try to use that data somewhere else, there really are no leading zeros. Good thought though!
  17. razman10

    Excel Text Formatting

    A-HA! That's it!!! Thank you!!! Just for the record, what does the number format "@" mean?
  18. razman10

    Excel Text Formatting

    PHV, Thank you as well for your time and expertise. I tried including the .NumberFormat that you suggested, but no new results. If I keep the cell format as general, that part of the code works fine. I would just like to convert the cell formatting to text only when the "New Customer" option...
  19. razman10

    Excel Text Formatting

    Thanks for your help Bob... I see what you are saying, however this code runs before any user input. This code simply unlocks the cells so that the user can provide input. There is nothing populated in the cell to use your "&.value" code. I would like the cell to be formatted as text already...
  20. razman10

    Excel Text Formatting

    PHV, Yes; here is the actual code I'm using for the Zip cell: Range("E5").Select With Selection .Interior.ColorIndex = xlNone .Locked = True .Formula = "=VLOOKUP($G$2,'Loan Tool Custs'!$B:$I,6,FALSE)" End With...

Part and Inventory Search

Back
Top