I have the following working:

With aWS.Cells(r.Row, r.Column)
.Value = oWS.Cells(r.Row, r.Column).Value
.Locked = oWS.Cells(r.Row, r.Column).Locked
'.Font.Interior.ColorIndex =
oWS.Cells(r.Row,r.Column).Font.InteriorColor.Index
end with

I want to copy the background color index, the conditional format and the
cell validation from oWS to aWS. Can someone assist?

the best way of learning how to do this is recording a macro when you
manually perform the operation. Here is the code I got. the differnce
between you code and mine is "Font"

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2/19/2007 by Joel Warburg
'

'
Range("D17:F23").Select
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
End With
Range("H18").Select
End Sub


"Barb Reinhardt" wrote:

> I have the following working:
>
> With aWS.Cells(r.Row, r.Column)
> .Value = oWS.Cells(r.Row, r.Column).Value
> .Locked = oWS.Cells(r.Row, r.Column).Locked
> '.Font.Interior.ColorIndex =
> oWS.Cells(r.Row,r.Column).Font.InteriorColor.Index
> end with
>
> I want to copy the background color index, the conditional format and the
> cell validation from oWS to aWS. Can someone assist?

I tried recording it and it didn't work. That's why I tried the font. Any
other suggestions?

"Joel" wrote:

>
> the best way of learning how to do this is recording a macro when you
> manually perform the operation. Here is the code I got. the differnce
> between you code and mine is "Font"
>
> Sub Macro2()
> '
> ' Macro2 Macro
> ' Macro recorded 2/19/2007 by Joel Warburg
> '
>
> '
> Range("D17:F23").Select
> With Selection.Interior
> .ColorIndex = 42
> .Pattern = xlSolid
> End With
> Range("H18").Select
> End Sub
>
>
> "Barb Reinhardt" wrote:
>
> > I have the following working:
> >
> > With aWS.Cells(r.Row, r.Column)
> > .Value = oWS.Cells(r.Row, r.Column).Value
> > .Locked = oWS.Cells(r.Row, r.Column).Locked
> > '.Font.Interior.ColorIndex =
> > oWS.Cells(r.Row,r.Column).Font.InteriorColor.Index
> > end with
> >
> > I want to copy the background color index, the conditional format and the
> > cell validation from oWS to aWS. Can someone assist?

oWS.Cells(r.Row, r.Column).Copy
With aws.Cells(r.Row, r.Column)
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
.Locked = oWS.Cells(r.Row, r.Column).Locked
End With



--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Barb Reinhardt" <(E-Mail Removed)> wrote in message
newsFE9DFCA-48D3-48C6-B071-(E-Mail Removed)...
>I have the following working:
>
> With aWS.Cells(r.Row, r.Column)
> .Value = oWS.Cells(r.Row, r.Column).Value
> .Locked = oWS.Cells(r.Row, r.Column).Locked
> '.Font.Interior.ColorIndex =
> oWS.Cells(r.Row,r.Column).Font.InteriorColor.Index
> end with
>
> I want to copy the background color index, the conditional format and the
> cell validation from oWS to aWS. Can someone assist?