Calculating a percentage of two integers

[tomleitch]

Hi,

I'm trying to work out some VBA to calculate the percentage of two integers..... not sure if I am doing the right thing.



I have these two lines counting rows not blank

Stat = Application.WorksheetFunction.CountA(Sheets("EMAIL TOOL").Range("G:G")) - 1
lstat = Application.WorksheetFunction.CountA(Sheets("EMAIL TOOL").Range("A:A")) - 1

I then want to work out what percentage stat is of lstat,

any pointers much appreciated.

Thanks
Tom

 

[offthelip]

try this:

if lstat > 0 then
           perc=100*stat/lstat
else
         perc= 100
end if

 

[tomleitch]

This worked great. Many thanks