Answer Questions

• Moistly Derek and/or Cindy

  Hello Derek/Cindy, Would you mind having a look at thread : personalized command bar disappears when minimizing excel by Herkus and let me know what the cause might be. I found a solution but would still like to know why and you are the people that could possibly have an answer. Many thanks Chas Chas, I've replied in that thread. The Excel documentation for DisplayFullScreen points out that the menubar settings in fullscreen mode are distinct from those in normal mode. As for why this is, that's a technical question that has more to do with the code of Excel itself than anything the user is doing. Switching to fullscreen mode appears to alter the MDI child windows owned by Excel; it's l ...Show All

• Cybersurfer Open PDF file

  Hi everybody, I'm creating a program in MS. Access but I just want to ask:, how to open *.pdf(extension) file in visual basic access (vba) thanks in advance. :-) By double clicking the desire path in the data sheet view, the *.pdf file name would be open. For example: Path = \\ipc154\contract\filename.pdf when you double click that path in the datasheet view it will open. Do you have code for that application sweet Hi sweet66 - sorry but ive been away for a while - yes that was exactly what my code did but it also allowed you to browse for the file and insert the path into datasheet view - a guy called Derek Smyth who is one of the fou ...Show All

• StefanVirag Printing comboBox Items

  Hello All, I have a program where I add all errors to a combobox using the addItem method. Sometimes there are quite a few and I would like to have them printed to paper. (Say via a commandbutton_click event). Is there any way to do this without having to add the list of errors into a Word or Notepad or Excel document and then printing it For us oldies, I guess I am asking if there is an equivalent of the old LPRINT command there used to be in in BASIC. Cheers Chas Hi, There is no "direct" print command for VBA to print to printer directly. However, as you already add the error item to a combo box, you don't you just add the error to the spreadsheet and then use the Act ...Show All

• olloemre Count and display in cell

  Ok I have an Excel workbook that contains a schedule (51 worksheets total). Each cell has intials in it and if that person has taken a day off the cell is highlighted a certain color (yellow, rose, or red). What I need to do is have something that goes through and counts what intials have what color and then display in a cell the number. So: If cell contains "initials" and cell color is "color" Then count and display in "cell" Example: If cell contains "JJ" and cell color is "Yellow" Then count and display in "A2" I know it is possible to do this but I'm not sure how. Tiger Hello, Try the following code: You could ...Show All

• Syed Mazhar Hasan SQL within a VBA Module

  Hi, I'm new to VBA and have only been using it for 3 months, so please don't laugh! I have a VBA routine in Excel, which connects to a SQL Server database, and I need to know how to incorporate an IF expression into the SQL statement. The SQL looks like this in the MS Access query I am trying to re-create: SELECT IIf(IsNumeric([PromoSource]),"REC",IIf(IsNull([PromoSource]),"OTHER",IIf([PromoSource]="WWW","Web",[PromoSource]))) AS [Promo Source], Count(dbo_tblCustomers.CustomerID) AS CountOfCustomerID FROM dbo_tblCustomers WHERE (((dbo_tblCustomers.DateEntered)>=#1/1/2006#)) GROUP BY IIf(IsNumeric([PromoSource]),"REC",IIf(IsNull([PromoSource]),"OTHER",IIf([PromoSource]= ...Show All

• hazz Word: Normal.dot template menu bar

  I have programmatically modified the Normal.dot menubar (adding more dummy options), and I want to get rid of all of them, permanently, to return to the original state and appearance of Normal. dot.... How can I achieve that, please thanks Hi Brenda I tried your workround solution alas it did not work. I am certain that the normal.dot file is not being created as I can find no reference to it when I do a search. Per the engineer: Please try the following steps to locate the Normal.dot : Open Microsoft Word Choose the menu “Tools” and then “Options” In the “Options” window, choose the “File Locations” tab In the list called “File Types” – select “User Templates” ...Show All

• WalangAlam xcacls.vbs context question

  I'm trying to do something using xcacls.vbs (running locally to a machine): Assuming the share point is d:, I want our domain users to be able to traverse/read only from c: down through to the "d:\folder\admin" folder level, and then be able to create new files and folders, etc, to their heart's content inside admin folder. But not be able to delete or rename the admin folder. For the life of me, I cannot do this with xcacls.vbs. Since users will already inherit the read rights I'm assigning to them at the root of d:, I tried the following: STEP 1) grant Modify rights to all folders, subfolders and files: xcacls d:\folder\admin /e /g "AKRF\Domain Users":M /S /F /T /L [This adds a second entry for domain use ...Show All

• dbaeck Multiple series addition problem

  I am not sure whether thisis the right place for this question. This is a problem which i am facing when coding in VB.net The problem is, I want to draw a line graph (3 series) in excel from the data present in designated positions in Excel. I worte a code which is as below charts = XLSheet.ChartObjects() ' Adding a chart chartObj = charts.Add(450, 200, 350, 200) Dim lIntI As Integer = 1 Dim xlsAxisCategory, xlsAxisValue As Excel.Axes With chartObj .Name = "Cumulative Defects1" .Chart.ChartType = Excel.XlChartType.xlLineMarkersStacked .Chart.ProtectGoalSeek = False '.Chart.SetSourceData(chartRange) seriesCollection = .Chart.SeriesCollection() ...Show All

• Mark Benningfield Office 10 \ winword.exe runtime error

  I have downloaded the service pack 3 but I'm still encountering the problem when I try to open MS Word. MS Excel, MS Outlook , MS Powerpoint & MS Viso all work fine. Any time I try to open MS word I receice a Box vissual c++ runtime library. This application has requested the runtime to terminate it in an unusaul way. Microsoft Office\Office 10\Winword.exe. Is there a solution to this I have unistalled Office XP twice and still the same issue. Please, advise. Per the support engineer: Would you please ask our ISV to provide us the detail error information For example, the information showed in the Box visual c++ runtime library. -brenda (ISV Budd ...Show All

• ReiXou SetSourceData frustration

  Greetings. Before you all read this question and think "This is the worst code I have ever read", bear in mind that I am a relative newbie to Visual Basic stuff. Okay, here is the deal. I am writing this code in Visual Basic 2005, but this particular area of my code really is more tuned to topics on this board. I have an Excel Worksheet, and I want to chart multiple columns of data in an XY scatter Plot. The columns ARE NOT adjacent. So, I tried selecting the specific columns (I have checked, and it works fine), and I am using the Union command to add all these columns to a single range (srcData). But every time I try and call Chart.SetSourceData, it throws a COM Exception of "Error HRESULT_EFAIL" Here is th ...Show All

• Learning VB String Functions

  Does anyone know if there's a string function that removes new lines from a string (where return has been hit to start a new paragraph) It's kind of like the Trim functions I'm looking for, but these only work with trailing spaces, not where a new line has been started. Cheers! Keith nae bother big yin. :) Cheers guys! I'll give it a go! Hi, I unmarked CetinBasoz  post as the answer as the code given is VB.NET and not VBA. Your right. I didn't pay attention to on what forum it was:) Cheers for that. My final solution below. Basically, it's a text box where it is possible for the user to hit return and b ...Show All

• Silent.Killer How to get the date of the next coming Monday?

  Hello, everyone here! I need to set up a routine followup schedule in my Access 2003 database. The start date of a subject is the first Monday after being enrolled. So I am wondering if there is a simple way (like a function or something) to request the date of the first coming Monday. Thanks a lot for any suggestion! lunaa Thank you so much, ADG! I will plant your codes in my database~ lunaa Hi Lunaa Add the following into a module, then you can access the function as required. Public Function NextMonday(MyDate As Date) As Date Dim x As Long x = Weekday(MyDate) If x >= 2 Then NextMonday = MyDate + 9 - x Else NextMonday = MyDate + 1 End If End Function ...Show All

• Markus Rytterkull Office Word Macro - create file to a specific directory

  I have a macro that automaticaly creates a Word file with a prefix sequential number and suffix. It saves the file to the "My Documents" folder by default. I want to be able to save the file to a different location but don't know how to do this. My knowledge of VB is limited. Any help appreciated. Her is the vb code: Sub Report() ' Automatically creates a new document in a sequentially-numbered order ' based upon the stored sequence number in MySeq text file ' Dimension the variables Dim strMyFileName As String ' Open MySeq file and load the sequence number MySeq = System.PrivateProfileString("C:\Documents and Settings\50065a.SCI\Application Data\Microsoft\Word\myseq.txt", _ "", "MySeq" ...Show All

• Markus Rytterkull VSTA support

  Will a VSTA help forum be added here Or replace this forum ...Show All

• bslim Outputting to a Listbox

  Hi; I have a list of data, and need for values outside a lower and upper bound to be flagged up to the user. I was thinking of outputting to a listbox, but cant get the code to work. I was wondering if anyone had any ideas for possible code, or a better way of outputting to the user. Ryan No. I suggest you start a new thread for that question. do you have any code for working out the confidence interval for the mean for a specified alpha This will output the cells that contain values. It will also store the cell address in a second hidden column in cause you want to do something with item in the list. I you only need to list values comment out code. Dim rngTemp As Range Dim FinalRow As Long FinalR ...Show All