Bolding Row from VB6

Forgot the bold

.Cells(lExcelRow + 2, 13).EntireRow.Font.Bold = True

--
HTH

Bob Phillips

"Bob Phillips" <phillips@tiscali.co.uk> wrote in message
news:eN%23NLnGhFHA.2424@TK2MSFTNGP09.phx.gbl...
>
> Something like
>
> .Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R1C1:R10C1)"
>
> which isets the cell to =AVERAGE($A$1:$A$10). You can replace the numbers
> with variables, like so
>
> .Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R" & rowStart &
"C1:R!
> & rowEnd & "C10)"
>
> --
> HTH
>
> Bob Phillips
>
> "Ian B" <ian@docspro.co.nz> wrote in message
> news:%23BQm6REhFHA.572@TK2MSFTNGP15.phx.gbl...
> > I am not an Excel person but have a VB6 routine which writes data to an
> > Excel sheet and then averages the data as below for each state
> > 310: Set oWB = oXL.Workbooks.Open(sMaster)
> >
> > 330: With oWB.Worksheets("Sheet1")
> > 340: .Cells(lExcelRow + 2, 1) = "AVERAGES FOR" ' NAME
> > 350: .Cells(lExcelRow + 2, 2) = sState
> '
> > STATE
> > 360: .Cells(lExcelRow + 2, 3) = rsKPI![AvgNetPL] '
NET
> > P&L
> > etc, etc
> > No problem thus far.
> > I am doing averages in VB because I can't get a formula into Excel using
> > lExcelRow + 2, 3 notation
> > After I put the averages in I want to Bold the row (lExcelRow + 2,13) ie
> the
> > row with the subtotal
> >
> > All my attempts thus far have failed, probably because I am recording a
> > macro in Excel and trying to modify that code.
> >
> > I'm sure to anyone with a modicum of Excel coding it will be a 10 second
> > answer.
> > Any help appreciated
> >
> > TIA
> >
> > Ian B
> >
> >
> >
>
>

Thanks Bob

Perfect result.

Ian B

"Bob Phillips" <phillips@tiscali.co.uk> wrote in message
news:eKABeuGhFHA.3544@TK2MSFTNGP15.phx.gbl...
> Forgot the bold
>
> .Cells(lExcelRow + 2, 13).EntireRow.Font.Bold = True
>
> --
> HTH
>
> Bob Phillips
>
> "Bob Phillips" <phillips@tiscali.co.uk> wrote in message
> news:eN%23NLnGhFHA.2424@TK2MSFTNGP09.phx.gbl...
> >
> > Something like
> >
> > .Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R1C1:R10C1)"
> >
> > which isets the cell to =AVERAGE($A$1:$A$10). You can replace the
numbers
> > with variables, like so
> >
> > .Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R" & rowStart &
> "C1:R!
> > & rowEnd & "C10)"
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > "Ian B" <ian@docspro.co.nz> wrote in message
> > news:%23BQm6REhFHA.572@TK2MSFTNGP15.phx.gbl...
> > > I am not an Excel person but have a VB6 routine which writes data to
an
> > > Excel sheet and then averages the data as below for each state
> > > 310: Set oWB = oXL.Workbooks.Open(sMaster)
> > >
> > > 330: With oWB.Worksheets("Sheet1")
> > > 340: .Cells(lExcelRow + 2, 1) = "AVERAGES FOR" '
NAME
> > > 350: .Cells(lExcelRow + 2, 2) = sState
> > '
> > > STATE
> > > 360: .Cells(lExcelRow + 2, 3) = rsKPI![AvgNetPL] '
> NET
> > > P&L
> > > etc, etc
> > > No problem thus far.
> > > I am doing averages in VB because I can't get a formula into Excel
using
> > > lExcelRow + 2, 3 notation
> > > After I put the averages in I want to Bold the row (lExcelRow + 2,13)
ie
> > the
> > > row with the subtotal
> > >
> > > All my attempts thus far have failed, probably because I am recording
a
> > > macro in Excel and trying to modify that code.
> > >
> > > I'm sure to anyone with a modicum of Excel coding it will be a 10
second
> > > answer.
> > > Any help appreciated
> > >
> > > TIA
> > >
> > > Ian B
> > >
> > >
> > >
> >
> >
>
>

Took two stabs, but made it in the end <vbg>

Bob

"Ian B" <ian@docspro.co.nz> wrote in message
news:uhCmWDNhFHA.1252@TK2MSFTNGP09.phx.gbl...
> Thanks Bob
>
> Perfect result.
>
> Ian B
>
> "Bob Phillips" <phillips@tiscali.co.uk> wrote in message
> news:eKABeuGhFHA.3544@TK2MSFTNGP15.phx.gbl...
> > Forgot the bold
> >
> > .Cells(lExcelRow + 2, 13).EntireRow.Font.Bold = True
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > "Bob Phillips" <phillips@tiscali.co.uk> wrote in message
> > news:eN%23NLnGhFHA.2424@TK2MSFTNGP09.phx.gbl...
> > >
> > > Something like
> > >
> > > .Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R1C1:R10C1)"
> > >
> > > which isets the cell to =AVERAGE($A$1:$A$10). You can replace the
> numbers
> > > with variables, like so
> > >
> > > .Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R" & rowStart &
> > "C1:R!
> > > & rowEnd & "C10)"
> > >
> > > --
> > > HTH
> > >
> > > Bob Phillips
> > >
> > > "Ian B" <ian@docspro.co.nz> wrote in message
> > > news:%23BQm6REhFHA.572@TK2MSFTNGP15.phx.gbl...
> > > > I am not an Excel person but have a VB6 routine which writes data to
> an
> > > > Excel sheet and then averages the data as below for each state
> > > > 310: Set oWB = oXL.Workbooks.Open(sMaster)
> > > >
> > > > 330: With oWB.Worksheets("Sheet1")
> > > > 340: .Cells(lExcelRow + 2, 1) = "AVERAGES FOR" '
> NAME
> > > > 350: .Cells(lExcelRow + 2, 2) = sState
> > > '
> > > > STATE
> > > > 360: .Cells(lExcelRow + 2, 3) = rsKPI![AvgNetPL] '
> > NET
> > > > P&L
> > > > etc, etc
> > > > No problem thus far.
> > > > I am doing averages in VB because I can't get a formula into Excel
> using
> > > > lExcelRow + 2, 3 notation
> > > > After I put the averages in I want to Bold the row (lExcelRow +
2,13)
> ie
> > > the
> > > > row with the subtotal
> > > >
> > > > All my attempts thus far have failed, probably because I am
recording
> a
> > > > macro in Excel and trying to modify that code.
> > > >
> > > > I'm sure to anyone with a modicum of Excel coding it will be a 10
> second
> > > > answer.
> > > > Any help appreciated
> > > >
> > > > TIA
> > > >
> > > > Ian B
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>