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!

Register Log in
  • Congratulations derfloh 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. romij29

    Problems with List Box Array

    Hi, Haven't been on here in a while. Have a slight problem(at least i suspect it is) which i would like some help with: I have a macro thatopens a userform on which a button is clicked to copy and paste data into sheets 2 and 3 of the excel control worksheet. Right after that a RUN button is...
  2. romij29

    Having problems:Multiple selection,listbox, boolean??

    ...As Workbook, wbRet As Workbook, wbTradAccs As Workbook Set wbThis = ActiveWorkbook FullFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", False) Application.StatusBar = "Opening " & FullFileName If FullFileName = "False" Then Application.StatusBar = False Exit Sub End If...
  3. romij29

    Having problems:Multiple selection,listbox, boolean??

    Thanks PHV,tried that but it doesnt seem to run at all. After I click on first bur-tton to import data into the control sheets 2 and 3, and clicking on the RUN button, the macro does not seem to run nor it does it show any runtime errors.
  4. romij29

    Having problems:Multiple selection,listbox, boolean??

    Hello PHV, yes there is.stupid of me to not have put it on there. It says; "Could not get the Selected property.Invalid argument" Apparently my F-Range on the error line is the listbox contents and these come up to 11.Whatever choice I make in that listbox upon running and debugging lists i to...
  5. romij29

    Having problems:Multiple selection,listbox, boolean??

    Hello to everybody, Havent been on here in a while. Have a slight problem(at least i suspect it is) which i would like some help with: I have a macro thatopens a userform on which a button is clicked to copy and paste data into sheets 2 and 3 of the excel control worksheet. Right after that a...
  6. romij29

    How do I write a set of instructions in VBA??

    Hello I have a GetOpen Filename program that works for two workbooks being copied into 2 sheets of a destination workbook. However, i want a situation where I can say that if user chooses a file in a specific folder, then do a set of instructions, However if the file chosen is in another...
  7. romij29

    Open dialog box. Can Introduce an If ....Else If statement??

    Hello, Put the above question on yesterday??Anybody with any ideas??
  8. romij29

    Open dialog box. Can Introduce an If ....Else If statement??

    ...wbThis As Workbook, wbTrad As Workbook, wbRet As Workbook Set wbThis = ActiveWorkbook FullFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", False) Application.StatusBar = "Opening " & FullFileName Set wbTrad = Workbooks.Open(FullFileName)...
  9. romij29

    Closing a file(any file) retrieved by GetOpenFilename method

    Thanks PHV, Thanks a lot.It worked a charm. Is it possible to set the multiselect to True and select two files in different folders within the same dialog box. If so, how can this be done?
  10. romij29

    Closing a file(any file) retrieved by GetOpenFilename method

    Hello, Tried that but did not work. Thanks for the tip anyway.Is there any other way of multiselecting apart from creating a new user form..?? Thanks
  11. romij29

    GetOpenFilename;PROBLEM WITH CLOSING THE FILE I OPENED

    Hello SkipVought, I must say that you just made my day soo much simpler and I wanna thank ya for your assistance.Very well appreciated. The code worked like a charm. I also need to know something about multiselect.I tried setting it in the code to true to enable me pick two files at the same...
  12. romij29

    Closing a file(any file) retrieved by GetOpenFilename method

    ...a problem? Here is my code so far: Sub mnuFileOpen_Click() Dim FullFileName As String FullFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", True) Application.StatusBar = "Opening " & FullFileName Workbooks.Open FullFileName Sheets(1).Range("A:H").Copy...
  13. romij29

    GetOpenFilename;PROBLEM WITH CLOSING THE FILE I OPENED

    ...have a slight problem with this code. Sub mnuFileOpen_Click() Dim FullFileName As String FullFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", False) Application.StatusBar = "Opening " & FullFileName Workbooks.Open FullFileName Sheets(1).Range("A:H").Copy...
  14. romij29

    Open Dialog Problems

    ...ofn.hWndOwner = hwnd ofn.lpStrFile = szfile ofn.lpStrFile [0] = "'\0'" ofn.nMaxFile = sizeof(szfile) ofn.lpStrFilter = "All Files\*.*\Excel Files\*.XLS" ofn.lpstrFilterIndex = 2 ofn.lpStrFileTitle = Null ofn.nMaxFileTitle = 0 ofn.lpStrInitialDir = Null ofn.Flags = OFN_PATHMUSTEXIST \...
  15. romij29

    Problems with CommonDialog codes(Open Dialog,precisely)

    PHV, Its beyond my reach to have those files installed.Office policy.Don't ask me. I need to sort this out now and I am afraid I will not have the time to be chasing some IT person, so if you can give me some concrete answers it'll be appreciated. Thanks,
  16. romij29

    Open Dialog Problems

    ...not allowed for some reason. Hence my blindness. Put the ff code in my program and when I step thru it ,there is nothing.Any ideas,concrete pls?? Sub mnuFileOpen_Click() Application.GetOpenFilename [(All Files (*.*)|*.*|Excel Files (*.xls)|*.xls), 2, (Dialog Box Open), (Form) , (False)]...
  17. romij29

    Open Dialog Problems

    Thanks Flippertje, I am new to this so it would be good idea if you could explain in laymans terms what this is all about.What is the parentheses like for the items .And could you write it in perfect syntax pls. Regards
  18. romij29

    Open Dialog Problems

    ...vbModeless End Sub Second Code: Sub mnuFileOpen_Click() Dim WhatFile As String Dim CommonDialog1 As Dialog CommonDialog1.Filter = "Excel Files (*.xls)|*.xls|Text Files (*.txt)|*.txt" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen WhatFile = CommonDialog1.Filename Iget the error on...
  19. romij29

    Problems with CommonDialog codes(Open Dialog,precisely)

    Hello PH, Thanks for your advice again Unfortunately,I am working off my jobs 'system and I do not have help files installed soI 'd appreciate any immediate help as I need to sort this out A.S.A.P. Thanks, romij29
  20. romij29

    Problems with CommonDialog codes(Open Dialog,precisely)

    Hello PH, Thanks for your answer.You have lost me slightly there.Have no clue how to use this. Not very conversant with the open dialog codes Could you enlighten me further, Thanks' romij29.

Part and Inventory Search

Back
Top