Subscribe to DSC Newsletter

  • Male
  • Bangalore
  • India
Share on Facebook

Arun's Friends

  • Raghu Chittari
  • Kevin Pedde
  • RockyRambo
  • Rajesh Viswanath
  • Biswajit Pal
  • Rajendra Shah
  • Christian OTCHIA
  • Brian Forst
  • Sukriti Pandey
  • Adam Ainbinder
  • Shashank Shekhar
  • Luigi
  • Ranjan.J
  • Vincent Granville


Loading… Loading feed


Arun's Page

Latest Activity

Arun replied to Biswajit Pal's discussion Decomposition for log-linear model
"Hey Bishu!! Long time.. I was pretty much looking for something similar since I ended up doing log-linear for a market mix project.  As far as I can tell, there's no easy way to land at decompositions for a log-linear model. Log…"
Jul 1, 2019

Profile Information

Target Corporation
Job Function:
Marketing Databases, SAS, Statistical Consulting
Finding a New Position, Networking, New Venture, Other

Comment Wall (2 comments)

You need to be a member of AnalyticBridge to add comments!

Join AnalyticBridge

At 11:11pm on December 2, 2011, ayank jain said…


i need your help in statistics...related to SPSS...can u please share ur email id or phone no. I can pay you for this help as well.



[email protected]

At 12:23pm on May 26, 2009, Michael Schneider said…

Thanks for replyihg back. I think I figured this out.

I'm creating a VB module to value non-performing loans, and I want to add summary stats on the portfolio and the expected performance, generated automatically via VBA in Excel.

So, I want to loop over the columns, adding summaries for each columns, such as:

=sum(The entries in the columns), or

=Sumproduct(Column(0), Column(j))/Sum(Column(0))


Now I understand that inside of VBA this can be done by string processing in VB to generate the right string in the Worksheet cell:

Here is an example: (I would think this can be simplified....)

Sub Summary()

Dim rng As Range, rng0 As Range
Dim cNumRow As Integer, cNumCol As Integer, j As Integer

cNumRow = Range([A2], [A2].End(xlDown)).count

cNumCol = Range([A2], [A2].End(xlToRight)).count

Set rng0 = Range([A2], [A2].Offset(cNumRow - 1))

For j = 1 To 4
Set rng = Range(Cells(2, j), Cells(cNumRow + 1, j))
With [A1].Offset(0, j - 1)
If (j = 1) Then
.Formula = "=sum(" & rng.Address(0, 0) & ")"
ElseIf (j = 2) Then
.Formula = "=average(" & rng.Address(0, 0) & ")"
ElseIf (j = 3) Then
.Formula = "=sumproduct(" & rng0.Address(0, 0) & "," & rng.Address(0, 0) & ")"
ElseIf (j = 4) Then
.Formula = "=sumproduct(" & rng0.Address(0, 0) & "," & rng.Address(0, 0) & ")/sum(" & rng0.Address(0, 0) & ")"
End If
End With
Next j

End Sub

On Data Science Central

© 2021   TechTarget, Inc.   Powered by

Badges  |  Report an Issue  |  Privacy Policy  |  Terms of Service