Recent content by mlibeson

Just sharing. I had problems with using the address function as it was not available, so I had to come up with another way to convert back and forth between the letter columns and number columns. I tried what others recommended including what was posted on a Microsoft web page, but there were...

Function ConvertToLetter(iCol As Integer) As String Dim i, j As Integer Dim sCol As String Dim iAlpha As Integer Dim iRemainder As Integer iRemainder = Int(iCol Mod 26) If iRemainder = 0 Then iRemainder = 26 End If sCol = Chr(iRemainder + 64) If ((iCol -...

Thank you. I just noticed that as well. It was driving me crazy. Darn butter fingers. Michael Libeson

So I have used the same code just changing the variable names several times without any issues until now. The following code gives me the infamous 91 error Object variable or With block not set. Sub GetANITESTLIST() ' Declare variables Dim qry As String Dim qt As QueryTable Dim...

I figured it out. PostgreSQL can be so picky. I modified my program to generate a SQL query based on a FUNCTION (Stored Procedure) in Postgres to call the routine in this format: SELECT * FROM Function(); Instead of the one giving me a problem like: SELECT Function(); The " * FROM "...

I am using code that works correctly when getting data from MSSQL, but does not work correctly when I get data from POSTGRES on a MAC. I am running my code on the latest MAC OS X Yosemite. PERL version 5.18 DBI version 1.631 DBD-Pg version 3.4.2 Postgres version 9.3.5 the line of code is...

OK, I am sorry for this post. I was so focused on the end result and the numbers being compared where the two columns involved are opposites of each other where if you add them together, the value is 0. I was so focused at seeing the positive and negative numbers as the same that I ignored the...

True, I can used a derived table. Thank you for you post. I would still like to understand why it did not return what I expected. In this case the data set was small enough and easy enough to recognize that there was an issue. I am afriad that I may use something similar and not catch that...

I am trying to return only those grouped rows where the OriginalAmt does not equal the ReverseAmt. Instead of the query giving me the rows I want, it returns all rows. Please help. Need ASAP. SELECT h.Account, h.ApplSeq, SUM(CASE WHEN h.Dcindicator = 0 THEN h.Tramt ELSE 0.0 END) AS...

The following code seems to work: $chart1->Chart->SeriesCollection(1)->DataLabels->Font->{Size} = 6; Michael Libeson

I created a macro in excel of what I want to accomplish for setting the font size to 6 for the category labels, but what does it look like ine PERL code. See Macro code below: Sub Macro1() ActiveSheet.ChartObjects("Chart 2").Activate ActiveChart.SeriesCollection(1).DataLabels.Select...

Hello gurus, I am trying to manipulate a chart I created using the Win32::OLE chartwizard code as follows: $chart1->Chart->ChartWizard($ws->Range("A40", "B42", xlPie, 7, xlColumns, 1, 0, 0, '', '', '', ''); What code do I use to change the font size of the category labels on the pie graph...

easier to read version: foreach my $group (@main::Groups) { my $excelrow = $main::row + 1; $main::worksheet->write_formula($main::row, 12, "=ROUND( ( SUMIF( A${main::FirstDataRow}:A${main::LastDataRow}, L$excelrow, M${main::FirstDataRow}:M${main::LastDataRow} ) / COUNTIF(...

Here is a snippet: foreach my $group (@main::Groups) { my $excelrow = $main::row + 1; $main::worksheet->write_formula($main::row, 12...

I am using the PERL module Spreadsheet::WriteExcel to create an excel workbook from scratch. I create a worksheet put some data in it. Format everything and I also add a few formulas near the bottom of the sheet after all the data is written to the worksheet. When I open the workbook...