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: *

  • Users: Enkay62
  • Order by date
  1. Enkay62

    open excel sheet vba

    Hi. Assuming that you intend to run Your code from a standard excel file, if you want to open another excel file called, say, "Myfile.xls" which has 11111111 as password, this is the code. Workbooks.Open Filename:="Myfile.xls, password:="11111111" Hope this helps. Bye Nick
  2. Enkay62

    combo box dependancy

    Hi sSnowmantle. Forget my last post. Private Sub cboAmountWords_Change() For Row = 1 To LastRowAmount If cboAmountWords.Value = Worksheets("Amount").Cells(Row, 2).Value Then cboAmount.Value = Worksheets("Amount").Cells(Row, 1).Value Exit for Else cboAmount.value = "" End If Next Row End Sub...
  3. Enkay62

    combo box dependancy

    Hi Snowmantle. Here I'm again (hope for last time about this thread). I looked at your code and, all in all, I would write it in a cleaner way, as following (just for one combo. for the other one do the same changing properly the combo names) Private Sub cboAmountWords_Change() For Row = 1 To...
  4. Enkay62

    combo box dependancy

    Hi Snowmantle. Here I'm again. There's a little correction about the code I posted befor. This is the correct one. Private Sub cboAmountWords_Change() LastRowAmount = ThisWorkbook.Worksheets("Amount").Range("A65536").End(xlUp).Row For Row = 1 To LastRowAmount If cboAmount.Value =...
  5. Enkay62

    combo box dependancy

    Hi. Just a suggestion "on the fly". Add to your "If" istructions the false condition. That is: Private Sub cboAmount_Change() LastRowAmount = ThisWorkbook.Worksheets("Amount").Range("A65536").End(xlUp).Row For Row = 1 To LastRowAmount If cboAmount.Value = Worksheets("Amount").Cells(Row...
  6. Enkay62

    Conditional Formatting

    Why not: [If Range.(yourcelladdress).Interior.Colorindex=35 Then 'code for TRUE End If] Hope this helps Nick
  7. Enkay62

    Excel not visible

    Great PHV !!!! Your second option works perfectly. Thank you very much PH, and thank you all for your suggestions. Bye Nick
  8. Enkay62

    Excel not visible

    Hi PHV. I just tried it. Unfortunately, it doesn't minimize the window. Any other idea? Thank you. Bye Nick
  9. Enkay62

    Excel not visible

    Hi xlbo. Of course you're right. But as far as I've understood, I would need to run excel or word etc... anyway in order to open a new istance of the application (Am I wrong?). What I would like to do is to open my file without visualizing excel or any other office application at all. That's why...
  10. Enkay62

    Excel not visible

    Hi, and thanks for replying. Since I don't have any programming language except for vba in excel 2000, I've tried it with a batch file. I wrote the path (i.e. : C:\myfile.xls). It worked but-obviously- it opened my file normally, that is passing through excel. Does anybody know which is the...
  11. Enkay62

    A simple windows question

    Hi. This time my question in not about a vba problem. I simply cannot remember the name of the command to type in Start/Execute textbox so as to visualize all the programs executed when windows is started. Something like autoexe.*** or so... Thank you. Bye Nick
  12. Enkay62

    Excel not visible

    Hi. I've an excel 2000 workbook with a single userform opened via workbook_open event. In that form initialize event I put app.visible=false. It works perfectly. My form is shown directly on dektop without visualizing excel, except for some seconds during excel opening before workbook_open...
  13. Enkay62

    columnheads in listbox

    No, PHV. The range property is set programmatically because the range is not always the same. What can I do? Thanks Nick
  14. Enkay62

    columnheads in listbox

    Hi PHV, thanks for replying. So am I using Userform.Listbox object. If I set columnheads property to true, suddenly appear, on design time, columns labels (Column A, B...) at the top of list box. Where I'm I wrong? Thank you Nick
  15. Enkay62

    columnheads in listbox

    Hi. I've a listbox with rowsource property. The first row of the sheet range doesn't contain data but just a heading. I would like my list box to scroll from second row so as to have heading always on top. I tried with "Columnhead" property but it doesn't work because it assumes that columnheads...
  16. Enkay62

    Very strange problem

    Hi Combo. Thank you very much. it works perfectly. Now, when I open my workbook, the application is shown for 1 second before being hidden. I understand that it's necessary to run excel in order to generate workbook_open event where I put the code to hide the application. What I wish to know...
  17. Enkay62

    Very strange problem

    Hi everybody. Here's what I've discovered just by chance. I've an excel 2000 workbook with a form that's always shown as it's loaded via workbook_open event and unloaded via workbook_beforeclose event. I realized that if I put , in workbook_open event, the code...
  18. Enkay62

    Extensions visualized

    Hi ev'rybody. Here's my problem. I've created and distributed a complete workbook (excel 2000). Now, after almost 2 years, I've realized that when I developed it I assumed that (as it happens most times) all common files extensions are always hidden (folder settings). So, there are tons of...
  19. Enkay62

    Sending Values To Different Forms

    Hi. I suppose you're using excel and so you can load only one form at once. So you have to use a global variable. A global variable must be written in a macro module (not in a Userform module) so as to be visible from any routine. In a module: (In general area at the top of the module) declare...
  20. Enkay62

    Compare two date fields in user form

    Hi. As far as I can see in your code there could be a couple of causes. An error of logic You wrote: .... Else If.... Just remove 2d if... so i'd write your code like this: Private Sub txtTime_Change() If txtTime.Value < txtDate.Value Then MsgBox ("The Due Date is less then the Request...

Part and Inventory Search

Back
Top