Cell = cell value AND format
Carrie,
Ah Yes! We all have those "senior moments". Even young-uns like you.
And You're Welcome!
--
sb
"Carrie" wrote in message
...
Steve & J.E.,
Thank you, I should have thought of it myself!
-----Original Message-----
one way:
Dim c As Range
Dim b As Range
For Each c In Range("Number")
For Each b In Range("Supplier")
If c.Value = b.Value Then
With c.Offset(0, -5)
b.Offset(0, -1).Copy .Cells
.Value = .Value
End With
End If
Next b
Next c
In article ,
"Carrie" wrote:
I would like to set a cell's value AND format based on
another cell's value & format.
The following code works fine to insert the appropriate
supplier name for each row. The problem is the
supplier
list is color coded to designate territory - I want
this
macro to insert the supplier name as it is formatted in
the Supplier list.
For Each c In Range("Number")
For Each b In Range("Supplier")
If c.Value = b.Value Then
c.Activate
ActiveCell.Offset(0, -5).Range("A1").Select
ActiveCell.Value = b.Offset(0, -1).Value
End If
Next b
Next c
THANK YOU!
Carrie
.
|