It's been a while since I've used VBA, I'm hoping someone can
help me.

I have a spreadsheet of data for several accounts, I divide the
data into sections based on the account number in Column A. I
then insert two blank rows between each section. Now I need to
do two things. (1) In column A of the first blank row below each
data section, I need to calculate the number of entries in that
section, (2) using offset, moving to the right I need to do an
autosum on 3 columns.

Just recording the autosum function locks it into the first range of
cells autosum picks, so that won't work on any sections other than the
first -- I have ~500 sections and 8000 rows of data to analyse.

If I have to enter the autosum manually for 500 rows and 3 columns
(1500 entries) I'll die. Not to mention it'll take forever.

If you can help I'd really appreciate it.

Thanks,

Norm

Good Morning Norm,
Here is bit of code I believe will get the job done for you. Place the
activecell in the first line of first account in column A. This macro will
count the number of enters for each account, and auto sum columns B,C, & D.
Then proceed to the next accout, then repeat the process.
enjoy,
HTH , Rick Fbks, AK


Option Explicit

Sub AcctFormatStuff()
Dim LookRng As Range
Dim TopRow As Long, BotRow As Long

Do
Set LookRng = ActiveCell.CurrentRegion
TopRow = LookRng.Row
BotRow = LookRng.Rows.Count + TopRow - 1
'' count no# enter's this section
Range("A" & BotRow + 1).Formula = "=Count(A" & TopRow & ":A" & BotRow &
")"
'' sum col B this section
Range("B" & BotRow + 1).Formula = "=Sum(B" & TopRow & ":B" & BotRow & ")"
'' Copy sum formula from col B to C:D this section
Range("B" & BotRow + 1).Copy Range("C" & BotRow + 1 & ":D" & BotRow + 1)
'' Set Bold Font
Range("A" & BotRow + 1 & ":D" & BotRow + 1).Font.Bold = True
'' now select nexts account
Range("A" & BotRow + 3).Select

Loop Until IsEmpty(ActiveCell)

End Sub





"Father Guido" wrote in message
...
It's been a while since I've used VBA, I'm hoping someone can
help me.

I have a spreadsheet of data for several accounts, I divide the
data into sections based on the account number in Column A. I
then insert two blank rows between each section. Now I need to
do two things. (1) In column A of the first blank row below each
data section, I need to calculate the number of entries in that
section, (2) using offset, moving to the right I need to do an
autosum on 3 columns.

Just recording the autosum function locks it into the first range of
cells autosum picks, so that won't work on any sections other than the
first -- I have ~500 sections and 8000 rows of data to analyse.

If I have to enter the autosum manually for 500 rows and 3 columns
(1500 entries) I'll die. Not to mention it'll take forever.

If you can help I'd really appreciate it.

Thanks,

Norm

Wow, great stuff -- works perfectly too! I never even thought of
attacking the problem from the top down, I was trying to go to the row
under the data and use the auto-sum.

Thanks again!!!

Norm


On Tue, 28 Mar 2006 00:02:10 -0900, "Rick Hansen"
wrote:

~Good Morning Norm,
~ Here is bit of code I believe will get the job done for you.
Place the
~activecell in the first line of first account in column A. This macro
will
~count the number of enters for each account, and auto sum columns
B,C, & D.
~Then proceed to the next accout, then repeat the process.
~ enjoy,
~ HTH , Rick Fbks, AK
~
~
~Option Explicit
~
~Sub AcctFormatStuff()
~Dim LookRng As Range
~Dim TopRow As Long, BotRow As Long
~
~Do
~ Set LookRng = ActiveCell.CurrentRegion
~ TopRow = LookRng.Row
~ BotRow = LookRng.Rows.Count + TopRow - 1
~ '' count no# enter's this section
~ Range("A" & BotRow + 1).Formula = "=Count(A" & TopRow & ":A" &
BotRow &
~")"
~ '' sum col B this section
~ Range("B" & BotRow + 1).Formula = "=Sum(B" & TopRow & ":B" & BotRow
& ")"
~ '' Copy sum formula from col B to C:D this section
~ Range("B" & BotRow + 1).Copy Range("C" & BotRow + 1 & ":D" & BotRow
+ 1)
~ '' Set Bold Font
~ Range("A" & BotRow + 1 & ":D" & BotRow + 1).Font.Bold = True
~ '' now select nexts account
~ Range("A" & BotRow + 3).Select
~
~Loop Until IsEmpty(ActiveCell)
~
~End Sub
~
~
~
~
~
~"Father Guido" wrote in message
.. .
~ It's been a while since I've used VBA, I'm hoping someone can
~ help me.
~
~ I have a spreadsheet of data for several accounts, I divide the
~ data into sections based on the account number in Column A. I
~ then insert two blank rows between each section. Now I need to
~ do two things. (1) In column A of the first blank row below each
~ data section, I need to calculate the number of entries in that
~ section, (2) using offset, moving to the right I need to do an
~ autosum on 3 columns.
~
~ Just recording the autosum function locks it into the first range
of
~ cells autosum picks, so that won't work on any sections other than
the
~ first -- I have ~500 sections and 8000 rows of data to analyse.
~
~ If I have to enter the autosum manually for 500 rows and 3 columns
~ (1500 entries) I'll die. Not to mention it'll take forever.
~
~ If you can help I'd really appreciate it.
~
~ Thanks,
~
~ Norm
~