Hi All.....
If someone would be so kind......I need help. I'm trying to copy the
formatting, (including Conditional formatting), from Range A11:AG11, down the
sheet, as far as there is data in column A.....the recorder is not too good
at this, and I'm even worse.

TIA
Vaya con Dios,
Chuck, CABGx3

When you don't know the end point of a range, then select a point you do
know (i.e. "A1") then use End(xlDown) & any offsets as necessary. Foe
example...

Range("A1").Select: Range(ActiveCell, ActiveCell.End(xlDown).Offset(x,
y)).Select

Substitute x & y with values if necessary, or just remove the Offset.

Rob Edwards

Always look on the bright side of life!

*** Sent via Developersdex http://www.developersdex.com ***

Dim lastrow as Long
lastrow = Cells(rows.count,"A").end(xlup).row
Range("A11:AG11").copy
Range(cells(12,"A"),cells(lastrow,"AG")).PasteSpecial _
xlFormats

--
Regards,
Tom Ogilvy


"CLR" wrote:

> Hi All.....
> If someone would be so kind......I need help. I'm trying to copy the
> formatting, (including Conditional formatting), from Range A11:AG11, down the
> sheet, as far as there is data in column A.....the recorder is not too good
> at this, and I'm even worse.
>
> TIA
> Vaya con Dios,
> Chuck, CABGx3
>
>

Untested:

Dim LastRow as long
with worksheets("sheet9999")
lastrow = .cells(.rows.count,"A").end(xlup).row
.range("a11:AG11").copy
.range("a11:A" & lastrow).pastespecial paste:=xlpasteformats
end with

CLR wrote:
>
> Hi All.....
> If someone would be so kind......I need help. I'm trying to copy the
> formatting, (including Conditional formatting), from Range A11:AG11, down the
> sheet, as far as there is data in column A.....the recorder is not too good
> at this, and I'm even worse.
>
> TIA
> Vaya con Dios,
> Chuck, CABGx3

--

Dave Peterson

Thanks much Tom.........that did exactly as I needed.

Vaya con Dios,
Chuck, CABGx3



"Tom Ogilvy" wrote:

> Dim lastrow as Long
> lastrow = Cells(rows.count,"A").end(xlup).row
> Range("A11:AG11").copy
> Range(cells(12,"A"),cells(lastrow,"AG")).PasteSpecial _
> xlFormats
>
> --
> Regards,
> Tom Ogilvy
>
>
> "CLR" wrote:
>
> > Hi All.....
> > If someone would be so kind......I need help. I'm trying to copy the
> > formatting, (including Conditional formatting), from Range A11:AG11, down the
> > sheet, as far as there is data in column A.....the recorder is not too good
> > at this, and I'm even worse.
> >
> > TIA
> > Vaya con Dios,
> > Chuck, CABGx3
> >
> >

Thanks for the response Rob.....it looks understandable, and when I get more
time, I'll study it...........for now, Tom hit the nail on the head.

Thanks
Vaya con Dios,
Chuck, CABGx3



"Rob Edwards" wrote:

> When you don't know the end point of a range, then select a point you do
> know (i.e. "A1") then use End(xlDown) & any offsets as necessary. Foe
> example...
>
> Range("A1").Select: Range(ActiveCell, ActiveCell.End(xlDown).Offset(x,
> y)).Select
>
> Substitute x & y with values if necessary, or just remove the Offset.
>
> Rob Edwards
>
> Always look on the bright side of life!
>
> *** Sent via Developersdex http://www.developersdex.com ***
>

Thanks Dave......Tom already got me there. Yours looks good too, but in this
case I'm using this in a sub that is called to many different sheets, so I'd
like to keep the sheet reference out of it.

Thanks anyway,
Vaya con Dios,
Chuck, CABGx3




"Dave Peterson" wrote:

> Untested:
>
> Dim LastRow as long
> with worksheets("sheet9999")
> lastrow = .cells(.rows.count,"A").end(xlup).row
> .range("a11:AG11").copy
> .range("a11:A" & lastrow).pastespecial paste:=xlpasteformats
> end with
>
> CLR wrote:
> >
> > Hi All.....
> > If someone would be so kind......I need help. I'm trying to copy the
> > formatting, (including Conditional formatting), from Range A11:AG11, down the
> > sheet, as far as there is data in column A.....the recorder is not too good
> > at this, and I'm even worse.
> >
> > TIA
> > Vaya con Dios,
> > Chuck, CABGx3
>
> --
>
> Dave Peterson
>