Recent content by par60056

Have you thought about putting your "organise" macro as the autoexec macro in it's own wookbook? Then you could have your batch file start Excel with that workbook and it would start automatically. It is not too difficult to have the macro in the "organise" workbook create a totally seperate...

OK, I know this is strange and I hope somebody can help. I do some pretty extensive things in Excel. In a general sense, I have a book that contains a "parameter" sheet and 2 modules. One module contains all the code for pulling data from a database and sometimes building a pivot table from...

Which version of NeXTStep are you running? Is there plenty of free space on the swap partitions? You may be seeing 1 machine thrashing to open temp space while the other has plenty to make contiguous files. I have another question for you as a fellow NeXTStep user that I would like to take...

Here is a simple script I would use. Sub AdjacentWalls() Dim rownum As Integer Dim rowoff1 As Integer Dim rowoff2 As Integer 'Assumes row 1 is headers and rooms start on 2 rownum = 2 While Not IsEmpty(Cells(rownum, 1)) If (Cells(rownum, 2) = 4) Then rowoff1 = -3 Else...

Personally I would let the error handler deal with figuring out if it is ok. There are probably many other ways of doing it but you can try something like this: Do While AnnualSalary <= 0 entersal: SalaryStr = InputBox(&quot;enter salary&quot;, &quot;salary input&quot;) On Error GoTo badsal...

That works but I am trying to index through all of the values. I tried using with .PivotFields(&quot;District&quot;) For Each dname In .PivotItems .CurrentPage = dname.Name next end with and with .PivotFields(&quot;District&quot;) For currdist = 1 To .PivotItems.Count .CurrentPage...

I do some pretty strange things formatting Excel pivot tables for clients but I've run into a stumper. I am trying to loop through all of the values for the page fields of a pivot table and then copy values and formats onto a seperate worksheet for each set of page values. It works fine except...

The real compile error is &quot;If without endif&quot;. Looking at the code bit supplied change the &quot;else&quot; to &quot;end if&quot; Peter Richardson

Create the workbook &quot;personal.xls&quot;, put the macro in it and save the file in the &quot;\Program Files\Microsoft Office\Office\XLStart&quot; folder. Excel looks for this and opens it as a hidden workbook when it is started. You need to unhide it to edit macros in it but you can run...

I have an Oracle server that I am trying to link to and access from SQL Server 7. I can access the Oracle server using the Oracle sqlplus command &quot;sqlplus user/passwd@server&quot; and &quot;select field from schema.table&quot; In SQL Server osql I issued the following...

Try this: on error resume next Application.DisplayAlerts = False sheets(oldsheet).delete Application.DisplayAlerts = True on error goto 0 Setting DisplayAlerts = False keeps Excel from asking if you want to delete it. Peter Richardson

It is a local printer. The PC is standalone.

Somebody just asked me about a weird problem that they are having. They are running Win98. They have a printer installed. They can print to it fine for days and then (as just happened between 2 print jobs) the printer definition went away. If you go to the printers control panel there is...

Thank you. This got me in the right direction. All I needed to do was reference the DAO class. Then the following worked. Dim mydbe As DBEngine Dim mywks As Workspace Dim mydb As Database Set mydbe = New DBEngine Set mywks = mydbe.CreateWorkspace(&quot;main&quot;, &quot;me&quot...

Does anybody know if there is a way to execute a series of sql commands from Excel? Everything that I have found requires a destination and that the query return data.