Answer Questions

• Rakesh-BNPP If a cell has value add a formula to neighbouring cell

  I am trying to write a spreadsheet that would allow a user to enter a value say in A2 of a new row. if the value in A2 exists (i.e., an event has taken place in A2--it changed) then I want a formula set in B2 that uses A2. If A2 is blank, no formula will exist in B2 and the whole row remains blank. I can easily do this with a macro that would fill down the formula in B1 to the last row of data, but I do not want the user to have to run a macro every time they start a new line. Is there a way to kick off a macro by virtue that the A2 cell changed or lost focus--user hit enter or moused to another cell, etc. Thanks. here is someVBA pseudo code that will get ya going down the right path ...Show All

• chris441962 Help finding the next similar cell using VBA

  I am working on an Excel worksheet that has the word "TOUR" listed throughout the spreadsheet. How can I find the next "TOUR" and insert rows to make sure it is in the row I want it in Hi, You should look to use the Selection.Find method to perform your search.... this code should do the search and find all TOURS in the list but it doesn't do anything else. 'select the whole range to search, in this case column A Columns("A:A").Select 'the tour found, stored as a range Dim FoundTour As Range 'do an inital search and find the first tour in column A Set FoundTour = Selection.Find(What:="TOUR", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirecti ...Show All

• jchau Office2003 VBA 6.3 Help files not working correctly.

  When I open the Help window (under any Office2003 application) in the VBA editor, there is a Search bar and a Table of contents. After doing a search for any keyword, a large number of items in the resulting list do nothing when I click on them. How can I fix this Is this the correct forum for this question Where can I find information about fixing this problem Thank you for your time and consideration. Same problem here, Fresh install of office won't solve the problem. Any suggestions would be more than welcome. ...Show All

• Keith Ball How to dial a modem and pass a .wav file

  Dear all, I want to develop an application which can dial a telephone no and as soon the person pick up the phone it will play the .wav file over the phone. I have code to dial a modem. But i dont know how to control modem. and what is the status of modem.How to find the bellow status of modem Dailing Ringing Lifted phone Disconnected Phone please help me I get calls like that... there are very annoying..... if I want a new kitchen I'll call you. ...Show All

• Jackuline calling a function and passing the name of the recordset

  Does anyone know the best way to pass the name of a recordset to a function sample dim myrecordset as adobd.recordset Dim myvalue as string Call myfunction(mrecordset, myvalue) _________________________________________________ function myfunction(myrecordset, myvalue) etc... end function thx This actually worked thanks.. You just did by passing the entire records set Otherwise pass a string Public MyFunction(byval Name as string, Byval MyValue as string) end Function MyFunction("MyRecordSet", MyValue) ...Show All

• Dipesh A. Access 2000 RecordSet Sort problem

  hi there, using ms access 2000 with vb 6.3. I am using a form with a button to first off filter results in a table and copy all the relevent rows into a temp table so that additional tasks can be performed. This works successfully. Part of the problem is that the order in which the data is entered into the first table means it is never in order (this cannot be prevented due to the nature of how the data is imported from several excel documents) The temp table needs to be sorted so that the calculation algortihms will be able to calculate and generate revelent infomation. Currently defining and opening a recordset and after moving all the data to the temp table i am using: recordset.Sort = "TextValue desc" Where TextValue is my co ...Show All

• sofakng ADO Recordsets

  I have a routine in Excel, which pulls data in from a SQL Server database into two ADO Recordsets using two seperate queries. These recordsets contain only 1 field, being customer ID, each with in excess of 65,000 records. I need to compare these two recordsets to establish how many customer IDs are present in one, but not the other and vice versa. Is there some clever way of looping I could use to achieve this The only other thing I can think of is a local query within my module on the two datasets, but is this possible Cheers for any help! Keith Hey man, Oh you have access to the tables... that helps. Generally SQL Server tables are protected and access to the data is through stor ...Show All

• Zaracattle Error 1004 setting print_area

  I've set up a bit of VBA that formats a variable length spreadsheet for printing. The problem is that after the first time it's been run, it throws up an error message 1004 "application defined or object defined error". This is the code that defines the print_area: ActiveSheet.Names.Add “Print_Area”, ActiveSheet.Range("A1").Resize(NumRows, 6) NumRows is a variable that I calculate further up to determine the length of the printed out bit I want to use. First time I run it, it works fine, after that it throws the 1004 error. I tried clearing the Print_Area using this code: On Error Resume Next ActiveSheet.Names(”Print_Area”).delete On Error GoTo 0 just before set print area bit, but I still ...Show All

• Hi_4_All Loop til you drop

  I have a loop in which I am trying to search for a cell with a ceratin textline ("Sec type"). I want to search the entire spreadsheet but if it it possible to search only some used range that is preffered. If I find the cell I am lokking for I want to check to see that it is not on the same row as some other things. These rows are specified by segment.row and secID.row. My problem is that the loop never stops running and I do not know what is wrong with it. I guess it is the Loop-line that is erronous but I do not know how to fix it. Please help me out if can! Thanks! With Range("b1:aa500") Set c = Worksheets("Berakning").Cells.Find("Sec type", LookIn:=xlValues) If Not c Is Nothing Then ...Show All

• abuja pos peripherals from vba

  I want to use point of service peripherals from vba in ms access, as I am creating a point of sale database. I downloaded pos for .net sdk. I then tried to reference its main library (microsoft.pointofservice.dll) from vba (by going tools>references), but it wouldn't let me, it said it couldn't create a reference to the file, which is a dll. How can I link to the pos peripherals from vba Hi, The .Net DLL is a managed DLL. So you can't directly link it to VBA. What you can to is try to find a non managed version, or write a wrapper unmanage DLL that wrap the managed .Net DLL. I don't have a C++ compiler, so I can't ...Show All

• Golohe Adding a command button to the toolbar or menu bar in Excel?

  Hi I'm wondering is it possible to add a command button to the toolbar or menu bar in Excel using VBA I came across an excel file before in work that somebody had setup this way but not sure how to go about it! I basically have two buttons that I would like to have added to the toolbar or menu to make the sheet tidier and enable the user to see all the data without having to move the buttons etc. http://i102.photobucket.com/albums/m82/sc0ttb_2006/excel_buttons.jpg Any ideas folks Thanks, Scott You seem to be confusing UserForms with CommandBars. I think I can tell what you're trying to do. I've adjusted and clarified Derek's code. This code goes into the ThisWorkbook ...Show All

• AravindaBV Downloading Excel spreadsheet from website

  Hi I am using vs2003 I need to export data from a ms database table into excel. The excel spreadsheet will have to be downloaded from my website and I need to sum a couple of the columns in the excel spreadsheet. The question is : How can I export data into an excel spreadsheet with formulas included Any help will be appreciated thanks ...Show All

• Chardiot "Bizzare" Sendkey Code in Excel

  Following is my code... Range("A1").Select 'Select cell A1 Application.SendKeys "BIZZARE{ENTER}", True 'Enters BIZZARE in A1 and focus goes to B2 Application.Wait (Now + TimeValue("0:00:02")) Application.SendKeys "{UP}", True 'Again focus on A1 Application.Wait (Now + TimeValue("0:00:02")) 'Range("A1").Select 'Just in case {UP} doesnt work Selection.Copy 'Path 1 Range("B2").Select 'Path 1 ActiveSheet.Paste 'Path 1 Application.SendKeys ("^C") 'Path 2 Range("B2").Select 'Path 2 Application.SendKeys ("^V") 'Path 2 My code wanted ...Show All

• Johnny Ashcan Move a DataLabel in a chart in excel

  Hello, I would like to be able to move the DataLabel in the example below in all directions. Can I somehow find the Top and Left data for it With ActiveChart.SeriesCollection(1) .ApplyDataLabels Type:=xlDataLabelsShowLabel, _ AutoText:=False, _ LegendKey:=False .DataLabels.Position = xlLabelPositionRight Kind regards \Jonas You can read and set the Left and Top properties of a data label. This simple example move each label down and across by 10. Note I have changed the AutoText to TRUE as FALSE was generating a 1004 error. Sub MoveDataLabels() Dim objDL As DataLabel With ActiveChart.SeriesCollection(1) .ApplyDataLabels Type:=xlDataLabelsShowLabel, _ AutoText:=True ...Show All

• zybernau Help with comma separated values in report

  Hi! A bit of a stuck-up. It’s no problem in creating a coma separated fields in .txt kind of file. But I have another problem which is probably simple to manage (not for me though - my brains work 24hrs/day and don’t come up with nothing). I want to show several different values from one field (in query) on the report - now check this - They have to be separated by a comma in one line. If anybody is familiar with the solution just show me the direction and I’ll try to solve it by myself. Thanks in advance This works for me. Option Compare Database Private Sub Odpri_cmrjizafakturo_Click() Dim dbs As Database Dim rs As DAO.Recordset Dim fakture As Form Dim tfakture As String Dim strsql As String Dim firstrec As Boole ...Show All