Increase prompt in message box

Visual Basic for Applications (VBA)

‹ Microsoft ISV
- Archive
  - VS Express
  - ISV
  - Visual C#
  - Dotnet
  - Game
  - Office
  - Windows Forms
  - SharePoint
  - Windows Live
  - VFP
  - IE
  - Smart Device
  - VB
  - Windows Vista
  - Visual Studio
  - VS 2008
  - SQL Server
  - Architecture
  - VC++

- Previous
  - 1
    - Showing the printing window in Excel to print a spreadsheet. Hello all, I am trying to get a macro done that prints a sheet in a workbook. Up till now, I have been using the ActiveSheet.PrintOut function to do this. However, I want to give the user printing options. So the best thing I could do was use ActiveSheet.PrintOut Preview:=True, which at least allows the user to manipulate the page formatting and zooming. However, this doesn't allow the user to choose a printer (it just prints on the default printer). Is there a function I can use that will just load the default Excel print window (the one that you see when you hit Ctrl + P) I have no doubt that there is such a function, but I have no idea how to find it... Thanks a lot. Tag: Increase prompt in message box
  - 2
    - VBA 6.3 String Hi, My question is how do i access individual characters of a string in VBA 6.3 is there something like myString[0] thx Tag: Increase prompt in message box
  - 3
    - IsError function from VBA6.3 to v6.0 I can not reproduce an error using your code and my data. Matching values are found and the correct cell updated. Non matching values get NEW in the cell. Tag: Increase prompt in message box
  - 4
    - Calling a function from a DLL I can't reference it under VB. I have to make a Public Declare Function statement at the begginnig of the code. The problem is, it can't find the name of the dll =/ I used the linker, to help me finding the real name of the function, but it didn't worked either =/ But thanks for the help, the advice u gave works in 95% of the time =] Tag: Increase prompt in message box
  - 5
    - VBA macro to replace hi sree i've just send an example file. i added some comments on the code. plz check your gmail. bye Tag: Increase prompt in message box
  - 6
    - Locking clickable labels Can you lock a label like you can a toggleButton I have some code as follows; If toggleButton1.value = True Then togglebutton2.locked = True Else togglebutton2.locked = False End If But I also want to temporarily lock some clickable labels, but there is no ".locked" function for labels. How do I stop a label's click action from being allowable under certain circumstances Thanks. Tag: Increase prompt in message box
  - 7
    - Error 1004 with Excel 2007 (on VISTA) on Publish method Hi, I'm trying to publish a Range in an html file from excel 2007 (OS is VISTA) and I receive an error 1004 on the Publish method. Here is the code I'm using : Code Block ' temp file name Dim TempFile As String TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" ' delete any PublishObjects left Set objPObjs = ActiveWorkbook.PublishObjects For Each objPO In objPObjs If objPO.HtmlType = xlHtmlStatic Then objPO.Delete End If Next objPO ' Set the publishObject attributes ActiveWorkbook.PublishObjects.Add _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=ActiveSheet.Name, _ Source:="A1:J12", _ HtmlType:=xlHtmlStatic ' Publish the object For Each objPO In objPObjs If objPO.HtmlType = xlHtmlStatic Then objPO.Publish End If Next objPO I tried many things (including samples found on theweb) without success. Any help appreciated. Regards, Laurent. Tag: Increase prompt in message box
  - 8
    - how to get the VALUE of an OUTLINENUMBER (word / macro in VB) Hi, I am currently working on a VB macro which has to get references in Word documents in order to make a traceability matrix. My problem comes from a document, in which the references are Outlinenumbers in a column containing this outlinenumber list. I have to get the value of the cells of this column, but these outlinenumbers (auto-incremented numbers) are neither strings nor numbers... I don t know the type and then I don t know how to get the value. Any idea that would be great because i m currently stopped in my internship because of that. Regards, Cal. Tag: Increase prompt in message box
  - 9
    - HELP FIX THE CODE.......... I have somehow managed to put some code together to complete a task that i have found some difficulty with. Match and delete a row from table. Need some help fixing the code.......... ArrNames = Array("creation1", "creation2", "creation3", "Creation4", "creation5", "creation6", "creation7", "creation8", "creation9", "creation10", "creation11") If Not IsError(Application.Match(.Value, ArrNames, 0)) Then .EntireRow.Delete Dim ArrNames As Variant With .Cells(Lrow, "B") Firstrow = .UsedRange.Cells(1).Row Lastrow = .UsedRange.Rows(399).Row Sub Loop_Example() Dim Firstrow As Long Dim Lastrow As Long Dim Lrow As Long Dim CalcMode As Long Dim ViewMode As Long With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With Tag: Increase prompt in message box
  - 10
    - Problems with VB solver code I am writing visual basic code behind an excel spreasheet and am having difficulty making it work. It involves using the solver function. The code is listed below: Sub signif_control_pop() Dim cntlpc Dim pop 'Clear any previous solver settings. SOLVERReset 'Prompt user for population size. pop = Application.InputBox(Prompt:="Population Total:", Type:=1) Range("C3") = pop 'Set targeted cell, H16, to a value by changing the range of acceptable percentages. SolverOK SetCell:=Range("H16"), MaxMinVal:=3, _ ValueOf:=0.95, _ byChange:=Range("B5") ' Solve the model and keep the final results. SolverSolve Userfinish:=False 'Save results of control percent before you discard the results. cntl_pc = Range("B5") SolverFinish KeepFinal:=1 'NOTE: Does not work if I include ReportArray:=1 ' Show the result in a message box. MsgBox "The Control Population Percent for " & pop & " is " & cntl_pc & " " End Sub The problem I'm having is regarding the "ByChange" cell (B5) used in the solver function. The value in the cell never changes. When the message box is displayed, it always displays the same number, which is the number that was sitting in cell B5 before I ran the program. I have included "SolverFinish KeepFinal:= 1" in the code. If I do not run the visual basic code, but rather manually run Solver in excel, it will change cell as I want it to do. Any help is appreciated. Stacy Tag: Increase prompt in message box
  - 11
    - New to Visual Basic Thanks for the help... Im not to sure on what you mean and where to put it though... This is what I have now! Option Compare Database Dim str As String Dim Number As Integer Private Sub cmdOne_Click() str = "" str = str + "1" Number = CInt(str) End Sub Private Sub cmdTwo_Click() str = "" str = str + "2" Number = CInt(str) End Sub Private Sub cmdThree_Click() str = "" str = str + "3" Number = CInt(str) End Sub Private Sub cmdEnter_Click() End Sub Private Sub cmdStdBurger_Click() StdBurger = 1.99 End Sub Private Sub cmdDlxBurger_Click() DlxBurger = 2.99 End Sub Private Sub cmdSmFries_Click() SmFries = 0.99 End Sub Private Sub cmdSubTotal_Click() txtSubTotal = End Sub Private Sub cmdTotal_Click() txtTax = txtSubTotal * 0.05 txtTotal = (txtSubTotal * 0.05) + txtSubTotal End Sub Tag: Increase prompt in message box
  - 12
    - Information required : WOW64 What is WOW64 How it helps to run 32-bit applications on 64-bit processor Where could I get it Tag: Increase prompt in message box
  - 13
    - MSDN Installation I've MSDN installed on my system, since i've installed it through MSDN setup (not by VS setup) Visual Studio does not recognize its presence(Ctrl+F1 doesn't work.), Is there a way I could tell visual studio about the presence of MSDN. By the way this behaviour is common in both VS 2003 as well as VS2005 Tag: Increase prompt in message box
  - 14
    - error message when closing ie7 I've been having the same problem. I trawled through my add-ons disabling & enabling until I found the offending article then disabled it. Hope this helps. Tag: Increase prompt in message box
  - 15
    - add group to printer ACL Hello, I have a print server with 200 shared printers. I need to add a group to each printer ACL with an appropriate rights (same for all printers). Is anyway to script it Thank you Ali Tag: Increase prompt in message box
  - 16
    - VBA XML and encoding Hello, Here is my issue. In an excel sheet, I fill in several cells which contain text. This text can be either in english / french / spanish / italien / german, which means I can have characters like "e" or "e" etc... In a vba macro I'm trying to put all these data into an XML, this XML is then processed later on by an ASP.net app I have created (using an xmlreader). The thing is, when I try to display the value of each node of my XML with my ASP.net app, some characters are replaced by squares. For example, characters like "-", "...", singlequote BUT, characters like "e" and "e" are perfectly displayed . And when I have a look into my XML file with Visual Studio I can clearly see all my characters. Everything is fine. However, when I try to save the file in VS, it warns me "that some unicode characters can't be saved in the current codepage. Do you want to resave the file as Unicode in order to maintain your data " If I click "YES" it then set the Xml Encoding to : UTF-16 And from now on, everything is displayed correctly in my ASP.net app. Here is the VBA Code which generates my XML File. Code Snippet Open strPath & cstStudyName & ".xml" For Output As 1 Print #1, "< xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-1" & Chr(34) & " >" Print #1, "<root>" iCurLine = cstiStartLine While objSheet.Cells(iCurLine, cstiVarCol).Value <> "" strValue = objSheet.Cells(iCurLine, iEnglisCol) Print #1, "<" & objSheet.Cells(iCurLine, cstiVarCol) & " label= " & Chr(34) & CheckContentsXML(strValue) & Chr(34) & "/>" iCurLine = iCurLine + 1 Wend Print #1, "</root>" Close #1 As you can see, I have tried to specify "ISO-8859-1" in the XML header. If I specify "UTF-8" then xmlreader is generating an error at the first weird character it encounters such as "-" If I try to specify "UTF-16", it then becomes a bunch of unreadable characters and my ASP.net display nothing. Does anyone have an idea Thanks a lot. Tag: Increase prompt in message box
- Next
  - 1
    - Configuration Failed Configuration Failed One or more configuration settings failed. Completed configuration settings will not be rolled back. Resolve the problem and run this configuration wizard again. The following contains detailed information about the failure: Failed to initialize SharePoint Products and Technologies upgrade. An exception of type System.Collections.Generic.KeyNotFoundException was thrown.Additional Information The given key was not present in the dictionary Plz Help One or more configuration settings failed. Completed configuration settings will not be rolled back. Resolve the problem and run this configuration wizard again. The following contains detailed information about the failure: Failed to initialize SharePoint Products and Technologies upgrade. An exception of type System.Collections.Generic.KeyNotFoundException was thrown.Additional Information The given key was not present in the dictionary Plz Help Tag: Increase prompt in message box
  - 2
    - Communicator Mobile 2005 and TLS (Using port 4443 possible?) More options Confused on something with CM and CWA: We have web access enabled/installed, it uses MTLS and certificates on port 4443 to access the site... I'm assuming when using Communicator Mobile on Windows Mobile 2005, I specify TLS to connect remotely to the server (no vpn).. Is there a way to specify port 4443 or is the TLS port 443 even with Web Access installed on port 4443 (IE: these are different or the same) Thanks Tag: Increase prompt in message box
  - 3
    - VBA in Excel - organizing charts as objects in a sheet I am using a macro to create multiple charts from data on a separate sheet in the Excel file. However, the program places each new chart on top of the previous one in the sheet I select. I would like to place these charts apart on the sheet so that they are viewable. 1) Is there an command to order the charts down and across the sheet 2) Alternatively, can I select and move each sheet without using the actual object name in the while loop, "Chart1," for example. 3) Specifiying the object name would only work for the first chart. Is there a way to number the charts with a variable Here is the while portion of my code as it is now ( red text indicates the portion I am having difficulty with ) : While j < 243 Charts.Add With Sheets("TRESULTSdmp_3") ActiveChart.SetSourceData Source:=.Range(.Cells(i + 1, j + 1), .Cells(i + m, j + 1)), PlotBy:=xlColumns End With ActiveChart.ChartType = xlXYScatter ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Test point to the right" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveWindow.Visible = False <----- question 2 above) want to move object to a specific location ActiveWindow.WindowState = xlNormal (will have to make Range a variable) ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.ChartObjects("Chart 8").Activate ActiveChart.Paste ActiveSheet.Shapes("Chart 3").IncrementLeft -123.75 <--- question 3 above) want to make object # variable ActiveSheet.Shapes("Chart 3").IncrementTop -8.25 j = j + 1 Wend Tag: Increase prompt in message box
  - 4
    - AutoExec will not execute properly Ok, i've been working through the code to see what it actually was required to do. You mentioned that the entries menu_protection_set, menu_protection_clear and menu_archive are the only ones that appear within the custom Menubar. Well, those entries are the only ones (next to the "Formulare und Dokumente") who don't to have a IF .. THEN statement which verifies if the required criteria have been met. If were are walking through the code the following came up: test = Dir(local_start_folder & name_project_list_txt) If test <> "" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_projects ' "&Projektdokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "Select_Project_Document" End If ' test <> "" This particular IF .. THEN Statement verifies if the Dir(local_start_folder & name_project_list_txt) contains at least 1 file. If a file has been found, the Projektdokumente will be created. If the folder is empty, then it will not create the desired item. During the test, if've changed the value to "C:\" and the item was displayed. Other then that, the Kundendaten will be visible if mod_customer_data_bas is equal to True, Update Formulare will be visible when update_allowed is not equal to "yes" and Prozeduren if the string value of get_user_name can be found in all_the_gurus via InStr(1, all_the_gurus, get_user_name, vbTextCompare). My suggestion would be to add "Watches" for each of these values and comparisons to see of the value given actually matches the criteria within the IF ... THEN Statements. After adjusting the test, mod_customer_data_bas and update allowed to the following constants, all of the items will be displayed: test = Dir("C:\") Const mod_customer_data_bas = True Const update_allowed = "No" InStr(1, "test", "test", vbTextCompare) Btw, i've noticed that you've assigned ID 1 to all of the buttons and pop-up menu's. You might want to change that so that every menu and button will have an unique ID. (^_~ ) Tag: Increase prompt in message box
  - 5
    - Determine if and where the .NET Framework is installed using VBA Hi! It's good, but if soft isn't installed Also, Windows Sistem may set in different PC on different disks (C, D, E...) Tag: Increase prompt in message box
  - 6
    - Pivot Table Macro It works. Thanks again. Here's the final code I used: Sub CreatePivot() ' CreatePivot Macro ' Macro recorded 3/23/2007 by Dim lastRow As Long lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'get last row of data (in column 1) ActiveWorkbook.Names.Add Name:="Database", RefersTo:="=Data!$A$1 CL$" & lastRow 'add a named range set to data range ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Database").CreatePivotTable tabledestination:="", tablename:= _ "PivotTable1", defaultversion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard tabledestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pivot" End Sub Gary Tag: Increase prompt in message box
  - 7
    - how can I count # of columns between two specific columns? Ok, thanks. Is there any way to relax the dependency of idenrifying the columns B.regards/Yaping Tag: Increase prompt in message box
  - 8
    - Why the do while loop does not work? Got it, thanks so much! Tag: Increase prompt in message box
  - 9
    - VBA and automated word generation Hi there, I am currently working on a VBA application. There is an automated word generation available in the appliacation that serves the reporting process. If there is any Flash add-in being installed in the user's machine (can be viewed through Tools->Templates and Add-ins in MS Word) ,the applicaiton crashes down when the user tries to generate the report because the flash add-in runs initially before the word gets opened. Is there any work around available other than removing the add-in for the application to run successfully Your help is greatly appreciated Tag: Increase prompt in message box
  - 10
    - Using Excel files in MS Works Had Office and XP on my previous computer and created several Excel files I want/need to keep New computer has Vista and MS WORKS installed - will I have a problem with transferring the Excel files to new computer If so, how do I remedy Tag: Increase prompt in message box
  - 11
    - iexplore.exe - Application Error I'm getting this with IE 6. Just started as well. Tag: Increase prompt in message box
  - 12
    - error with wscript.shell error 80070483 hi, i am trying to run a vb script from a VBA module in excel. fn = "test.vbs Set wshShell = CreateObject("Wscript.Shell") wshShell.Run (fn) in the line wshShell.Run (fn) i obtain an error error 80070483 method Run of object IWshShell3 failed it is the first time i do this, so i am not shure if i need to have done something before, some references in windows extension .vbs is not related to any application (is it ok ) tks in advance Tag: Increase prompt in message box
  - 13
    - Obtain Unique Work Units via SQL SELECT DISTINCT Count (WorkUnitsFaultsMainTBL.WorkUnit) AS [Total Work Units], 'No Faults' AS [Fault Type], Sum(IIf([FaultCategory]='No Faults',1,0)) AS [NoFault Totals], FormatPercent(Sum(IIf([FaultCategory]='No Faults',1,0))/Count([WorkUnit]),2) AS [Pct NoFaults] FROM WorkUnitsFaultsMainTBL WHERE (((WorkUnitsFaultsMainTBL.BuildID) In ("E010","C809","F001","C810","F187","A910","M173","M174")) And ((WorkUnitsFaultsMainTBL.TodaysDate) Between Forms!Queries_ReportsFRM!StartDateTxt And Forms!Queries_ReportsFRM!EndDateTxt)); Adamus Tag: Increase prompt in message box
  - 14
    - Adding Menu to Microsoft project 2007 using VBA How can I add a custom menu using VBA code. There are some changes happened in from Microsoft Project 2003 to Microsoft Project 2007. How can I add custom menu to microsoft project 2007 and make it work to invoke appropriate code. Are there any whitepaper which talks about the changes in the coding from Microsoft project 2003 to 2007. I am new to this area of coding with little knowledge of VBA. ANy help will be highly appreciated. A sample code will work wonders for me. Tag: Increase prompt in message box
  - 15
    - compile error: invalid quaifier Hi! Thanks a lot! It works like this!!!! Thanks!! Tag: Increase prompt in message box
  - 16
    - Collection Item: Parent / NextItem Hi, I am struggling with classes. This is what I want to do, in VBA (test it in Excel please): I want to add a property/function to my class, named NextItem and PreviousItem. These return the next and previous items in the collection. I have several separate collections where I keep my items in. So if I want to determine the next and previous item, I need to figure out in which collection the item resides before I can start to loop through that collection. Unfortunately there is no collection.item.parent. That is what I need to simulate I thought about adding a property ParentCollection to the class, but how can I use that property as a pointer to a collection and retrieve the collection from that pointer. Help! Tag: Increase prompt in message box

une

I have a userform that contains a command button that when clicked displays a message box. This message box contains help notes for the user. However I can't quite fit all the text in. When displayed, the message box cuts off the last couple of sentences. I think this is because my help text is the prompt in the message box and it is too long (> 1024 characters). How can I get a few extra sentences into the message box Perhaps there is a better way to display the help text

Re: Increase prompt in message box

Jon Peltier

Display your help text in another userform. This form needs an OK button and a text box large enough to hold the text.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______

Re: Increase prompt in message box

une

Thanks. However the problem with using a text box is that a text box is interactive, allowing the user to click in it and alter the text. I don't want this. I just want an unchangeable message (a rather long help message) to be displayed. How would I do this

Re: Increase prompt in message box

Jon Peltier

I should have said use a label, not a text box. If you need it to scroll, use a textbox, and add this procedure to the code module:

Private Sub TextBox1_Enter()
  Me.CommandButton1.SetFocus
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______