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 strongm 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. waynerenaud

    Use INDIRECT function with network path

    Thanks for the lightning quick response xlbo, works fine with the other workbook open :-)
  2. waynerenaud

    Use INDIRECT function with network path

    I want to use the indirect function to obtain data from another workbook on the network. workbook on my pc = local.xls workbook on server = P:\test\server.xls (P: is a network share with all necessary permissions) server.xls has 3 worksheets named QLD NSW VIC cell A1 in QLD = 5 cell A1 in NSW =...
  3. waynerenaud

    Accesing MS Outlook through Excel

    Its ok guys - I have fixed it. For interest: It had lost the vba reference to the microsoft outlook 11.0 object library. Re-added the reference and everything is peachy again :-)
  4. waynerenaud

    Accesing MS Outlook through Excel

    I have some code that I have been running everyday for over a year. Yesterday it started erroring. (Nothing new installed, nothing has changed in our environment) the only thing I can see different is windows update has loaded some SP2 hotfixes (I do not have SP2 installed). I have not tried to...
  5. waynerenaud

    Copying a dynamic row

    Try this: Sub Macro1() Dim StartRow, EndRow, SelectionArea StartRow = ActiveCell.Address EndRow = ActiveCell.Offset(98, 0).Address SelectionArea = StartRow & ":" & EndRow Range(SelectionArea).Select End Sub
  6. waynerenaud

    Connecting to IMAP folder in Outlook 98 through Excel VBA

    Hey gjd, I thought you deserved a star, 1 for giving yourself some great help, and 2 for updating your post so that we could all benefit. Your code will help me with a couple of issues I've had. Thanks :-)
  7. waynerenaud

    Help!!? Hide Activity

    Try putting this at the beginning Application.ScreenUpdating = False Dont forget to put this at the end Application.ScreenUpdating = True
  8. waynerenaud

    Powerpoint Slide Index # / Name

    Back at work now :-) this is what I have so far, which will open ppt and select slide2. Sub Open_Powerpoint() Dim pptApp As PowerPoint.Application Set pptApp = New PowerPoint.Application pptApp.Visible = True filetoopen = Application.GetOpenFilename() 'choose the powerpoint...
  9. waynerenaud

    Powerpoint Slide Index # / Name

    f64 - I want to do exactly the same thing. I started writing some code today at work (cant access it because I am at home now). I have only managed to get as far as opening powerpoint and selecting a specific slide using slide1 slide2 etc so I would be interested to see any code you have so far...
  10. waynerenaud

    Exporting Excel Charts

    Right click on your chart and choose copy. Or..... In excel2003 (don't know if this works on earlier versions) click on your chart so that it is selected, then hold down the shift key and click on the menu option Edit, you get an extra choice of copy picture. This will copy to the clipboard and...
  11. waynerenaud

    Current Selected Cell

    Try in cell B4 =RIGHT(D6,5) then fill down as required or look at =cell("address") or the INDIRECT function Hope this helps
  12. waynerenaud

    ActiveCell.Column

    Hi PWD, I cannot work out what you are trying to do..... I figured you need "z" in cell F2 and "Stockcheck" in cell G2. What are you trying to do from there ? Selection.End(xlDown).Select will select the next data entry in the current column, in your case column G, so if you have an entry in G3...
  13. waynerenaud

    Check Box Excel VBA

    psalm6229 what do you mean by "I want the Value in M11 to be linked to ....." ??
  14. waynerenaud

    Sequential numbering

    Another way to skin a cat..... put 1 in cell A1 then choose edit/goto under Reference put A2:A3000 click ok then type =A1+1 and press ctrl + Enter
  15. waynerenaud

    Starting a macro from a custom button

    If I have understood your question correctly, you need to save them in personal.xls. If you dont have personal.xls go to tools/macro/record new macro in the window that pops up choose personal macro workbook from the dropdown. You can then copy your modules/macros into personal.xls which can be...
  16. waynerenaud

    Get outlook mail headers into excel using vba

    Thanks PH, I added the references and it worked like a charm. Rob you get a well deserved star. One last question :-) In Outlook, I view 2 mailboxes, one is my normal inbox, the other uses the inbox in a mailbox called helpdesk_mb to store voicemails from our phone system. I need to pull the...
  17. waynerenaud

    Get outlook mail headers into excel using vba

    Hey Rob, I really appreciate the time you have taken to help me. I tried pasting your code into a module in excel, and ran from a button on a worksheet Sub test() Module1.CopyHeadersToExcel End Sub It errored at the first dim statement saying Compile Error user-defined type not defined. So I...
  18. waynerenaud

    Get outlook mail headers into excel using vba

    Hi, From excel, I need to open outlook (2002), and copy all emails from the inbox for the previous month, into excel. If I do this manually, it automatically pastes the header only information into excel, (1 row per email) which is exactly what I want. I just need to know how to do it in vba...
  19. waynerenaud

    Displaying current log user in VB form?

    This may help Dont know about VB, but in vba in excel, add a module and put the code below in. Then in any cell on your spreadsheet you can put =getuser() Hope this helps. Function GetUser() GetUser = Environ("Username") End Function
  20. waynerenaud

    Run Excel Macro on Enter Cell

    You can also try something like this. (You can change the msgbox line to call a macro instead ie module1.macro1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Address = "$A$5" Then Range("A1").Value = "Type a description here" MsgBox "you clicked cell A5" End If End Sub

Part and Inventory Search

Back
Top