Answer Questions

• keerti_maverick Getting the formatted cell value

  Okay, I need to get the formated cell value from a worksheet. For example: Looking at the worksheet the value of a cell is shown as: 12,000 Of course, if I get Cells(1,1).Value and print it to a text file or whatever, the printed value is: 12000 The issue is that I have to keep the comma so as of now I have to write a sub to put the commas back in. Is thre an easier way This'll do it: cellValue = ActiveCell.Value numFo ...Show All

• PaTaKi Using a single variable to get a combined worksheet and range - is it possible?

  Hi, I am trying to do a select based on variables that I set. The code is in a module (not a particular worksheet class). I've tried to do this several ways. Two out of three failed. The first one went like this: Option Explicit Sub SelectaSheet() Dim Rngcurrent As Range Dim WS As Worksheet Set WS = Sheets("File Composition Chart 0-36") Set Rngcurrent = Range("J13:J16") WS.Rngcurrent.Select End Sub ...Show All

• Richard Mabbitt Vba commands used to connect to sql

  Thats a bit odd... try the Open statement instead. Here's an example: Dim I, FileName For I = 1 To 3 ' Loop 3 times. FileName = "TEST" & I ' Create file name. Open FileName For Output As #I ' Open file. Print #I, "This is a test." ' Write string to file. Next I Close ' Close all 3 open files. The important lines are Open, Print and Close. Look in the help file for the open statement as there are a few ...Show All

• Marlon Grech Hi, Outlook new Mail item

  Hello *, I have two questions that I can't figgure out.... I have the following code (very simplified): Set mailItem = CreateItem(Outlook.OlItemType.olMailItem) mailItem.Body = "Some text..." mailItem.Display (False) Questions are: 1. How to change the status of the message so that when I close this new message I do not get window "Do you want to save changes " 2. How to insert autmaticly signature Now I parse sig ...Show All

• Carlillos Important MS Partner Question

  I'm giving serious thought to joining the Microsoft Empower ISV program, but I want to know for sure what version of MSDN and other software I'll get once MSDN Universal goes away.  The Empower ISV website has been recently revamped, but it STILL lists MSDN Universal as the version partners receive.  Since MSDN Universal is no more in about a month, what does that mean for active/new partners I beli ...Show All

• sdbetatester Printing help

  I was printint an excel document and an error message show:" Microsoft Visual C++ Runtime Library, program C:/Program Files/ Microsoft Office/ office/ Excel.exe, abnormal program termination" . I tried uninstalling and reinstalling Offic 2000 but the problem remains. What are the causes & solutions to this Can someone help I'm facing that same problem too. ...Show All

• eschatzy Runtime Error '2001'

  I am using the following code to use an unbound text box to display the PM Name associated with the PM Number but for whatever reason, I keep getting the Runtime Error '2001' when I run the code. Private Sub Combo59_AfterUpdate() Dim StrName As String Dim strPM_Select As String strPM_Select = "[PM Number]=" & Me![Combo59] & "" StrName = DLookup("[Plan_Center_Name]", "Plan_Center_EPMC", strPM_Sel ...Show All

• John Smiths minimize to system tray

  Dear All, How to minimize my access window to the system tray using VBA code Thank U 4 help. MS ISV Buddy Team I made a DB, When I open the DB, The Access Application Window becomes hide, just a form appears as stand alone window, and I made a button on that form, when click it, the application window minimize to the system tray, but when I click on the icon in system tray, the Application window and the form appear, I dont like th ...Show All

• KaptKrunch Does KeyPress event trap "Backspace" key?

  according to VBA-Help KeyPress event can occur when BACKSPACE key is pressed. but it doesn't occur in my code. why can it happen can you share a sample of your code for us to test out thanks, -brenda (ISV Buddy Team) Code is following: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   Select Case KeyAscii       Case 8    &nbs ...Show All

• Oblansky Automating Microsoft MapPoint.

  Does anyone have any experience with automating MapPoint I am really interested in how to control the creation of custom territories (beyond just the importterritories method such as changing the legend title, territory colors, etc as I could not find supporting documentation in the MSDN nor could I identify components of the territories using the dataset object properties. Thanks. Per our support engine ...Show All

• Yiling Lai Execute String as code VBA

  Hi all, I am working on an Excel project with huge amount of VBA classes and modules. My question is how can I execute a line like: Dim tmp as Variant Call ExecuteLine("Set tmp = New " + ClassName) ' Where ClassName is a string of a certain class name Since the number of classes are large and there are new classes being inserted constantly, it would be very nice to have this two lines of code rather than many lines of Switch ...Show All

• Tony Ball Problem with deleting records

  HI, I am using the following function to delete a record from sysDeptDef table which is not present in ups_new table. I have two rows for the same deptid but diff attid. when i use the delete command the two rows get deleted but when the loop executes it cannot find the deptid so it fails.can please anyone suggest me how to handle this situation. Dim CurrentLevel As Integer Dim CurrentDeptId As Variant Dim LevelUp1 As String Dim L ...Show All

• Luiz Fernando R.Silva New to VB

  I have to do a project in VB Excel. I don't write code and it has been over 10 years since I took any programming classes. I have books on VB but I don't know where to start. I need to have our main invoice spredsheet update automatically when we get new invoices at the end of the month from our printing service. I know what I want to do but not how to code it. I would appreciate any advice. Thanks, Melissa ...Show All

• Oliver Lundt Application.FileSearch in Excel 2007

  There is an issue which I am facing after I installed Office 2007. I had written a small VBA which would search for a file and if found will rename the file. I used Application.FileSearch then. Now I am tying to do it again but unfortunately there is an error prompted stating that 'the object does not exist' Set fSearch = Application.FileSearch defPath = "H:\SourceSafe_1_Feb-28_Feb_2006\SecondSet" Set rg = Range("MyFiles&quo ...Show All

• Pomelo S.O.S Sending Escape Sequence to printer in VB 6

  Dear All, I am having trouble trying to send the escape sequence commands to the card printer in my VB 6 program. Could anyone lend me a helping hand on this. Help is very much appreciated. JT Hi JT, Here's the response from our support engineer: According to your description, I guess you are trying to send the printing command to your printer directly through LPT port in VB6 program; however, this is not the rec ...Show All