Search results for query: *

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

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

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.

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

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

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

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

...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)...

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?

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

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

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

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

...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 \...

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,

...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)]...

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

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

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

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.